我把代码写到 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