📄 change.asp
字号:
<%Response.Buffer=true%>
<html>
<head>
<title></title>
</head>
<body bgcolor="#CCFFff">
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbsdb.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Conn.Open connstr
%> <%
sql="SELECT * FROM user WHERE username='BBS管理员' "
Set Rs=conn.Execute(sql)
set No=rs("pois")
if No="" or No<>Request("No") then
%>
<script language=javascript>
<!--
alert("你必须以BBS管理员身份登陆");
window.history.go(-1);
//-->
</script>
<%
else
%> <div align="center"><font size="5">修改管理员密码</font> </div>
<form method="POST" action="change.asp">
<input type="hidden" name="No" value=<%=Request("No")%>>
<table border="0" cellpadding="0" cellspacing="0" width="412"
height="19" bgcolor="#FFCCFF" align="center">
<tr>
<td width="144" height="4"> </td>
<td width="252" height="8"> </td>
</tr>
<tr>
<td width="144" height="4" align="center">原来密码:</td>
<td width="252" height="8">
<input type="password" name="pass1" size="20">
</td>
</tr>
<tr>
<td width="144" height="8" align="center">新的密码:</td>
<td width="252" height="8">
<input type="password" name="pass2" size="20">
</td>
</tr>
<tr>
<td width="144" height="4" align="center">确认新的密码:</td>
<td width="252" height="4">
<input type="password" name="pass3" size="20">
</td>
</tr>
<tr>
<td width="412" height="51" colspan="2">
<input
type="submit" value="确认" name="B1">
<input type="reset" value="重填"
name="B2">
</td>
</tr>
</table>
</form>
<%
B1=Request("B1")
If B1="确认" Then
If Request("pass1")<> Rs("pwd") then
%>
<script language=javascript>
<!--
alert("原来密码不对!");
//-->
</script>
<%
end If
If Request("pass2")<>Request("pass3") Then
%>
<script language=javascript>
<!--
alert("确认错误,请从新确认密码。");
//-->
</script>
<%
end If
If Request("pass2")="" Then
%>
<script language=javascript>
<!--
alert("你至少输入一位以上的密码!");
//-->
</script>
<%
end If
If Request("pass1")=Rs("pwd") and Request("pass2")=Request("pass3") and Request("pass2")<>"" then
sql="UPDATE user SET pwd='" & Request("pass2") & "' WHERE pois='" & Request("No") & "'"
conn.Execute sql
conn.close
Response.clear
%>
<script language=javascript>
<!--
alert("密码修改成功");
window.history.go(-2);
//-->
</script>
<%
end If
End If
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -