您所在位置：主题：高手帮忙看看.高分!
ndam
[专家分：10] 发布于 2007-02-17 10:53:00
无法正常修改密码,
高手帮忙看看.高分!
完整代码加我QQ:48993263
谢谢!
<%opendb%>
<!--#include file="dbpath.asp"-->
<!--#include file="ctda/md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="guise/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="guise/top.asp"-->
<hr size="5">
<script language="javascript" src="guise/adnwlife.js">
</script>
<div align="center">
<%call pagecontent()%>
<%Function pagecontent()
SessionName=trim(request("lose"))
Select Case SessionName
Case "l1"
call newkey0()
Case "ly2"
call newkey()
End Select
End Function %>
<%Sub newkey0()%>
<table width="76%" height="262" border="4" cellpadding="4" cellspacing="1" bordercolor="#999999" bgcolor="#000000" class="tInner">
<tr class="tCate" align="center">
<td colspan="2" class="STYLE1">找回密码（第一步）</td>
</tr>
<form action="" method="post" name="form1" id="form10">
<input type="hidden" name="formTime" >
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>登录用户名:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="user" type="text" size="20" maxlength="20">
(必填) (登陆论坛的ID)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>用户昵称:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="name" type="text" size="20" maxlength="20">
(必填) (显示的名字)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>信箱:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="email" type="text" size="35">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>安全码:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="ukey" type="text" size="20">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td><b class="STYLE1"> QQ:</b></td>
<td><span class="STYLE1">
<input name="qq" type="text" value="123456789" size="20" maxlength="9" />
</span></td>
</tr>
<tr class="tBody1">
<td width="20%" class="STYLE1"> <strong>验证码：</strong></td>
<td width="80%"><input name="code1" type="text" size="10" maxlength="4">
<img src="ctda/GetCode.asp?a=login" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='ctda/GetCode.asp?a=login'" onKeyPress="if ((event.keyCode<48 &&event.keyCode!=13) || event.keyCode>57) event.returnValue=false"></td>
</tr>
<tr class="tBody1">
<td height="13" colspan="2"><div align="center"><span class="STYLE1"></span>
<span class="STYLE1">
<input name="send" type="submit" value=" 确定 ">
<input name="Submit2" type="reset" value=" 取消 ">
</span></div></td>
</tr>
</form>
</table>
<%if request("send")=" 确定 " then
user=request.form("user")
email=request.form("email")
ukey=request.form("ukey")
qq=request.form("qq")
name=request.form("name")
Code=trim(request.form("code1"))
'**********检查是否填写了所有项，如果不是侧自动返回申请页面
if user="" or email="" or name="" or qq="" or ukey="" then
errmsg=errmsg & "△ 请填写必填内容！\n"
end if
if cstr(session("GetCode_login"))<>cstr(Code) then
Response.Write("<script language=javascript>alert('认证码错误！');location='pwlose.asp?lose=l1' </script>")
response.end
end if
if InStr(email,"@")=0 or InStr(email,".")=0 or InStr(email,"@.")<>0 or InStr(email,"=")<>0 or InStr(email," ")<>0 or InStr(email,",")<>0 then
Response.Write "<script language=JavaScript>{alert('E-mail未输入或格式有误，请查看!');history.back();}</script>"
Response.End
end if
if InStr(user," or ")<>0 or InStr(user,"'")<>0 or InStr(user,"`")<>0 or InStr(user,"=")<>0 or InStr(user,"-")<>0 or InStr(user,",")<>0 or InStr(user," and ")<>0 then
Response.Write "<script language=JavaScript>{alert('用户名含有非法字符！');history.back();}</script>"
Response.End
end if
'**********检查用户名.如果有重复用户名侧自动返回申请页面
dim rsc,errmsg,rsc2,errmsg2
set rsc=server.createobject("adodb.recordset")
sqlc="select * from user where user='"&user&"'"
rsc.open sqlc,conn,1,1
if not rsc.eof then
if email=rsc("email") and ukey=rsc("ukey") and name=rsc("name") and qq=rsc("qq") then
response.cookies("user")=rsc("user")
response.cookies("pwok")=rsc("id")
session("id")=rsc("id")
response.redirect "pwlose.asp?lose=ly2"
else
errmsg2=errmsg2 & "△ 请检查您输入的所有个人资料，其中有错误！\n"
end if
else
errmsg=errmsg & "△ 此用户不存在！\n"
end if
if errmsg<>"" then
Conn.Close
Set conn = nothing
Set rsc = nothing
response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
response.end
end if
if errmsg2<>"" then
Conn.Close
Set conn2 = nothing
Set rsc2 = nothing
response.write("<script>alert('" & errmsg2 & "');history.go(-1)</script>")
response.end
end if
end if
'**********检查结束**********
%>
<%end sub
Sub newkey()
id=rsc("id")
set rs=server.createobject("adodb.recordset")
sql="select * from user where id='"&id&"'"
rs.open sql,conn,1,3
if request.cookies("pwok")<>rs("id") or request.cookies("pwok")="" or request.cookies("user")<>rs("user") or request.cookies("user")="" then
response.redirect "reg.asp"
end if%>
<table width="76%" height="172" border="1" cellpadding="2" cellspacing="3" bordercolor="#CCCCCC">
<tr>
<td height="30%" colspan="2"><div align="center"><span class="STYLE1">找回密码（第二步）</span></div></td>
</tr>
<form action="" method="post" name="form2" id="form10">
<input type="hidden" name="formTime" >
<tr class="tBody1">
<td width="20%"><div align="center"><span class="STYLE1"><b>新的密码:</b></span></div></td>
<td width="80%">
<span class="STYLE1">
<input name="pw" type="password" size="20">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td><div align="center"><b class="STYLE1"> 重复密码：</b></div></td>
<td><span class="STYLE1">
<input name="pw2" type="password" size="20" />
</span></td>
</tr>
<tr class="tBody1">
<td width="20%" height="42" class="STYLE1"><div align="center"><strong>验证码：</strong></div></td>
<td width="80%"><input name="code2" type="text" size="10" maxlength="4">
<img src="ctda/GetCode.asp?a=reg" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='ctda/GetCode.asp?a=login'" onKeyPress="if ((event.keyCode<48 &&event.keyCode!=13) || event.keyCode>57) event.returnValue=false"></td>
</tr>
<tr class="tBody1">
<td height="13" colspan="2"><div align="center"><span class="STYLE1"></span>
<span class="STYLE1">
<input name="send2" type="submit" value=" 确定 ">
<input name="Submit2" type="reset" value=" 取消 ">
</span></div></td>
</tr>
</form>
</table><%
if request("send2")=" 确定 " then
pw=request.form("pw")
pw2=request.form("pw2")
Code2=trim(request.form("code2"))
if pw="" or pw2="" then
Response.Write("<script language=javascript>alert('密码不为空！');location='pwlose.asp?lose=ly2' </script>")
end if
if session("GetCode_reg")<>Code2 then
Response.Write("<script language=javascript>alert('认证码错误!!!！');location='pwlose.asp?lose=ly2' </script>")
response.end
end if
if pw<>pw2 then
Response.Write("<script language=javascript>alert('两次输入的密码不相同!！');location='pwlose.asp?lose=ly2' </script>")
end if
pw=md5(pw) '模拟使用MD5加密
rs("pw")=pw
rs.update
Response.Write "<script language=JavaScript>{alert('修改成功，请重新登陆！');location='login.asp'}</script>"
response.redirect "login.asp"
rsc.close
set rsc=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end Sub%>
</p>
</div>
<hr size="5">
<!--#include file="guise/foot.asp"-->
</body>
</html>
高手帮忙看看.高分!
完整代码加我QQ:48993263
谢谢!
<%opendb%>
<!--#include file="dbpath.asp"-->
<!--#include file="ctda/md5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="guise/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<!--#include file="guise/top.asp"-->
<hr size="5">
<script language="javascript" src="guise/adnwlife.js">
</script>
<div align="center">
<%call pagecontent()%>
<%Function pagecontent()
SessionName=trim(request("lose"))
Select Case SessionName
Case "l1"
call newkey0()
Case "ly2"
call newkey()
End Select
End Function %>
<%Sub newkey0()%>
<table width="76%" height="262" border="4" cellpadding="4" cellspacing="1" bordercolor="#999999" bgcolor="#000000" class="tInner">
<tr class="tCate" align="center">
<td colspan="2" class="STYLE1">找回密码（第一步）</td>
</tr>
<form action="" method="post" name="form1" id="form10">
<input type="hidden" name="formTime" >
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>登录用户名:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="user" type="text" size="20" maxlength="20">
(必填) (登陆论坛的ID)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>用户昵称:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="name" type="text" size="20" maxlength="20">
(必填) (显示的名字)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>信箱:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="email" type="text" size="35">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td width="20%"><span class="STYLE1"> <b>安全码:</b></span></td>
<td width="80%">
<span class="STYLE1">
<input name="ukey" type="text" size="20">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td><b class="STYLE1"> QQ:</b></td>
<td><span class="STYLE1">
<input name="qq" type="text" value="123456789" size="20" maxlength="9" />
</span></td>
</tr>
<tr class="tBody1">
<td width="20%" class="STYLE1"> <strong>验证码：</strong></td>
<td width="80%"><input name="code1" type="text" size="10" maxlength="4">
<img src="ctda/GetCode.asp?a=login" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='ctda/GetCode.asp?a=login'" onKeyPress="if ((event.keyCode<48 &&event.keyCode!=13) || event.keyCode>57) event.returnValue=false"></td>
</tr>
<tr class="tBody1">
<td height="13" colspan="2"><div align="center"><span class="STYLE1"></span>
<span class="STYLE1">
<input name="send" type="submit" value=" 确定 ">
<input name="Submit2" type="reset" value=" 取消 ">
</span></div></td>
</tr>
</form>
</table>
<%if request("send")=" 确定 " then
user=request.form("user")
email=request.form("email")
ukey=request.form("ukey")
qq=request.form("qq")
name=request.form("name")
Code=trim(request.form("code1"))
'**********检查是否填写了所有项，如果不是侧自动返回申请页面
if user="" or email="" or name="" or qq="" or ukey="" then
errmsg=errmsg & "△ 请填写必填内容！\n"
end if
if cstr(session("GetCode_login"))<>cstr(Code) then
Response.Write("<script language=javascript>alert('认证码错误！');location='pwlose.asp?lose=l1' </script>")
response.end
end if
if InStr(email,"@")=0 or InStr(email,".")=0 or InStr(email,"@.")<>0 or InStr(email,"=")<>0 or InStr(email," ")<>0 or InStr(email,",")<>0 then
Response.Write "<script language=JavaScript>{alert('E-mail未输入或格式有误，请查看!');history.back();}</script>"
Response.End
end if
if InStr(user," or ")<>0 or InStr(user,"'")<>0 or InStr(user,"`")<>0 or InStr(user,"=")<>0 or InStr(user,"-")<>0 or InStr(user,",")<>0 or InStr(user," and ")<>0 then
Response.Write "<script language=JavaScript>{alert('用户名含有非法字符！');history.back();}</script>"
Response.End
end if
'**********检查用户名.如果有重复用户名侧自动返回申请页面
dim rsc,errmsg,rsc2,errmsg2
set rsc=server.createobject("adodb.recordset")
sqlc="select * from user where user='"&user&"'"
rsc.open sqlc,conn,1,1
if not rsc.eof then
if email=rsc("email") and ukey=rsc("ukey") and name=rsc("name") and qq=rsc("qq") then
response.cookies("user")=rsc("user")
response.cookies("pwok")=rsc("id")
session("id")=rsc("id")
response.redirect "pwlose.asp?lose=ly2"
else
errmsg2=errmsg2 & "△ 请检查您输入的所有个人资料，其中有错误！\n"
end if
else
errmsg=errmsg & "△ 此用户不存在！\n"
end if
if errmsg<>"" then
Conn.Close
Set conn = nothing
Set rsc = nothing
response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
response.end
end if
if errmsg2<>"" then
Conn.Close
Set conn2 = nothing
Set rsc2 = nothing
response.write("<script>alert('" & errmsg2 & "');history.go(-1)</script>")
response.end
end if
end if
'**********检查结束**********
%>
<%end sub
Sub newkey()
id=rsc("id")
set rs=server.createobject("adodb.recordset")
sql="select * from user where id='"&id&"'"
rs.open sql,conn,1,3
if request.cookies("pwok")<>rs("id") or request.cookies("pwok")="" or request.cookies("user")<>rs("user") or request.cookies("user")="" then
response.redirect "reg.asp"
end if%>
<table width="76%" height="172" border="1" cellpadding="2" cellspacing="3" bordercolor="#CCCCCC">
<tr>
<td height="30%" colspan="2"><div align="center"><span class="STYLE1">找回密码（第二步）</span></div></td>
</tr>
<form action="" method="post" name="form2" id="form10">
<input type="hidden" name="formTime" >
<tr class="tBody1">
<td width="20%"><div align="center"><span class="STYLE1"><b>新的密码:</b></span></div></td>
<td width="80%">
<span class="STYLE1">
<input name="pw" type="password" size="20">
(必填)</span></td>
</tr>
<tr class="tBody1">
<td><div align="center"><b class="STYLE1"> 重复密码：</b></div></td>
<td><span class="STYLE1">
<input name="pw2" type="password" size="20" />
</span></td>
</tr>
<tr class="tBody1">
<td width="20%" height="42" class="STYLE1"><div align="center"><strong>验证码：</strong></div></td>
<td width="80%"><input name="code2" type="text" size="10" maxlength="4">
<img src="ctda/GetCode.asp?a=reg" alt= "验证码,看不清楚?请点击刷新验证码" style="cursor : pointer;" onClick="this.src='ctda/GetCode.asp?a=login'" onKeyPress="if ((event.keyCode<48 &&event.keyCode!=13) || event.keyCode>57) event.returnValue=false"></td>
</tr>
<tr class="tBody1">
<td height="13" colspan="2"><div align="center"><span class="STYLE1"></span>
<span class="STYLE1">
<input name="send2" type="submit" value=" 确定 ">
<input name="Submit2" type="reset" value=" 取消 ">
</span></div></td>
</tr>
</form>
</table><%
if request("send2")=" 确定 " then
pw=request.form("pw")
pw2=request.form("pw2")
Code2=trim(request.form("code2"))
if pw="" or pw2="" then
Response.Write("<script language=javascript>alert('密码不为空！');location='pwlose.asp?lose=ly2' </script>")
end if
if session("GetCode_reg")<>Code2 then
Response.Write("<script language=javascript>alert('认证码错误!!!！');location='pwlose.asp?lose=ly2' </script>")
response.end
end if
if pw<>pw2 then
Response.Write("<script language=javascript>alert('两次输入的密码不相同!！');location='pwlose.asp?lose=ly2' </script>")
end if
pw=md5(pw) '模拟使用MD5加密
rs("pw")=pw
rs.update
Response.Write "<script language=JavaScript>{alert('修改成功，请重新登陆！');location='login.asp'}</script>"
response.redirect "login.asp"
rsc.close
set rsc=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end Sub%>
</p>
</div>
<hr size="5">
<!--#include file="guise/foot.asp"-->
</body>
</html>