Select Case e.Path
Case "testres.htm"
sb.AppendLine("<meta name='viewport' c>")
sb.AppendLine("接收到的数据有:<br/><br/>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
Next
e.WriteString(sb.ToString)
Case Else
Dim p As String = e.path
If p = "" Then p = "*"
Dim dr As DataRow = DataTables("httprequest").SQLFind("path='" & p & "' or '" & p & "' like path ")
'If dr授择 IsNot Nothing AndAlso dr授择("授择")= "未授择" Then
'Functions.Execute(dr授择("内部函数"),e)
'Else
If dr IsNot Nothing AndAlso dr("端口分类") = "手机端" Then
Functions.Execute(dr("内部函数"), e)
Else
'Dim wb As New weui
wb.InsertHTML("<p>杯具!页面丢失了!!</p>")
wb.AppendHTML("<script>console.warn('" & e.path & "不在httprequest表,请检查是否没有设置.')</script>")
e.WriteString(wb.Build)
End If
End Select
用的这个，是不是
加好友 
发短信
Post By：2022/8/5 10:24:00 [显示全部帖子]
