Select Case e.Path
Case "test.htm"
Dim wb As New weui '定义一个基于weui框架的网页生成器
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","查询订单")
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1)
End With
End With
With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","","test2.htm").Attribute= "oncli ck= 'my()'"
End With
wb.AppendHTML("<script src='./lib/ces.js'></script>")
e.WriteString(wb.Build) '生成网页
Case "test2.htm"
Dim wb As New weui '定义一个基于weui框架的网页生成器
wb.AddForm("","form1","test2.htm")
With wb.AddInputGroup("form1","ipg1","查询订单")
With .AddInputCell("ic2")
.AddLabel("la2","单号",0)
.AddInput("tx2","test",1)
End With
End With
With wb.AddButtonGroup("","btg2", False)
.Add("btnPrev", "上一页")
.Add("btnNext", "下一页","","test.htm").Attribute= "on click= 'my()'"
End With
wb.AppendHTML("<script src='./lib/ces.js'></script>")
e.WriteString(wb.Build) '生成网页
Case "test1.htm"
e.WriteString(e.Values("tx2") +1)
End Select
像在test.htm中tx2中输入，然后点下一页按钮，跳转到test2.htm中，将test.htm中tx2的内容，填入到test2.htm的txt2中。
[此贴子已经被作者于2018/10/13 8:21:06编辑过]
加好友 
发短信
Post By：2018/9/29 10:42:00 [只看该作者]
