- 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=142159)
-- 发布时间：2019/10/20 9:18:00
--
如果提交的值同时有xh和xm，会重复执行。
应该：
With wb.AddTable("","Table1")
If e.PostValues.ContainsKey("xh") Then
.CreateFromDataTable(DataTables("分段统计"),True,"学校= \'" & e.PostValues("xh") & "\'","","学校","科目","最高分","最低分","平均分")
With wb.AddButtonGroup("","btg1",True)
With .Add("fh", "返回", "spjc.htm")
.Attribute = ""
End With
End With
ElseIf e.PostValues.ContainsKey("xm") Then
.CreateFromDataTable(DataTables("检测"),True,"姓名= \'" & e.PostValues("xm") & "\'","","姓名","学校","语文","数学","英语","总分")
With wb.AddButtonGroup("","btg1",True)
.Add("fh", "返回", "spjc.htm").Attribute = ""
End With
End If
e.WriteString(wb.Build)
End With
具体可以自己调试一下，看看执行到哪里提示错误。
-- 发布时间：2019/10/20 20:25:00
--
改为使用：history.go(-1)
https://blog.csdn.net/water_v/article/details/78469097
-- 发布时间：2019/10/21 13:56:00
--
Else
With wb.AddTable("","Table1")
If e.PostValues.ContainsKey("xh") Then
.CreateFromDataTable(DataTables("分段统计"),True,"学校= \'" & e.PostValues("xh") & "\'","","学校","科目","最高分","最低分","平均分")
ElseIf e.PostValues.ContainsKey("xm") Then
.CreateFromDataTable(DataTables("检测"),True,"姓名= \'" & e.PostValues("xm") & "\'","","姓名","学校","语文","数学","英语","总分")
End If
End With
With wb.AddButtonGroup("","btg1",True)
.Add("fh", "返回", "spjc.htm?r=" & rand.Next())
End With
e.WriteString(wb.Build)
End If
-- 发布时间：2019/10/22 10:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:检测系统.zip |