求助用户修改密码页面

作者：擦肩er过来源：不详发布时间：2008/10/28 发布人：admin

擦肩er过 发布留言 2008-10-27 16:47

求助用户修改密码页面

填写上答案和新密码  只是弹出信息框  就算提示修改OK  数据库无反应

采用md5加密写入数据库

表单提交页面

采用提示问题和答案  +  新密码验证

帐号和  问题文本域  用户不能输入自动获取和显示

提交到 user_passok.asp

<%
dim sql,rs,username
username=request.cookies("m0453")("username")
set rs=server.createobject("adodb.recordset")
sql = "select * from m_user where username='"&username&"'"
rs.open sql,conn,1,1
%>

如果您忘记提示答案、请即时联系客服找回答案或修改答案

联系电话:XXXXXXXX 、联系QQ:XXXXXXX

<%
rs.close
set rs=nothing
Conn.close
Set conn=nothing
%>
[/quote]

下面是 user_passok.asp 页面

有个问题

readonly属性的文本域  不可以在user_passok.asp获取 form吗

[quote]

<%
dim checkCode,username,daan,mima
checkCode = request.Form("checkCode")
if (trim(checkCode)<>session("GetCode")) then
Response.Write("")
response.end
end if

username=trim(request.form("pass_name"))
daan=trim(request.form("pass_daan"))
mima=trim(request.form("pass_mm1"))

set rs=server.createobject("adodb.recordset")
sql="select * from m_user where username="&username
rs.open sql,conn,1,3

if rs("daan")<>daan then
Response.Write("")
Response.end
else
rs("password")=md5(mima)

rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write""
end if
%>

页: [1]

特别说明：如网页特效代码中有引用图片文件等，请自己下载到本地调试！

[] [返回] [打印] [收藏] [评论]

上一篇代码：关于程序错误

下一篇代码：access数据库

求助用户修改密码页面