Select Case e.Path
Case "addpyh69xg.htm"
Functions.Execute("注册码修改",e)
End Select
Dim e As RequestEventArgs = args(0) ‘去掉这行代码,放到httprequest执行一点问题没,但是改成自定义函数后,addpyh69xg.htm页面正常生成了,addpyh69xg2.htm页面空白。请老师指点一下。谢谢!
Select Case e.Path
Case "addpyh69xg.htm"
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
wb.AddForm("","form1","addpyh69xg2.htm")
With wb.AddInputGroup("form1","ipg1","注册码查询")
.AddSelect("cp","省份","黑龙江注册测试|辽宁|吉林")
.AddInput("gy","注册码","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1","确定","submit")
End With
e.WriteString(wb.Build) '生成网页
Case "addpyh69xg2.htm"
Dim h As DataRow = DataTables(e.PostValues("cp")).SQLFind("注册码='" & e.PostValues("gy") & "'")
If h IsNot Nothing Then
Dim xg As New WeUI '定义一个基于weui框架的网页生成器
xg.AddForm("","form2","test.htm")
With xg.AddInputGroup("form2","ipg2","注册码修改")
With .AddInput("sf","省份:","text")
.Value = e.PostValues("cp")
.Required = True
.Readonly = True
End With
With .AddInput("yzcm","注册码:","text")
.Value = e.PostValues("gy")
.Required = True
.Readonly = True
End With
With .AddInput("jqm","修改机器码:","text")
.Value = h("机器码")
End With
End With
With xg.AddButtonGroup("form2","btg2",True)
.Add("btn2","确定修改","submit")
End With
e.WriteString(xg.Build) '生成网页
Else
Dim xg0 As New WeUI '定义一个基于weui框架的网页生成器
xg0.AddForm("","form20","test.htm")
With xg0.AddButtonGroup("form20","btg20",True)
.Add("btn20","没有结果,点击返回","submit","addpyh69xg.htm")
End With
e.WriteString(xg0.Build) '生成网页
End If
Case "test.htm"
Dim hs As DataRow = DataTables(e.PostValues("sf")).SQLFind("注册码='" & e.PostValues("yzcm") & "'")
If hs IsNot Nothing Then
hs("机器码")=e.PostValues("jqm")
hs.Save
Dim wb3 As new WeUI
wb3.AddForm("","form3","test.htm")
With wb3.AddMsgPage("","msgpage","操作完成","操作完成,可通过查询查看修改结果")
.AddButton("btn2","返回","addpyh69xg.htm")
End With
e.WriteString(wb3.Build) '生成网页
End If
End Select