贴出3楼代码所在事件的完整代码看看。
自己调试一下
Dim dr As DataRow=DataTables("报关员").sqlfind("手机号='" & e.postvalues("手机号") & "'")
If dr IsNot Nothing Then '''如果有此用户,那么继续判断.
If dr("密码")=e.postvalues("密码") Then '''判断密码是否正确
msgbox(e.postvalues("手机号"))
msgbox(e.postvalues("密码"))
wb.AppendCookie("username",e.postvalues("手机号"), 43200)
wb.AppendCookie("password",e.postvalues("密码") ,43200)
------------
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
msgbox(e.Cookies("username"))
msgbox(e.Cookies("password"))
Dim dr As DataRow=DataTables("报关员").sqlfind("手机号='" & e.Cookies("username") & "'")
If dr IsNot Nothing AndAlso dr("密码")=e.Cookies("password") Then '''如果有此用户,且密码正确.
加好友 
发短信
Post By：2021/2/27 17:01:00 [显示全部帖子]
