loans.asp

来自「一个简单的图书管理系统！毕业论文」· ASP 代码 · 共 58 行

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%'导出借书记录表
sql="select * from loans"
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 width="666" align="center" >
  <tr>
    <td>用户名</td>
    <td>图书名</td>
    <td>借出时间</td>
	<td>应还时间</td>
	<td>是否超期</td>
	<td>罚金</td>
	<td>操作</td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td><%'导出用户名
	sql1="select * from u where id="&rs("uid")&""
	set rs1=server.CreateObject("adodb.recordset")
	rs1.open sql1,db,1,3
	%><%=rs1("name")%></td>
    <td>
	<%'导出图书名
	sql2="select * from book where id="&rs("bid")&""
	set rs2=server.CreateObject("adodb.recordset")
	rs2.open sql2,db,1,3
	%><%=rs2("bookname")%>
	</td>
    <td><%=rs("time")%></td>
	<td><%=rs("time")+30%></td>
	<td>
	<%'if datediff("d",rs("time"),date)>=30 then 
	'response.Write("超期 "&datediff("d",rs("time"),date)&" 天")
	'else
	'response.Write("无")
	'end if
	chaoqi()%></td>
	<td><%if datediff("d",rs("time"),date)>=30 then 
	response.Write(""&datediff("d",rs("time"),date)*1&" 元")
	else
	response.Write("无")
	end if%></td>
	<td><%if datediff("d",rs("time"),date)>=30 then %>
	<input  type="button" value="还书" onclick="return   confirm('罚金是否已交?')?location.href='restore_book.asp?id=<%=rs("bid")%>&uid=<%=rs("uid")%>':false;"> 
	<%else%><a href="restore_book.asp?id=<%=rs("bid")%>&uid=<%=rs("uid")%>">还书</a><%end if%>
</td>
  </tr><%rs.Movenext 
  loop%>
</table>
<%end if%>