Dim e As RequestEventArgs = args(0) '基础资料
Dim wb As New weui
Dim username As String = e.cookies("isj") '从cookie取用户名(手机号)
Dim dr As DataRow = DataTables("会员资料").sqlFind("手机 = '" & username & "'")
在下个页面per_jichu_fz.htm，我都是重新查找行，然后保存变量zh数据的，有没有更好的办法？比如通过addhidenvalue传递行号过去？
Dim zh As String '定义,支付宝账号
If dr IsNot Nothing Then
zh = dr("账号")
End If
wb.AddForm("","form1","per_jichu_fz.htm")
With wb.AddInputGroup("form1","ipg1","基础资料")
With .AddInput("zh","账号","text")
If zzh = "" Then
.Placeholder = "提交后不可更改!非必填项!"
End If
End With
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn2", "提交支付宝", "button").Attribute= ""
End With
wb.AppendHTML("<script src='./lib/ajaxform_per_jichu.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2017/8/26 17:18:46编辑过]
加好友 
发短信
Post By：2017/8/24 8:48:00 [只看该作者]
