以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- e.writestring (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152381) |
||||
-- 作者:1498351234 -- 发布时间:2020/7/10 22:03:00 -- e.writestring If FileSys.FileExists(ProjectPath & "anquanshigu.foxhtm") htm1 = FileSys.ReadAllText(ProjectPath & "anquanshigu.foxhtm") e.WriteString(htm1) End If 老师:当htm1文本内容达到60kb以上时,手机第一次能打开页面,第二次以后就不行了,不知怎么回事?
[此贴子已经被作者于2020/7/10 22:07:02编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/11 8:57:00 -- 贴出这个代码所在的完整代码。贴出httprequest的完整代码 |
||||
-- 作者:1498351234 -- 发布时间:2020/7/11 13:45:00 --
Case "shiguanli.htm"
老师:企业微信在电脑上登录打开成功的概率高一些,在手机上测试成功的概率低很多。很不稳定。
[此贴子已经被作者于2020/7/11 14:07:39编辑过]
|
||||
-- 作者:1498351234 -- 发布时间:2020/7/11 13:51:00 -- Case "shiguanli.htm" Dim htm1 As String If FileSys.FileExists(ProjectPath & "anquanshigu.foxhtm") htm1 = FileSys.ReadAllText(ProjectPath & "anquanshigu.foxhtm") e.WriteString(htm1) End If |
||||
-- 作者:有点蓝 -- 发布时间:2020/7/11 14:26:00 -- 我测试没有问题!贴出这个代码所在的完整代码。贴出httprequest的完整代码。 |
||||
-- 作者:1498351234 -- 发布时间:2020/7/11 15:49:00 -- 通过九宫格链接过去的: Dim Val2 As Integer = Rand.Next(10000) With wb.AddGrid("page2_1", "g2")
这是httprequest的代码:
Dim fl As String = "d:\\web\\" & e.path If filesys.FileExists(fl) If UserId > "" Then
[此贴子已经被作者于2020/7/11 15:49:20编辑过]
|
||||
-- 作者:有点蓝 -- 发布时间:2020/7/11 16:07:00 -- 请上传实例说明问题 |
||||
-- 作者:1498351234 -- 发布时间:2020/7/11 16:18:00 -- Select Case e.Path return
老师:我在这里加了return后好了,可能是没有加return别的地方干扰的吧。 |
||||
-- 作者:有点蓝 -- 发布时间:2020/7/11 16:29:00 -- 所以让您发完整代码。不然没法查看问题 |