⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 cpass1.asp

📁 多用户个人主页系统(ASP)
💻 ASP
字号:
<%
response.buffer=true
response.expires=0
num=request.querystring("num")
username=request.querystring("username")
if session("xichen_num")<>num or session("xichen_username")<>username or session("xichen_num")="" or session("xichen_username")="" then
%>
<script>alert('您的操作非法,已被系统记录!');location.href='index.asp'</script>     
<%
end if
opassword = trim(request.form("opassword"))
npassword = trim(request.form("npassword"))
rpassword = trim(request.form("rpassword"))
if npassword<>rpassword then
response.clear
response.redirect("error.asp?Error=passerror")
end if
connstr="DBQ="+server.mappath("data/9coolhome.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
set rs=server.CreateObject ("adodb.recordset")
conn.open connstr
sql="select * from user where username='"&username&"' and num="&num
rs.Open sql,conn,1,3
if rs.eof=true then
response.clear
response.redirect("error.asp?Error=perror")
end if
if trim(rs("password"))<>opassword then
response.clear
response.redirect("error.asp?Error=epass")
else
rs("password")= npassword
rs.Update
rs.close
end if
%>
<HTML><HEAD><TITLE>更改密码</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<style type="text/css">
<!--
p,td,input,select,div,tr,body,html{   font-size: 9pt ; }
a {color:#666666;font-size: 9pt;text-decoration:none; }
a:hover {color: #000000;}
a:active {color:#666666;}
-->
</style>
</HEAD>
<BODY bgColor=#ffffff>
<script>alert('密码更改成功!');location.href='javascript:history.back();'</script></BODY></HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -