?? restore_book.asp
字號:
<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="確定">
<input type="reset" value="重來">
<a href="loans.asp" target="right">查看所有借出情況</a>
</form></div>
<%end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -