Dim fl As String = "c:\web\" & e.path '合成含路径的文件名
If filesys.FileExists(fl)
Dim idx As Integer = fl.LastIndexOf(".")
Dim ext As String = fl.SubString(idx)
S elect Case ext
Case ".jpg",".gif",".png",".bmp",".wmf",".js",".htm",".html",".css",".zip",".rar" '这里加上了js扩展名
e.WriteFile(fl)
Return '这里必须返回
End Se lect
End If
S elect Case e.path
Case "wefox"
If e.Request.HttpMethod = "GET"
If Functions.Execute("VerifySignature",e) Then
e.WriteString(e.GetValues("echostr"))
End If
ElseIf e.Request.HttpMethod = "Post" '
Dim wbiz As New WXBizCrypt("wx272e30a","dc","FXvmuyKLXZkfIxQmW19tea")
Dim st As New Date(1970,1,1,8,0,0)
Dim msg As String = wbiz.DecryptMsg(e) '解密收到的消息
If IsNumeric(msg) Then '如果解密失败
Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
Return
End If
Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(msg)
Se lect Case xo("MsgType")
Case "text","image","voice","video","shortvideo"
If DataTables("Message").Find("MsgID = '" & xo("MsgId").ToString() & "'") IsNot Nothing Then '如果有相同MsgID的信息直接返回
Return
End If
Dim dr As DataRow = DataTables("Message").AddNew()
dr("FromUserName") = xo("FromUserName")
dr("CreateTime") = st.AddSeconds(xo("CreateTime"))
dr("MsgType") = xo("MsgType")
dr("MsgId") = xo("MsgId")
dr("MediaId") = xo("MediaId")
dr("ThumbMediaId") = xo("ThumbMediaId")
dr("PicUrl") = xo("PicUrl")
dr("Content") = xo("Content")
dr("Format") = xo("Format")
dr("Recognition") = xo("Recognition")
'被动回复消息
Dim so As New Foxtable.XObject()
so("ToUserName") = xo("FromUserName")
so("FromUserName") = xo("ToUserName")
so("CreateTime") = (Date.Now - st).TotalSeconds()
so("MsgType")= "text"
Dim r As DataRow = DataTables("Zhishifenlei").Find("编号 = '" & Cstr(xo("Content")) & "'")
If r IsNot Nothing Then
so("Content") = CStr(r("内容"))
Else
If dr("Content") = Nothing Then
Return
Else
so("Content") = "抱歉,您查询的内容不存在,请核对输入编号是否正确!"
End If
End If
msg = wbiz.EncryptMsg(e,so.ToXML ) '加密要发送的消息
If IsNumeric(msg) Then '如果加密失败
Dim err As String = wbiz.GetErorDesc(CInt(msg)) '获取错误描述
Else
e.WriteString(msg)
End If
Case "event" '如果是事件
Functions.Execute("Guanzhushijian",xo,e)
End Sel ect
End If
End Se lect
[此贴子已经被作者于2020/9/21 23:20:37编辑过]
加好友 
发短信
Post By：2020/9/20 9:51:00 [只看该作者]
此主题相关图片如下：微信图片_20200920095719.jpg
此主题相关图片如下：qq图片20200921223527.png