.ASPX文件里定义了三个
<asp:TextBox id="T1" runat="server" TextMode="Password"></asp:TextBox> 旧密码
<asp:TextBox id="T2" runat="server" TextMode="Password"></asp:TextBox> 新密码
<asp:TextBox id="T3" runat="server" TextMode="Password"></asp:TextBox> 核对密码.VB文件里
Private Sub B1_Click
Dim strSQL As String
If T1.Text <> Session("password") Then
gShowMsg("原密码错误,您不能修改密码!", "提示")
End If
If T2.Text <> T3.Text Then
gShowMsg("两个新密码不同,请重新核对填写!", "提示")
End If
strSQL = "update 管理用户信息 set password='" & T2.Text & "' where username='" & Session("username") & "'"
If gRunSql(strSQL, "修改成功!", "修改失败!") = True Then
Session("password") = T2.Text
Else
Exit Sub
End If
End Sub执行update语句时一直报修改失败,错在哪了?请指点,谢谢!!!
<asp:TextBox id="T1" runat="server" TextMode="Password"></asp:TextBox> 旧密码
<asp:TextBox id="T2" runat="server" TextMode="Password"></asp:TextBox> 新密码
<asp:TextBox id="T3" runat="server" TextMode="Password"></asp:TextBox> 核对密码.VB文件里
Private Sub B1_Click
Dim strSQL As String
If T1.Text <> Session("password") Then
gShowMsg("原密码错误,您不能修改密码!", "提示")
End If
If T2.Text <> T3.Text Then
gShowMsg("两个新密码不同,请重新核对填写!", "提示")
End If
strSQL = "update 管理用户信息 set password='" & T2.Text & "' where username='" & Session("username") & "'"
If gRunSql(strSQL, "修改成功!", "修改失败!") = True Then
Session("password") = T2.Text
Else
Exit Sub
End If
End Sub执行update语句时一直报修改失败,错在哪了?请指点,谢谢!!!
执行gRunSql后报"修改失败!",gRunSql是执行SQL语句的公共函数,代码正确.
把这个值打出来看看