有的 代码如下
Dim fl As String = "d:\web\" & e.Path
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
Select Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
e.WriteFile(fl)
Return '这里必须返回
End Select
End If
Dim wb As New weui
Dim Verified As Boolean
Dim UserId As String
Dim UserName As String
Dim i As String
Select Case e.path
Case "wefox"
Dim wbiz As New WXBizCrypt("ww8b370260","foxtable","ilsmyivvRPNj0qxSiSzWCnqm7cy1w1RcS6w2LBhsh7J")
If e.Request.HttpMethod = "GET"
Dim ret As Integer = wbiz.CheckQYSignature(e)
If ret <> 0 Then '如果接入验证失败
Dim err As String = wbiz.GetErorDesc(ret) '获取错误描述
End If
End If
MessageBox.Show("1")
[此贴子已经被作者于2021/1/29 13:41:44编辑过]
加好友 
发短信
Post By：2021/1/29 12:17:00 [只看该作者]
此主题相关图片如下：微信截图_20210129121325.png
