Select Case e.Path
Case "testres.htm"
Dim sb As New StringBuilder
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 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/1/24 17:16:00 [只看该作者]
