- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 网页不显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138198)
-- 发布时间：2019/7/25 9:54:00
-- 网页不显示
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:系统 - 副本.rar |
老师，我简化HttpRequest事件代码后，网页都打不开来了，这个是哪里出问题了？麻烦帮我看下
-- 发布时间：2019/7/25 11:00:00
--
……
\'开始生成网页
Select Case e.path
Case "logon.htm" \'登录页面
wb.AddPageTitle("","pageheader","数据系统","有限公司")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then \'判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","户名","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
e.WriteString(wb.Build) \'生成网页
Case "exit.htm" \'退出登录
wb.DeleteCookie("username") \'清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'然后直接跳转到登录页面
e.WriteString(wb.Build) \'生成网页
Case "", "default.htm" \'首页
wb.AddPageTitle("","pageheader","房产数据系统","有好房实业(惠州)有限公司")
With wb.AddGrid("","g1")
.Add("c1","房源管理", "./images/button.png", "fylb.htm")
.Add("c2","房源添加", "./images/cell.png", "fyxz.htm")
.Add("c3","销售统计", "./images/toast.png").Attribute = ""
.Add("c4","客户管理", "./images/dialog.png", "khlb.htm")
.Add("c5","客户添加", "./images/progress.png", "xzkh.htm")
.Add("c6","跟进情况", "./images/msg.png", "khlb.htm")
.Add("c12","退出", "./images/exit.png", "exit.htm") \'退出登录
End With
e.WriteString(wb.Build) \'生成网页
Case "xzkh.htm"
Functions.Execute("xzkh",e)
Case "xgkh.htm"
Functions.Execute("xgkh",e)
Case "xzgj.htm"
Functions.Execute("xzgj",e)
Case "zd.htm"
Functions.Execute("zd",e)
Case "qxzd.htm"
Functions.Execute("qxzd",e)
Case "khlb.htm"
Functions.Execute("khlb",e)
Case "fyxz.htm"
Functions.Execute("fyxz",e)
Case "fylb.htm"
Functions.Execute("fylb",e)
End Select