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
if e.Path = "wefox" then
微信服务的处理
else
try
If e.Path.StartsWith("Reports\")
e.ResponseEncoding = "gb2312"
Select Case e.Path
Case "" '授权页面
Functions.Execute("order1",e)
Case "main.htm" '授权主页跳转
Functions.Execute("main",e)
Case "bjcn.htm"
Functions.Execute("bjcn",e)
Case Else
e.AsReportServer("Reports\")
e.WriteString("糟糕你访问的网址不存在,系统出现错误")
End Select
end if
catch ex As Exception
Functions.Execute("LogText",ex)
e.WriteString("")
End Try
endif
加好友 
发短信
Post By：2020/4/14 11:52:00 [只看该作者]
