主题：关于post请求的问题

Select Case e.path
    Case "rfc\select"
        If e.postValues("key") = "382dc38cce2645fa8aced80e" Then
            e.AsyncExecute = True '通知系统异步执行,不要关闭信道
            Functions.AsyncExecute("RFC", e)
        Else
            e.WriteString("[]")
        End If
    Case Else
        e.WriteString("404链接错误,无此页面内容!")
End Select
Dim e As RequestEventArgs = Args(0)
Dim hs As String = e.PostValues("hs")
Dim I_JSON As String = e.PostValues("I_JSON")
Dim str As String = e.PostValues("str")