专家坐堂-老师，用网址访问时，当我有时候修改密码时，会出现这个问题，从而导致网址进不去页面，这是什么原因呢Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Case "ChangePassword4.htm" \'二级订单修改密码

If e.postvalues.count = 0 Then

wb.AddPageTitle("","pageheader2","修改密码")

wb.AddForm("","form4","ChangePassword4.htm")

With wb.AddInputGroup("form4","ipg4")

.AddInput("txtname","请输入用户名","text").Value=Username

.AddInput("pwdold","请输入原密码","text")

.AddInput("pwdnew","请输入新密码","text")

End With

With wb.AddButtonGroup("form4","btg4",True)

.Add("btn4","确认修改","submit")

End With

Else

Dim txtname=e.PostValues("txtname")

Dim pwdold=e.PostValues("pwdold")

Dim pwdnew=e.PostValues("pwdnew")

Dim verified5 As Boolean

Dim p1 As List(of DataRow) = DataTables("贷款每日进度表1").SQLSelect("上二级归属仅录员工_上上级=\'" & txtname & "\'")

For Each p As DataRow In p1

If p IsNot Nothing AndAlso p("上二级归属登录密码")=Pwdold Then

p("上二级归属登录密码")=Pwdnew

p.Save

\'---数据同步

Dim dr1 As DataRow = DataTables("荣e享财务系统推送").Find("编号 = \'" & p("编号") & "\'")

If dr1 IsNot Nothing Then

dr1("上二级归属登录密码") = p("上二级归属登录密码")

End If

Dim dr2 As DataRow = DataTables("荣e享财务系统推送1").Find("编号 = \'" & p("编号") & "\'")

If dr2 IsNot Nothing Then

dr2("上二级归属登录密码") = p("上二级归属登录密码")

End If

Dim dr3 As DataRow = DataTables("荣e享财务系统推送2").Find("编号 = \'" & p("编号") & "\'")

If dr3 IsNot Nothing Then

dr3("上二级归属登录密码") = p("上二级归属登录密码")

End If

Dim dr4 As DataRow = DataTables("荣e享财务系统推送3").Find("编号 = \'" & p("编号") & "\'")

If dr4 IsNot Nothing Then

dr4("上二级归属登录密码") = p("上二级归属登录密码")

End If

verified5 = True

End If

If verified5 = True Then

With wb.AddMsgPage("","msgpage","修改成功", "好好学习,天天向上") \'生成成功提示页

.AddButton("btn1","返回","logon3.htm?fs=5")

End With

Else

With wb.AddMsgPage("","msgpage","修改失败", "账号或原密码不正确,请重新输入") \'生成成功提示页

.icon = "Warn" \'改变图标

.AddButton("btn1","返回").Attribute = ""

End With

End If

e.WriteString(wb.Build)

Return