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 dr As DataRow = DataTables("httprequest").Find("path='" & e.Path & "'")
If dr IsNot Nothing Then
Functions.Execute(dr("function"),e)
Else
Dim wb As New weui
For Each dr1 As DataRow In DataTables("httprequest").DataRows
wb.InsertHTML("<a href='./" & dr1("path") & "'>" & dr1("path") & "</a></br>")
Next
e.WriteString(wb.Build)
End If
End Select
加好友 
发短信
Post By：2020/6/9 18:04:00 [显示全部帖子]
