Case "logon1.htm" '我的直接订单页面fs=2 对应ChangePassword
wb.AddPageTitle("","pageheader1","荣峰天下","--->归属人")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then
Dim fdr1 As DataRow= DataTables("贷款每日进度表1").SQLfind("订单原始归属所有合伙人_归属人='" & e.PostValues("username") & "'")
If e.PostValues("username")<>fdr1("订单原始归属所有合伙人_归属人") Then
wb.AddToptips("","toptip1","用户不存在!").msec=2000 '---停留2秒的时间
ElseIf
wb.AddToptips("","toptip1","用户名或密码错误!").msec=2000 '---停留2秒的时间
End If
End If
wb.AddForm("","form2","logon1.htm?fs=2")
With wb.AddInputGroup("form2","ipg2")
.AddInput("username","用户","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form2","btg2",True)
.Add("btn2","登录","submit")
.Add("pwd","修改密码","","ChangePassword.htm").Kind=2 '红色按钮
End With
加好友 
发短信
Post By：2018/4/25 15:43:00 [显示全部帖子]
