📄 readers_book.asp
字号:
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
Sub op1()
If f1.t1.value<>"" and f1.t2.value<>"" Then
f1.action="readers_book.asp?q=1"
f1.submit
else
msgbox"请填写完整的信息"
end if
End Sub
</SCRIPT>
<style>
table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<TABLE align="center">
<TR height="30">
<TD colspan=2><FONT SIZE="5" COLOR="red">借阅图书</FONT></TD>
</TR>
<TR height="30">
<TD>请输入用户编号:</TD>
<TD><INPUT TYPE="text" NAME="t1"></TD>
</TR>
<TR height="40">
<TD width="">请输入图书编号:</TD>
<TD width=""><INPUT TYPE="text" NAME="t2"></TD>
</TR>
<TR>
<td><A HREF="#" onclick="op1()">确定</a></td>
<td><A HREF="#">取消</a></td>
</TR>
</TABLE>
<%
Dim BookID,UserID
UserID=request("t1")
BookID=request("t2")
'response.write UserID & "<br>"
'response.write BookID & "<br>"
If request("q")="1" Then
'查询用户是否存在
Set rec=conn.execute("select * from [user] where user_id='"&UserID&"'")
'查询图书是否存在
Set recmy=conn.execute("select * from book where book_id='"&BookID&"'")
If Not rec.eof and Not recmy.eof Then
'查询用户是否还可以借书
Set rec1=conn.execute("select User_Number from [user] where user_id='"&UserID&"'")
'response.write rec1(0)
If rec1(0)>2 Then
response.write "<FONT SIZE=""4"" COLOR=""#FF0099""><CENTER>该用户已经借书3本!</CENTER></FONT>"
Else
'查询图书是否已经借出
Set rec2=conn.execute("select Book_State from book where book_id='"&BookID&"'")
If rec2(0)=0 Then
'改变用户状态
conn.execute("update [user] set User_Number=User_Number+1 where user_ID='"&userID&"'")
'改变图书状态
conn.execute("update book set book_state=1 where book_ID='"&BookID&"'")
'添加借阅图书
conn.execute("insert into readers(Book_ID,User_ID,Book_Time,Book_ToTime) values('" & BookID & "','" & userID & "',getdate(),getdate()+30)")
'提示成功
response.write"<SCRIPT LANGUAGE='JavaScript'>"
response.write"alert('操作成功!');"
response.write "location.href='readers_book.asp'"
response.write"</SCRIPT>"
Else
response.write "<FONT SIZE=""4"" COLOR=""#FF0099""><CENTER>图书已经借出!</CENTER></FONT>"
End if
End If
Else
response.write "<FONT SIZE=""4"" COLOR=""#FF0099""><CENTER>错误的用户编号或者图书编号!</CENTER></FONT>"
End if
End If
%>
</FORM>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -