<%@ LANGUAGE="VBSCRIPT" %> <%=ForumName%>--管理页面 <% if not master then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。" call Error() else dim rs,sql dim topic,mailbody,email dim i i=1 set rs= server.createobject ("adodb.recordset") call main() end if sub main() %> align=center>
    >
    欢迎<%=session("mastername")%>进入管理页面
    <%call leftmenu()%> <% if request("action")="send" then call sendmail() else call mail() end if %>
    <% end sub sub mail() %>
    height=20> 论坛邮件列表
    注意：在完整填写以下表单后点击发送，信息将发送到所有注册时完整填写了信箱的用户，邮件列表的使用将消耗大量的服务器资源，请慎重使用。
    邮件标题：
    邮件内容：
    height=20>  
    <% end sub sub sendmail() if request("topic")="" then Errmsg=Errmsg+"
    "+"
  • 请输入邮件标题。" founderr=true else topic=request("topic") end if if request("content")="" then Errmsg=Errmsg+"
    "+"
  • 请输入邮件内容。" founderr=true else mailbody=request("content") end if if founderr=false then on error resume next sql="select username,useremail from [user]" rs.open sql,conn,1,1 if not rs.eof and not rs.bof then alluser=rs.recordcount do while not rs.eof if rs("useremail")<>"" then email=rs("useremail") if EmailFlag=0 then errmsg=errmsg+"
    "+"
  • 本论坛不支持发送邮件。" exit sub elseif EmailFlag=1 then call jmail(email) elseif EmailFlag=2 then call Cdonts(email) elseif EmailFlag=3 then call aspemail(email) end if i=i+1 end if rs.movenext loop Errmsg=Errmsg+"
    "+"
  • 成功发送"&i&"封邮件。" end if rs.close set rs=nothing conn.close set conn=nothing end if response.write ""&Errmsg&"" end sub %>