📄 restorebook.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/conn.asp" -->
<!--#include file="global.asp" -->
<% checkUser("admin") %>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>会员还书</title>
<link href="images/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td><br>
<form name="form1" method="post" action="restoreBook.asp">
<table width="60%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#333333">
<tr>
<td height="22" colspan="2" class="header"><img src="images/error.gif" width="16" height="16" border=0 align="absmiddle">
会员还书提示信息</td>
</tr>
<tr bgcolor="#F8F8F8">
<td height="50" colspan="2"> <blockquote>
<p>
<%
If Request("bookno")<>"" AND IsNumeric(Request("bookno")) Then
Dim conn,rs,sql,cardno
sql = "Select cardno From Loans WHERE bookno = " & Replace(Request("bookno"), "'", "''")
set conn=server.createobject("ADODB.CONNECTION")
conn.open MM_conn_STRING
Set rs=conn.execute(sql)
If rs.BOF And rs.EOF Then
Response.Write("<font color=red><b>错误！</b></font>编号为“"&Request("bookno")&"”的图书不存在，或没有外借。")
Else
cardno = rs("cardno")
executeUpdate("UPDATE Books SET [number]=[number]+1 WHERE bookno = " & Replace(Request("bookno"), "'", "''") )
executeUpdate("UPDATE Borrowers SET loannum=loannum-1 WHERE cardno="&cardno)
executeDelete("Delete From Loans WHERE bookno = " & Replace(Request("bookno"), "'", "''") )
addLog "","","回收图书，编号为“"&Request("bookno")&"”。"
Response.Write("编号为“"&Request("bookno")&"”的图书已经回收。")
End If
Else
Response.Write("请输入归还的图书编号。")
End If
%>
</p>
</blockquote></td>
</tr>
<tr>
<td height="22" colspan="2" class="header"><img src="images/flag.gif" width="16" height="16" border="0" align="absmiddle">
会员还书管理</td>
</tr>
<tr bgcolor="#f8f8f8">
<td width="27%" height="50">图书编号：</td>
<td width="73%" height="30"> <input name="bookno" type="text" id="bookno" size="40"></td>
</tr>
</table>
<p align="center">
<input type="submit" name="Submit" value="提 交 还 书">
</p>
</form>
<br> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -