- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 在服务端使用专业报表能做到微信服务器吗？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148726)
-- 发布时间：2020/4/14 11:30:00
-- 在服务端使用专业报表能做到微信服务器吗？
我把代码写到 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"
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
-- 发布时间：2020/4/14 11:52:00
--
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"
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
-- 发布时间：2020/4/14 12:08:00
--
企业微信也是这样处理？
-- 发布时间：2020/4/14 13:29:00
--
一样的
-- 发布时间：2020/4/15 11:54:00
--
andriod手机版的企业微信不太友善啊，微信还可以，苹果版的微信可以直接打开。
此主题相关图片如下：8efe0ac936c9931d71c5cc5771b14141.jpg