<% dim admin_flag admin_flag="24" if not master or instr(session("flag"),admin_flag)=0 then Errmsg=Errmsg+"
"+"
  • 本页面为管理员专用，请登陆后进入。
  • 您没有管理本页面的权限。" call dvbbs_error() else dim body if Request("action")="add" then call savemsg() elseif request("action")="del" then call del() elseif request("action")="delall" then call delall() elseif request("action")="delchk" then call delchk() else call sendmsg() end if %>

    <%=body%>

    <% conn.close set conn=nothing end if sub savemsg() dim sendtime,sender sendtime=Now() sender=Forum_info(0) set rs = server.CreateObject ("adodb.recordset") select case request("stype") case 1 sql="select username from online where userid>0" rs.open sql,conn,1,1 do while not rs.eof sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.movenext loop rs.close case 2 sql = "select username from [user] where usergroupid=8 order by userid desc" rs.Open sql,conn,1,1 do while not rs.EOF sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.MoveNext Loop rs.Close case 3 sql = "select username from [user] where usergroupid=3 order by userid desc" rs.Open sql,conn,1,1 do while not rs.EOF sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.MoveNext Loop rs.Close case 4 sql = "select username from [user] where usergroupid=1 order by userid desc" rs.Open sql,conn,1,1 do while not rs.EOF sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.MoveNext Loop rs.Close case 5 sql = "select username from [user] where usergroupid<4 order by userid desc" rs.Open sql,conn,1,1 do while not rs.EOF sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.MoveNext Loop rs.Close case 6 sql = "select username from [user] order by userid desc" rs.Open sql,conn,1,1 do while not rs.EOF sql="insert into message(incept,sender,title,content,sendtime,flag,issend) values('"&rs(0)&"','"&sender&"','"&TRim(Request("title"))&"','"&Trim(Request("message"))&"',Now(),0,1)" conn.Execute(sql) rs.MoveNext Loop rs.Close end select set rs=nothing body=body+"
    "+"操作成功！请继续别的操作。" end sub sub sendmsg() %>
    论坛短信管理
    消息标题
    接收方选择

    消息内容

    (HTML代码支持)
    批量删除
    批量删除某用户短消息（主要用于删除系统批量信息：动网小精灵）：
    批量删除用户指定日期内短消息（默认为删除已读信息）：
     包括未读信息
    批量删除含有某关键字短信（注意：本操作将删除所有已读和未读信息）：
    关键字： 在  
    <% end sub sub del() if request("username")="" then body=body+"
    "+"请输入要批量删除的用户名。" exit sub end if sql="delete from message where sender='"&request("username")&"'" conn.Execute(sql) body=body+"
    "+"操作成功！请继续别的操作。" end sub sub delall() dim selflag if request("isread")="yes" then selflag="" else selflag=" and flag=1" end if select case request("delDate") case "all" sql="delete from message where id>0 "&selflag case 7 sql="delete from message where datediff('d',sendtime,Now())>7 "&selflag case 30 sql="delete from message where datediff('d',sendtime,Now())>30 "&selflag case 60 sql="delete from message where datediff('d',sendtime,Now())>60 "&selflag case 180 sql="delete from message where datediff('d',sendtime,Now())>180 "&selflag end select conn.Execute(sql) body=body+"
    "+"操作成功！请继续别的操作。" end sub sub delchk() if request.form("keyword")="" then body="请输入关键字！" exit sub end if if request.form("selaction")=1 then conn.execute("delete from message where title like '%"&replace(request.form("keyword"),"'","")&"%'") body="操作成功！请继续别的操作。" elseif request.form("selaction")=2 then conn.execute("delete from message where content like '%"&replace(request.form("keyword"),"'","")&"%'") body="操作成功！请继续别的操作。" else body="未指定相关参数！" exit sub end if end sub %>