restore_book.asp

来自「一个简单的图书管理系统」· ASP 代码 · 共 36 行

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%
if request("id")<>"" and request("uid")<>"" then
dim id,uid
id=request("id")
uid=request("uid")
'验证输入正确性
sql="select * from loans where uid='"&uid&"' and bid='"&id&"'"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,db,1,3
if rs.EOF or rs.BOF then
response.write "<script>alert('输入错误');history.go(-1)</script>"
else
'table book value of num + 1
db.execute("update book set [num]=[num]+1 where id="&id)
'u loan_num -1
db.execute("update u set [loan_num]=[loan_num]-1 where id="&uid)
db.execute("delete from loans where uid="&uid&" and bid="&id ) 
response.write "<script>alert('还书成功咯');history.go(-1)</script>"
response.End()
end if
else
%><div><form action="" method="post">输入用户id
<input name="uid" type="text"  size="15" ><br>输入图书id
<input name="id" type="text"  size="15" ><br>
 <input type="submit"  value="确定">
              &nbsp; 
              <input type="reset"  value="重来">
			  <a href="loans.asp" target="right">查看所有借出情况</a>
</form></div>
<%end if%>