return_book.asp
来自「新手第一次做系统」· ASP 代码 · 共 81 行
ASP
81 行
<!-- #include file="conn.asp" -->
<body bgcolor="">
<SCRIPT LANGUAGE="vbScript">
<!--
Sub return(ID)
f1.hid_ID.value=ID
f1.action="return_book.asp"
f1.submit
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="160">借阅时间</TD>
<TD width="180">截止时间</TD>
<TD width="80">操作</TD>
</TR>
<%
Dim str,str1,str2,ID
ID=request("hid_ID")
'response.write ID
If ID<>"" Then
Set rec=conn.execute("select * from readers where ID='"&ID&"'")
'改变图书状态
conn.execute("update book set book_state=0 where book_ID='"&rec(1)&"'")
'改变用户状态
conn.execute("update [user] set User_Number=User_Number-1 where user_ID='"&rec(2)&"'")
'改变还书状态
conn.execute("update readers set book_return=1,book_number=1 where ID='"&ID&"'")
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'取数据
Set rec=conn.execute("select * from readers")
Do While Not rec.eof
'取图书名
Set rec1=conn.execute("select book_name from book where book_id='"&rec(1)&"'")
'取用户名
Set rec2=conn.execute("select user_name from [user] where user_id='"&rec(2)&"'")
%>
<TR>
<TD height="35"><%=rec1(0)%></TD>
<TD><%=rec2(0)%></TD>
<TD><%=rec(3)%></TD>
<TD><%=rec(4)%></TD>
<%
Dim str3
str3="select Book_return from readers where ID='" & rec(0) & "'"
Set recmy=conn.execute(str3)
If recmy(0)=0 then
%>
<td><A href="#" onclick="return(<%=rec(0)%>)">归还</a></td>
<%
Else
%>
<td><FONT COLOR="red">已归还</FONT></a></td>
<%
End if
%>
</TR>
<%
rec.movenext
Loop
%>
</TABLE>
</FORM>
</body>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?