<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%>