📄 my_borrow.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%'
'从u表中取数据
dim uid
uid=request("id")
if uid<>"" then
sql="select * from u where id="&uid
set rs=db.execute(sql)
'从loans表中取数据
sql1="select distinct * from loans,book where uid="&uid&" and loans.bid=book.id"
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql1,db,1,3
%><title><%=rs("name")%>借书情况</title>
<div>用户<%=rs("name")%>,已借书<%=rs("loan_num")%>本,还可以借<%=8-rs("loan_num")%>本.详细情况如下:</div><br>
<table width="88%" border="0" align="center" cellspacing="0">
<tr align="center" valign="middle" >
<td >图书名</td>
<td >分类</td>
<td>出版社</td>
<td>价格</td>
<td>日期</td>
<td>已借时间</td><td>操作</td>
</tr>
<%do while not rs1.eof%>
<tr align="center">
<td height="26"><%=rs1("bookname")%></td>
<td height="26"><a href="book.asp?query=books_of_type&booktype=<%=rs1("booktype")%>" target="right" ><%=rs1("booktype")%></a></td>
<td height="26"><a href="publishing.asp?p=<%=rs1("publishing")%>" target="right"><%=rs1("publishing")%></a></td>
<td height="26"><%=rs1("bookmoney")%>元</td>
<td height="26"><%=rs1("time")%></td>
<td height="26"><%=DateDiff("d",rs1("time"),date())%>天
<%if DateDiff("d",rs1("time"),date())>=30 then
response.Write("<b>超期</b>")%>
<%=DateDiff("d",rs1("time"),date())-30 %>天
<%end if%></td>
<td height="26">
<%if session("usertype")="admin" then %><a href="restore_book.asp?id=<%=rs1("id")%>&uid=<%=rs1("uid")%>" target="right">还书</a><%end if%>
<%if session("usertype")="user" then
set qq=db.execute("select * from loans where uid="&rs1("uid")&" and bid="&rs1("bid")&"")
if not qq("loan_") and DateDiff("d",rs1("time"),date())<30 then '没有继借并且没超期
%>
<a href="jijie.asp?bid=<%=rs1("id")%>&uid=<%=rs1("uid")%>" target="right">继借</a>
<%
else
response.Write("记得按时还书哦!")
end if
end if
%></td>
</tr>
<%
rs1.movenext
loop
%>
</table>
<br><br><br>
<div><a href="index.asp" target="right">首页</a>
<a href="javascript:history.go(-1)" target="right">返回</a>
</div>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -