📄 delay_book.asp
字号:
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub Delay(ID)
If MsgBox("您要续借该图书？(注：只可以需接30天)",vbyesno,"提示!!!")=vbyes Then
f1.hid_ID.value=ID
f1.action="Delay_book.asp"
f1.submit
End If
End sub
//-->
</SCRIPT>
<style>
table tr{text-align:center}
</style>
<FORM METHOD=POST ACTION="" name="f1">
<INPUT TYPE="hidden" name="hid_ID">
<TABLE border="1" bordercolor="#0000000">
<TR>
<TD width="200" height="35">图书名</TD>
<TD width="140">借阅用户</TD>
<TD width="180">借阅时间</TD>
<TD width="180">截止时间</TD>
<TD width="80">操作</TD>
</TR>
<%
Dim str,str1,str2,ID
ID=request("hid_ID")
If ID<>"" Then
Set rec=conn.execute("update readers set Book_Number=1,Book_ToTime=Book_ToTime+30 where ID='" & ID & "'")
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
str="select * from readers"
Set rec=conn.execute(str)
Do While Not rec.eof
str1="select book_name from book where book_id='"&rec(1)&"'"
Set rec1=conn.execute(str1)
str2="select user_name from [user] where user_id='"&rec(2)&"'"
Set rec2=conn.execute(str2)
%>
<TR>
<TD height="35"><%=rec1(0)%></TD>
<TD><%=rec2(0)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<%
Dim str3
str3="select Book_Number from readers where ID='" & rec(0) & "'"
Set recmy=conn.execute(str3)
If recmy(0)=0 then
%>
<td><A href="#" onclick="Delay(<%=rec(0)%>)">续借</a></td>
<%
Else
Set recmy=conn.execute("select Book_return from readers where ID='" & rec(0) & "'")
If recmy(0)=1 then
%>
<td><FONT COLOR="#0000FF">已经归还</FONT></a></td>
<%
Else
%>
<td><FONT COLOR="red">不可续借</FONT></a></td>
<%
End if
%>
<%
End if
%>
</TR>
<%
rec.movenext
Loop
%>
</TABLE>
</FORM>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -