endmta.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > sendmta.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<!--#include file="sub.asp"-->
<%
contents=contents &"<title>密信群发－"& caption &"</title>"&_
"</head>"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if bbsadmin>3 then
Dim sendto,content,i,rsa,sendtu
sendto=Request.Form("sendto")
content=Trim(contentcode(Request.Form("content"),1))
if sendto<>"" and content<>"" then
Set rsa=Server.CreateObject("ADODB.Recordset")
if sendto="online" then
content="<font class=""del"">由社区管理员 "& gbmaduser &" 发送给全体在线用户的密息：</font><br><br>"& content
rs.Open "Delete From online Where lasttime<#"& Date() &" "& TimeValue(TimeSerial(Hour(Time()),Minute(Time())-10,Second(Time()))) &"# or lasttime<=#"& Date() &"#",conn,1,3
rsa.Open "message Where id=0",conn,1,3
rs.Open "Select gbmaduser From online Where unshow=1 or unshow is Null Order by gbmaduser",conn,1,1
For i=1 to rs.RecordCount
rsa.AddNew
rsa("content")=content
rsa("gbmaduser")=rs("gbmaduser")
rsa("sender")=gbmaduser
rsa("posttime")=Now()
rsa.Update
sendtu=sendtu & rs("gbmaduser") &"、"
rs.MoveNext
Next
rs.Close
rsa.Close
elseif sendto="all" then
content="<font class=""del"">由社区管理员 "& gbmaduser &" 发送给全体用户的密息：</font><br><br>"& content
rsa.Open "message Where id=0",conn,1,3
rs.Open "Select gbmaduser From gbmaduser Where gb>29 Order by gbmaduser",conn,1,1
For i=1 to rs.RecordCount
rsa.AddNew
rsa("content")=content
rsa("gbmaduser")=rs("gbmaduser")
rsa("sender")=gbmaduser
rsa("posttime")=Now()
rsa.Update
sendtu=sendtu & rs("gbmaduser") &"、"
rs.MoveNext
Next
rs.Close
rsa.Close
end if
if sendtu<>"" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">密信群发</td></tr>"&_
"<tr class=""tds""><td>"
if sendto="online" then contents=contents &"已经将密信发给所有在线且"& gbname &"大于30的用户了。<br>"
if sendto="all" then contents=contents &"已经将密信发给所有"& gbname &"大于30的用户了。<br>"
contents=contents &"接收到密信的用户列表如下：<br>"& Left(sendtu,Len(sendtu)-1) &"</td></tr>"
end if
Set rsa=Nothing
end if
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">密信群发</td></tr>"&_
"<tr class=""tds""><td>"&_
"<script language=""JavaScript"">"&_
"function validinput()"&_
"{"&_
"if (document.sendmta.content.value.length==0)"&_
"{"&_
"alert(""请填写好密信内容。"");"&_
"document.sendmta.content.focus();"&_
"return false;"&_
"}"&_
"document.sendmta.button.disabled=""true"";"&_
"return true;"&_
"}"&_
"</script>"&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">"&_
"<form name=""sendmta"" method=""post"" onsubmit=""return validinput();"" action=""sendmta.asp"">"&_
"<tr><td width=""64"">密信对象：</td><td><input type=""radio"" value=""online"" checked name=""sendto""> 在线用户　<input type=""radio"" value=""all"" name=""sendto""> 所有用户　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out""></td></tr>"&_
"<tr><td valign=""top"">密信内容：</td><td><textarea name=""content"" rows=""8"" cols=""53""></textarea></td></tr>"&_
"<tr><td>注意事项：</td><td><br>密信群发时比较消耗系统资源，特别是发给社区所有用户时。另外不会对"& gbname &"小于30的用户发送。<font class=""anonymity"">发送时请耐心等待</font>。</td></tr>"&_
"</form>"&_
"</table>"&_
"</td></tr>"
else
call connclose
Response.Redirect "login.asp"
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->