<% if adminpassword<>session("pass") then response.redirect "admin.asp?menu=login" log(""&Request.ServerVariables("script_name")&"
"&Request.ServerVariables("Query_String")&"
"&Request.form&"") id=int(Request("id")) TimeLimit=HTMLEncode(Request("TimeLimit")) username=HTMLEncode(Request("username")) membercode=HTMLEncode(Request("membercode")) response.write "
" select case Request("menu") case "message" message case "broadcast" broadcast case "sendmail" sendmail case "sendmailok" sendmailok case "messageok" if TimeLimit="" then error2("您没有选择日期！") conn.execute("delete from message where time<"&SqlNowString&"-"&TimeLimit&"") error2("已经将"&TimeLimit&"天以前的短讯息删除了！") case "delmessageuser" if username="" then error2("您没有输入用户名！") conn.execute("delete from message where author='"&username&"' or incept='"&username&"'") error2("已经将"&username&"的短讯息全部删除了！") case "delmessagekey" key=HTMLEncode(Request("key")) if key="" then error2("您没有输入关键词！") conn.execute("delete from message where content like '%"&key&"%'") error2("已经将内容中包含 "&key&" 的短讯息删除了！") case "faction" faction case "editfaction" editfaction case "editfactionok" editfactionok case "delfaction" delfaction case "link" link case "mgtag" mgtag case "linkok" linkok case "tagok" tagok case "editlink" editlink case "edittag" edittag case "editlinkok" rs.Open "select * from link where id="&id&"",conn,1,3 rs("name")=Request("name") rs("url")=Request("url") rs("logo")=Request("logo") rs("intro")=Request("intro") rs.update rs.close %>编 辑 成 功 ！

< 返 回 ><% case "edittagok" rs.Open "select * from mgtag where id="&id&"",conn,1,3 rs("tagname")=Request("tagname") rs("tagurl")=Request("tagurl") rs.update rs.close %>编 辑 成 功 ！

< 返 回 ><% case "dellink" conn.execute("delete from link where id="&id&"") link case "deltag" conn.execute("delete from mgtag where id="&id&"") mgtag end select sub sendmail %>

群发邮件
   主题： 接收对象：    

<% end sub sub sendmailok if Request("title")="" then error2("请填写邮件主题") if Request("content")="" then error2("请填写邮件内容") if membercode<>"" then sql="select usermail from user where membercode="&membercode&"" else sql="select usermail from user" end if Set Rs=Conn.Execute(sql) do while not rs.eof mailaddress=""&rs("usermail")&"" mailtopic=Request("title") body=""&Request("content")&""&vbCrlf&""&vbCrlf&"该邮件通过 BBSxp 群发系统发送　程序制作：Yuzi工作室(http://www.yuzi.net)" %><% rs.movenext loop rs.close response.write "邮件发送成功！" end sub sub message %> 数据库共有 <%=conn.execute("Select count(id)from message")(0)%> 条短讯息

批量删除短消息
批量删除 的短讯息
批量删除内容含有 的短讯息
删除 天以前的短讯息
系统广播 接收对象：
<% end sub sub broadcast content=HTMLEncode(Request.Form("content")) if content="" then error2("请填写广播内容!") if membercode<>"" then sql="select username from user where membercode="&membercode&"" else sql="select username from online where username<>''" end if Set Rs=Conn.Execute(sql) do while not rs.eof Count=Count+1 conn.Execute("insert into message (author,incept,content) values ('"&Request.Cookies("username")&"','"&rs("username")&"','【系统广播】："&content&"')") conn.execute("update user set newmessage=newmessage+1 where username='"&rs("username")&"'") rs.movenext loop rs.close %> 发布成功

共发送给 <%=Count%> 位在线用户

返 回 <% end sub sub link %>
　■ 友情链接管理
论坛名称： 地址URL：
论坛简介： 图标URL：
　■ 友情链接
<% rs.Open "link",Conn do while not rs.eof if rs("logo")="" or rs("logo")="http://" then link1=link1+"编辑
删除
')"&Chr(34)&" title='"&rs("intro")&"' href="&rs("url")&" target=_blank>"&rs("name")&"　　" else link2=link2+"编辑
删除
')"&Chr(34)&" title='"&rs("name")&""&chr(10)&""&rs("intro")&"' href="&rs("url")&" target=_blank>　　" end if rs.movenext loop rs.close %> <%=link1%>

<%=link2%>
<% end sub sub mgtag %>
　■ 标签管理
标签名称： 标签URL：
　■ 标签链接
<% rs.Open "mgtag",Conn do while not rs.eof tag1=tag1+"编辑
删除
')"&Chr(34)&" title='"&rs("tagname")&"' href="&rs("tagurl")&" target=_blank>"&rs("tagname")&"　　" rs.movenext loop rs.close %> <%=tag1%>

<% end sub sub edittag sql="Select * From mgtag where id="&id&"" Set Rs=Conn.Execute(sql) %>
>
　■ 标签链接管理
标签名称："> 地址URL：">

< 返 回 > <% end sub sub editlink sql="Select * From link where id="&id&"" Set Rs=Conn.Execute(sql) %>

>
　■ 友情链接管理
论坛名称："> 地址URL：">
论坛简介："> 图标URL：">

< 返 回 > <% end sub sub linkok if Request("url")="http://" or Request("url")="" then error2("论坛URL没有填写") rs.Open "link",conn,1,3 rs.addnew rs("name")=Request("name") rs("url")=Request("url") rs("logo")=Request("logo") rs("intro")=Request("intro") rs.update rs.close link end sub sub tagok if Request("tagurl")="http://" or Request("tagurl")="" then error2("标签URL没有填写") rs.Open "mgtag",conn,1,3 rs.addnew rs("tagname")=Request("tagname") rs("tagurl")=Request("tagurl") rs.update rs.close mgtag end sub sub faction %> > <% sql="select * from faction order by addtime Desc" pagesetup=20 '设定每页的显示数量 TotalPage=getPageCount(sql,pagesetup) '总页数 PageCount = cint(Request.QueryString("ToPage")) if PageCount > TotalPage then PageCount = TotalPage if PageCount <1 then PageCount = 1 sql=sql&" limit "&(pagecount-1)*pagesetup&","&pagesetup '跳转到指定页数 i=0 rs.Open sql,Conn,1 Do While Not RS.EOF i=i+1%> <% RS.MoveNext loop RS.Close %>
派别 公告 创始人 管理
><%=rs("factionname")%> <%=rs("tenet")%> "><%=rs("buildman")%> ">修改资料 ">删除帮派
[ <% ShowPage TotalPage,PageCount,"menu=faction" %> ] <% end sub sub editfaction sql="select * from faction where id="&id&"" Set Rs=Conn.Execute(SQL) %>

>
门派设定
　　帮派简称： "> 最多7个字符
　　帮派名称： ">
　　帮主名称： ">
　　帮派公告： ">

< 返 回 > <% end sub sub editfactionok factionname=HTMLEncode(Request("factionname")) allname=HTMLEncode(Request("allname")) tenet=HTMLEncode(Request("tenet")) buildman=HTMLEncode(Request("buildman")) if factionname="" then error2("帮派简称没有填写") if allname="" then error2("帮派名称没有填写") if buildman="" then error2("帮主不能没有填写") sql="select * from faction where id="&id&"" rs.Open sql,Conn,1,3 oldfactionname=rs("factionname") rs("factionname")=factionname rs("allname")=allname rs("buildman")=buildman rs("tenet")=tenet rs.update rs.close conn.execute("update user set faction='"&factionname&"' where faction='"&oldfactionname&"'") faction end sub sub delfaction sql="select * from faction where id="&id&"" Set Rs1=Conn.Execute(sql) conn.execute("update user set faction='' where faction='"&rs1("factionname")&"'") set rs1=nothing conn.execute("delete from faction where id="&id&"") faction end sub htmlend %>