<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
%>