我把代码写到 bjcn 里，但是这样子微信服务就访问不了了
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
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
加好友 
发短信
Post By：2020/4/14 11:30:00 [显示全部帖子]
此主题相关图片如下：8efe0ac936c9931d71c5cc5771b14141.jpg