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

📄 changepass.asp

📁 论坛系统.有注册,修改,留言,删除等功能,简便容易实现.
💻 ASP
字号:
🔍 
<%Response.Buffer=true%>

<style type="text/css">
<!--
#Layer1 {
	position:absolute;
	left:111px;
	top:125px;
	width:163px;
	height:135px;
	z-index:1;
}
-->
</style>
<body bgcolor="#CCCCCC">

<div id="Layer1"> 
  <p><a href="vew.asp?No=<%Response.Write Request("No")%>">讨论区</a></p>
  <p> <a href="admin.asp?No=<%Response.Write Request("No")%>">管理区</a></p>
  <p><a href="leave.asp?No=<%Response.Write Request("No")%>">离开论坛</a> <br>
</p>
</div>
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("bbspp1.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 用户表 WHERE 用户名='论坛管理员' "
Set Rs=conn.Execute(sql)
set No=rs("临时身份")
if No="" or No<>Request("No") then
Response.Write "你必须以管理员身份登陆"
else
%>

<form method="POST" action="changepass.asp">
<input type="hidden" name="No" value=<%=Request("No")%>><p>　</p>
  <div align="center"><center>
    <table border="0" cellpadding="4" cellspacing="12" width="412"
  height="19" bgcolor="#FFFFFF">
    <tr>
      <td width="144" height="4">　　　旧密码:</td>
      <td width="252" height="4"><input type="password" name="pass1" size="20"></td>
    </tr>
    <tr>
      <td width="144" height="8">　　　新密码:</td>
      <td width="252" height="8"><input type="password" name="pass2" size="20"></td>
    </tr>
    <tr>
      <td width="144" height="4">　确认新的密码:</td>
      <td width="252" height="4"><input type="password" name="pass3" size="20"></td>
    </tr>
    <tr>
      <td width="412" height="6" colspan="2">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 　　　 <input
      type="submit" value="确认修改" name="B1">　　　
        <a href="admin.asp">返回</a></td>
    </tr>
  </table>
  </center></div>

</form>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>
<%
B1=Request("B1")
If B1="确认修改" Then 
If Request("pass1")<> Rs("密码") then
Response.Write "原来密码不对!!"
end If
If Request("pass2")<>Request("pass3") Then
Response.Write "确认错误,请从新确认密码。<br>"
end If

If Request("pass2")="" Then
Response.Write "你至少输入一位以上的密码<br>"
end If

If Request("pass1")=Rs("密码") and Request("pass2")=Request("pass3") and Request("pass2")<>"" then
sql="UPDATE 用户表 SET 密码='" & Request("pass2") & "'  WHERE 临时身份='" & Request("No") & "'"
conn.Execute sql
conn.close
Response.clear
Response.Write "密码 修改成功<br>"
end If
End If
End If
%>

⌨️ 快捷键说明

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