杭州交通信息网务德镇一中桑艳的照片:ASP高手请进！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/25 02:37:08
这个代码如何写呢？
详细点
下面是repwd.html
<body>
<table cellpadding=5 cellspacing=1 border=0 align=center>
<form action="repwd.asp" method=POST name="theForm">
<tr>
<th height=25 colspan=2>用户密码修改</td>
</tr>
<tr>
<td width="40%"><B>新密码:</B></td>
<td width="60%" > <input type="password" name="psw" value="" size=30 maxlength=13> </td>
</tr>
<tr>
<td width="40%" ><B>确认新密码:</B></td>
<td width="60%" > <input type=text name="checkpwd" size=30 ></td>
</tr>
<td colspan="2" width="100%" class=tablebody2 align="center"><input type=Submit value="更 新" name="Submit"> <input type="reset" name="Submit2" value="清 除"></td>
</tr>
</form>
</table>
</body>
---------------------------
下面是repwd.asp
<%
if trim(request.form("pwd")) <> trim(request.form("checkpwd")) then
reponse.write "两次密码不一致!"
else
if len(trim(request.form("pwd")))<=6 then
reponse.write "密码不能少于6个字符!"
else
dim conn,connstr,db,rs
db="data/1110.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
set rs=server.createobject("adodb.recordset")
sql="Select * from [User] where userid="& session("userid")
rs.open sql,conn,1,3
if rs.eof and rs.bof then
response.write "该用户名不存在。"
else
rs("password")= trim(request.form("pwd")
rs.Update
response.write "修改密码成功!"
end if
rs.close
conn.close
set rs=nothing
end if
end if
%>
这个只是个简单的例子,没有对密码进行加密,也没有对旧密码进行验证,真正编写时这些都必须加上才可以的.
set rs=server.createobject("adodb.recordset")
sql = "select * from 用户表 where UserName="&session("UserName")
rs.open sql,conn,3,3
rs("passWORD") = MD5（Request.Form("PassWord")）
rs.update
rs.close
如果有MD5加密就这样。
set rs=server.createobject("adodb.recordset")
sql = "select * from admin where UserNameid="&Nameid
rs.open sql,conn,3,3
rs("pass") = Request.Form("NewPass")
rs.update
rs.close
一小段例子，希望对你有用吧
set rs=server.createobject("adodb.recordset")
sql = "select * from 用户表 where 用户名字段='"&新用户名 &"'"
rs.open sql,conn,1,3
if not(rs.EOF) then
rs("密码字段") = "新密码"
rs.update
end if
rs.close
set rs=nothing
如果还不清楚，加俺的QQ 55357571
给用户来个表单，包括原密码文本框，要修改密码文本框，重复新密码，然后加上提交。提交页就放修改数据库的脚本。主要包括把该表单提交的原密码进行判断，正确就把新密码update到密码字段中。错误就返回前一页，让用户重新输入，就是这么简单`~~~