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
Select Case e.Path
Case "web"
Dim wbiz As New WXBizCrypt("w95769","us","21QakCa9taR8IsC6jrkXlDlBWn")
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
Case "test.htm"
Dim wb As New WeUI
wb.AddPageTitle("","pageheader","信息","微信网页测试页面")
With wb.AddGrid("","g1")
.Add("c6","Msg", "./images/msg.png", "http://www.baidu.com")
.Add("c7","Article", "./images/article.png", "http://www.baidu.com")
.Add("c8","ActionSheet", "./images/actionSheet.png", "http://www.baidu.com")
.Add("c9","Icons", "./images/icons.png", "http://www.baidu.com")
.Add("c10","Panel", "./images/panel.png", "http://www.baidu.com")
.Add("c11","Tab", "./images/tab.png", "http://www.baidu.com")
.Add("c12","SearchBar", "./images/search.png", "http://www.baidu.com")
End With
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2017/7/20 17:52:00 [只看该作者]
