lock.asp

一个简单的图书管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%'想法：从loans表导出时间超期的数据 更改系统时间来实现超期~ 管理员验证 分页显示 管理员发消息提醒还书
if session("usertype")<>"admin" then 
response.write "<script>alert('不是管理员,请先登陆! ');window.location.href='go.asp'</script>"
end if
dim loan_time '现在时间和借书时间相差三十天则超期
loan_time = dateserial(year(date),month(date),day(date)-30)'转换日期格式2007-3-31，函数参考topic.csdn.net 
sql1="select * from loans"
set rs1=db.execute(sql1)
sql2="select book.bookname as b_name,book.booktype as booktype,* from loans,u ,book where loans.time <  '"&loan_time&"'  and u.id=loans.uid and book.id=loans.bid "
set rs2=db.execute(sql2)
%>
 <%if rs2.eof then
    response.write "现在没有超期的"
  else%>
<table width="666" border="1" align="center">
  <tr>
    <td>用户id</td>
    <td>用户名</td>
	<td>所借图书</td>
	<td>图书所属分类</td>
    <td>超期时间</td>
	<td>罚金</td>
	<td>操作</td>
  </tr>
   <%do while not rs2.eof %>
  <tr>
    <td><%=rs2("uid")%></td>
	<td><a href="my_borrow.asp?id=<%=rs2("uid")%>" title="查看<%=rs2("name")%>借书详情" target="right"><%=rs2("name")%></a></td>
	<td><%=rs2("b_name")%></td>	
	<td><%=rs2("booktype")%></td>
	<td><%=datediff("d",rs2("time"),date())-30%>天</td>
	<td><%=(datediff("d",rs2("time"),date())-30)*3%>元</td>
	<td>
	<%
	qq="select * from u where id="&rs2("uid")&""
    set q1=db.execute(qq)
	if q1("lock") then 
	response.Write("该用户已被锁定")
	else%>
	<a href="user.asp?query=type_mod&mod=yes&id=<%=rs2("uid")%>&islock=True&name=<%=rs2("name")%>&pwd=<%=rs2("pwd")%>" target="right">锁定</a>
    <%end if%>
	<a href="msg.asp?uid=<%=rs2("uid")%>&content=<%=rs2("name")%>,你借的{<%=rs2("b_name")%>}一书已经超期<%=datediff("d",rs2("time"),date())-30%>天了,每天的罚金是RMB3元咯" title="发消息提醒下咯">催书</a></td>
  </tr>
  <%rs2.movenext
  loop%>
</table> <br> <div><a href="msg.asp?act=all_send_msg" target="right">群发消息</a>
  <%end if%>&nbsp;&nbsp;&nbsp; <a href="index.asp" target="right">首页</a>
&nbsp;&nbsp;&nbsp;<a href="javascript:history.go(-1)" target="right">返回</a>
</div>