本机网页测试 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 本机网页测试

共有6696人关注过本帖树形打印复制链接主题：本机网页测试

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 10:52:00 [显示全部帖子]

web服务启动代码是什么？启动的时候有没有出错？httprequest写了什么代码？浏览器通过什么地址访问的？

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 11:17:00 [显示全部帖子]

调试

msgbox(e.Path)

If e.Path.StartsWith("order") Then

Dim wb As New weui

wb.InsertHTML("<meta http-equiv='Refresh' c>") 这里代码被论坛屏蔽了，不完整，按照这里的方法处理一下重新发上来http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=69632

'那么直接跳转到登录页面

msgbox(wb.Build)

e.WriteString(wb.Build) '生成网页

End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/9/15 14:06:00 [显示全部帖子]

这不死循环了吗？跳转到【/order/logon】，还是order开头的，还是跳转到【/order/logon】

select case e.path

case "order"

Dim wb As New weui

wb.InsertHTML("<me ta http-e quiv='Refresh' co nt ent='0; u rl=/order/logon'>")

e.WriteString(wb.Build)

case "order\logon"

e.WriteString(“这里登录页”)

end select

主题：本机网页测试