| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 使用meta http-equiv='refresh'跳转时如何提交数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187085) |
| -- 作者：一笑 -- 发布时间：2023/6/20 14:39:00 -- 使用meta http-equiv='refresh'跳转时如何提交数据 使用wb.AppendHtml("<meta http-equiv=\'refresh\' c>",True)定时跳转页面，如何传递或提交原表单上的数据（通常用submit按钮提交），谢谢！ |
| -- 作者：有点蓝 -- 发布时间：2023/6/20 14:49:00 -- 这种只能使用get方式，比如： wb.InsertHTML("<meta http-equiv=\'Refresh\' content=\'0; url=/default.htm?参数1=xx1&参数2=xx2\'>") \'直接跳转到首页
[此贴子已经被作者于2023/6/20 14:49:22编辑过]
|
| -- 作者：一笑 -- 发布时间：2023/6/20 15:01:00 -- 喔，那如何遍历获取表单上控件的值，如：所有复选列表项的值？ |
| -- 作者：有点蓝 -- 发布时间：2023/6/20 15:11:00 -- 感觉不应该这样处理问题。请把完整的代码发上来看看，具体要做什么功能 |
| -- 作者：一笑 -- 发布时间：2023/6/20 15:37:00 -- 代码如下： Dim wb As New weui wb.AddForm("", "form1", "") wb.AppendHTML("<link rel=\'stylesheet\' href=\'./weui/exweui.css\'/>", True) wb.AppendHTML( "<script src=\'./weui/exweui.js\' ></script>" , True) \' Dim cdg As ExWeUI.ExCheckGroup = ExWeUI.WebUI.AddCheckGroup("","chg1","横排,自动换行显示") cdg.add("rd1","Microsoft Edge").Attribute = """ cdg.add("rd2","Google Chorme") cdg.add("rd3","FireFox") cdg.add("rd4","QQ浏览器") cdg.add("rd5","傲游浏览器") wb.InsertHTML("form1",cdg.BuildHtml) Dim PageURL As String = "testdx.htm" wb.AppendHtml("<meta http-equiv=\'refresh\' c>", True) \'8秒后跳转 wb.AppendHTML("<script>initExWeUI();</script>") e.WriteString(wb.Build) 现在想通过get方式传递复选列表项的值，现在的问题是：如何先获取所表单上选择的复选列表项的值（Value或ID）？ |
| -- 作者：有点蓝 -- 发布时间：2023/6/20 15:49:00 -- 这个用法根本不合理。把这个页面，以及前后的页面代码一起放到记事本发上来看看 |
| -- 作者：一笑 -- 发布时间：2023/6/20 17:05:00 -- 用户需求是考试题，答题时间8秒钟，超时就跳到下一题，当前的答案需要提交出来。8秒内正常提交答案（submit）按钮工作正常，就没贴出来了。 |
| -- 作者：有点蓝 -- 发布时间：2023/6/20 17:13:00 -- 发代码，有些时候无法靠猜来解决问题 |
| -- 作者：一笑 -- 发布时间：2023/6/28 15:39:00 -- 回复一下个人解决此问题的方法： 1、不使用<meta http-equiv=\'refresh\' c>定时跳转，使用自动提交的js：setTimeout("document.form1.submit()",9000)； 2、表单提交方式改为“get”，并AddHiddenValue方法，在输入框组插入隐藏的标记数据，一并提交； 3、实现功能：答题时定时提交答案然后自动跳转到下一题。
|