<html>
<!--包含用户登陆校验文件-->
<!--包含连接数据库文件-->
<!--#include file="dbconn.asp"-->
<!--#include file="findDept.asp"-->
<%
dim password,newpassword,newpasswordtemp,userid
dim sql
if Request.Form("submit")="提交" then
userid = session("userid")
password = Request("password")
newpassword = Request("newpassword")
newpasswordtemp = Request("newpasswordtemp")
sql= "select * from T_B_WebUser where UserID='" & UserID & "'"
if session("PWD")<> password then
Response.Write "<center>对不起,您输入的旧密码不正确.请重试!</center>"
Response.end
elseif newpassword <> newpasswordtemp then
Response.Write "<center>对不起,新密码与新密码确认不同.请重试!</center>"
Response.end
end if
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
sql="update tb_Student set Pwd='" & newpassword & "' where UserID="& userid
rs.open sql,1,3
Response.Write "<center>密码修改成功，请切记您的新密码：'" & newpassword & "'</center>"
Response.end
end if
%>
<HEAD>
<TITLE>password</TITLE>
</HEAD>
<BODY>
<BR><BR><CENTER>
<FONT SIZE="5" COLOR=#000000 FACE="宋体">修改密码</FONT>
</CENTER><BR><BR>
<FORM METHOD=POST ACTION="pwd.asp">
<TABLE align=center width="60%" border="1" cellspacing="0">
<tr>
<TD>当前用户名： <font color="#FF0000"><%=session("UserID")%></font>
<input name="UserID" type="hidden" value="<%=session("UserName")%>">
<TR>
<TD>您的旧密码:
<INPUT TYPE="password" NAME="password" size=20 maxlength=12>
<font color=red>*</font>
<FONT SIZE="" COLOR="">(长度不超过12位，下同)</FONT><BR>
<HR>
输入新密码：<INPUT TYPE="password" NAME="newpassword" size=20 maxlength=12>
<font color=red>*</font><BR>
新密码确认：<INPUT TYPE="password" NAME="newpasswordtemp" size=20 maxlength=12>
<font color=red>*</font><BR></TD>
</TR>
<TR>
<TD align=center>
<P><input type="submit" value="提交" name="submit">
<input type="reset" value="重写" name="B2">
</P></TD>
</TR>
</TABLE>
</FORM>
</body>
</html>
如果全为空则报错:
错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/pwd.asp, 第 25 行
--------
如果随便乱写或者按照数据库里密码一样输入旧密码:
则蹦到:对不起,您输入的旧密码不正确.请重试!
如果不写旧密码,直接写一个新密码:
则蹦到:对不起,新密码与新密码确认不同.请重试!
如果不写旧密码只写新密码与确认密码:
则报以上第25行相同的错.
请高手帮助!!是不是旧密码那就不判断?
參考答案:if request.form("newpassword") = request.form("newpasswordtemp") then
if request.form("pass") = rs("pass") then
---------------------------------------
此处更新数据库代码，自己写吧
---------------------------------------
Response.Write "<script language='javascript'>alert('修改成功！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
else
rs.Close()
set rs = Nothing
Response.Write "<script language='javascript'>alert('对不起，旧密码错误！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
end if
else
rs.Close()
set rs = Nothing
Response.Write "<script language='javascript'>alert('对不起，两次输入的新密码不一致！！');"
response.write"this.location.href='"&request.ServerVariables("HTTP_REFERER")&"';</SCRIPT>"
end if
