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

📄 pwdmodify.asp

📁 在线图书馆系统 包括VB程序设计的后台与ASP的网页
💻 ASP
字号:
<!--#include file="conn.asp" -->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上图书馆</title>
</head>

<body style="text-align: center" link="#FF0000" bgcolor="#2487E1">
<%  action=request("action")
    If action=1 Then
       if trim(Request("ReaderID"))<>trim(Session("ReaderID")) then
			Response.Write ("<Script language=> window.alert('只能修改自己的密码,请重新登录!');window.location.href='index.asp'</Script>")
       else
	        sql="select * from reader where readerID='" & Request("ReaderID") & "' AND Password='" & Request("OldPWD") & "'"
            set rs=conn.Execute(sql)
            If rs.eof Then
        	     Response.Write "<Script language=VBScript>Msgbox(""借书证号或密码错误!"")</Script>"
		         action=0
            Else
		        If Request("NewPWD")=Request("AffirmPWD") Then
		            rs.Close
		            set rs=Nothing
		            sql="Update Reader set Password='" & Request("NewPWD") & "' where readerID='" & Request("ReaderID") &"'"
		            set Rs=conn.Execute(sql)
		            Session("ReaderId")=""
		            Response.Write "<Script>window.alert('密码修改成功,请重新登录!');window.location.href='index.asp';</Script>"
		        Else
		            Response.Write "<Script language=VBScript>Msgbox(""确认密码错误!"")</Script>"
			        action=0
		        End If
		    End If
	   End If
   End If
%>
<form method="POST" action=PWDModify.asp?action=1>
<table border="0" width="100%" height="25" bgcolor="#2487E1" id="table1" >
<tr><td> <p align="center">
<img border="0" src="image/top.jpg" width="725"  height="59"></td>
</tr></table>
<table border="1" width="100%" height="25" bgcolor="#2487E1" 
bordercolor="#C0C0C0"> <tr>
<td align="center" bgcolor="#2487E1"><b><font color="#FFFFFF" size="2">
<a href="Select.asp"><font color="#FFFFFF">图书检索</font></a></font></b></td>
<td align="center" bgcolor="#2487E1"><b><font color="#FFFFFF" size="2">
<a href="BorrowCase.asp"><font color="#FFFFFF">状态查询</font></a></font></b></td>
<td align="center" bgcolor="#2487E1"><b><font color="#FFFFFF" size="2">
<a href="PWDModify.asp"><font color="#FFFFFF">修改密码</font></a></font></b></td>
<td align="center" bgcolor="#2487E1"><b><font color="#FFFFFF" size="2">
     <a href=index.asp><font color="#FFFFFF">退出登录</font></a></font></b></td></tr></table>
<table border="1" width="43%" id="table1" height="241">
	<tr><td colspan="2" align="center" height="59" bgcolor="#000099"><b>
			<font color="#FFFFFF">修改密码</font></b></td></tr>
	<tr><td align="center" width="35%" bgcolor="#CCFFFF">借书证号</td>
		<td align="center" width="49%" bgcolor="#CCFFFF">
			<input type="text" name="ReaderID"    size="24"></td>	</tr>
	<tr><td align="center" width="35%" bgcolor="#CCFFFF">旧 密 码</td>
		<td align="center" width="49%" bgcolor="#CCFFFF">
<input type="password"   name="OldPWD" size="26"></td></tr>
	<tr><td align="center" width="35%" bgcolor="#CCFFFF">新 密 码</td>
		<td align="center" width="49%" bgcolor="#CCFFFF">
<input type="password"   name="NewPWD" size="26"></td></tr>
	<tr><td align="center" width="35%" bgcolor="#CCFFFF">确认密码</td>
		<td align="center" width="49%" bgcolor="#CCFFFF">
<input type="password"    name="AffirmPWD" size="26"></td></tr>
	<tr><td width="84%" align="center" bgcolor="#CCFFFF" colspan="2"><input type="submit" value="确  定" name="B1">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <input type="reset" value="取  消" name="B2"></td></tr>
</table></form></body></html>

⌨️ 快捷键说明

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