msg.asp

一个简单的图书管理系统

<link href="style.css" type="text/css" rel="stylesheet">
<!--#include file="conn.asp"-->
<%if request("act")="all_send_msg" then
dim loan_time '现在时间和借书时间相差三十天则超期
loan_time = dateserial(year(date),month(date),day(date)-30)'转换日期格式2007-3-31，函数参考topic.csdn.net 
sql2="select book.bookname as b_name,book.booktype as booktype,* from loans,u ,book where loans.time not between '"&loan_time&"' and '"&date&"'  and u.id=loans.uid and book.id=loans.bid "
set rs2=db.execute(sql2)
dim uid,content
uid=rs2("uid")
response.Write("提交的数据（测试是否设置好）<br>")
do while not rs2.eof 
uid=rs2("uid")
content=""&rs2("name")&",你借的{"&rs2("b_name")&"}一书已经超期"&datediff("d",rs2("time"),date())-30&"天了，快点还咯<br>"
response.Write(uid&":"&content)'测试是否设置好了
sql="insert into msg(content,uid) values('"&content&"','"&uid&"')"
db.execute(sql)
rs2.movenext
loop
response.write "<script>alert('群发消息成功！');window.location.href='lock.asp'</script>"
else
response.Write"提交的数据（测试是否设置好）<br>"&request("content")&""
sql="insert into msg(uid,content) values('"&request("uid")&"','"&request("content")&"')"
db.execute(sql)
response.write "<script>alert('发消息成功！');window.location.href='lock.asp'</script>"
end if
%>