admin-right.asp

asp构建网站bbs.采用B/S架构

id=request.querystring("id")
set bbsinfo=myconn.execute("select*from bdinfo where id="&id&"")
%><form action="admin-gl.asp?menu=updatebbs&id=<%=id%>" method="POST">
<%=t1%>修改论坛信息<%=t2&d1%>
<P style='MARGIN: 5px'>论坛序号：<input type="text" name="bn" size="25" value="<%=bbsinfo("bn")%>"><font color="#FF0000">·</font><P style='MARGIN: 5px'>论坛名称：<input type="text" name="bdname" size="25" value="<%=bbsinfo("bdname")%>"><font color="#FF0000">·</font>无限制</p>
<P style='MARGIN: 5px'>标志图片：<input type="text" name="picurl" size="49" value="<%=bbsinfo("picurl")%>">·将显示在论坛的右边，可以不填。</p>
<P style='MARGIN: 5px'>论坛介绍：<br><textarea rows="4" name="bdinfo" cols="58"><%=bbsinfo("bdinfo")%><%
shuyu=cint(bbsinfo("key"))
btype=bbsinfo("type")
set bbsinfo=nothing%></textarea><font color="#FF0000">·</font></p>
<P style='MARGIN: 5px'>属于分类：<select size="1" name="key" style="font-size: 9pt">
<%set bf=myconn.execute("select*from bdinfo where key='0' order by bn")
do while not bf.eof%><%if shuyu=bf("bn") then%><option value="<%=bf("bn")%>" selected><%=bf("bdname")%></option><%else%>
<option value="<%=bf("bn")%>"><%=bf("bdname")%></option><%end if%>
<%
bf.movenext
Loop
bf.Close
set bf=nothing
%>
</select><font color="#FF0000">·</font>请选择该论坛属于哪一种分类</p><br><P style='MARGIN: 4px'>
论坛类型：(请从下面的两项选择一个)<font color="#FF0000">·</font></p><P style='MARGIN: 4px'><input type="radio" value="0" name="bbstype" <%if btype=0 then%>checked<%end if%>>普通论坛
（注册用户和游客可以自由的进入该类型论坛，·推荐·）
<P style='MARGIN: 4px'><input type="radio" value="1" name="bbstype" <%if btype=1 then%>checked<%end if%>>会员论坛（只有注册用户可以自由的进入该类型论坛）
<P style='MARGIN: 4px'><input type="radio" value="2" name="bbstype" <%if btype=2 then%>checked<%end if%>>只读论坛（普通会员不能发帖等，只能浏览）
<P style='MARGIN: 4px'><input type="radio" value="3" name="bbstype" <%if btype=3 then%>checked<%end if%>>认证论坛
（只有版主认证的注册用户才能进入该类型论坛）</p><br>
<P style='MARGIN: 4px'><input type="submit" value=" 提 交 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><br><%=d2%>
</form>
<%case"delall"
bn=request.querystring("bn")
myconn.execute("delete*from bbstl where bd="&bn&"")
atb=split(alltb,"|")
tnum=ubound(atb)
for i=0 to tnum
myconn.execute("delete*from bbs"&atb(i)&" where bd="&bn&"")
next

%><%=t1%>删 除 成 功<%=t2&d1%><P style="MARGIN: 5px"><br>·已经成功的删除了该版面的所有帖子·</p><br><%=d2%>
<%case"tablegl"
atb=split(alltb,"|")
tnum=ubound(atb)
%><form method="POST" action="admin-gl.asp?menu=setautotb">
<%=t1%>数据表管理<%=t2%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=c1%>" width="98%">
  <tr>
    <td width="10%" height="25" bgcolor="<%=c2%>">&nbsp;表名</td>
    <td width="10%" bgcolor="<%=c2%>">&nbsp;帖数</td>
    <td width="10%" bgcolor="<%=c2%>">&nbsp;默认使用</td>
    <td width="70%" bgcolor="<%=c2%>">&nbsp;删 除 （注意：该操作将删除所有相关帖子）</td>
  </tr><%for i=0 to tnum%>
    <tr>
    <td height="25">&nbsp;<img border="0" src="pic/fl.gif"> bbs<%=atb(i)%></td>
    <td>&nbsp;<%=myconn.execute("select count(bbsid)from bbs"&atb(i)&"")(0)%></td>
    <td>&nbsp;<input type="radio" value="<%=atb(i)%>" <%if int(atb(i))=int(autotable) then%>checked<%end if%> name="tablen"></td>
    <td>&nbsp;<a onclick="{if(confirm('确定删除吗？')){return true;}return false;}" href="admin-gl.asp?menu=deltable&ttb=<%=atb(i)%>"><img border="0" src="pic/del.gif"></a></td>
  </tr>
  <%next%>
<tr><td colspan="4" align="center" height="30">
  <input type="submit" value="  提   交  " name="B1"></td></tr>
  </table>
<%=d2%>
</form>
<br>
<form method="POST" action="admin-gl.asp?menu=addtable"><%=t1%>添加数据表<%=t2&d1%><P style="MARGIN: 5px">数据表名称：bbs 
  <input type="text" name="tablen" size="4" value="<%=atb(tnum)+1%>"> ( 请填入数字即可 )
  <input type="submit" value="  提   交  " name="B1"></p><%=d2%></form>
<%case"updateuser"%>
<form action="admin-gl.asp?menu=updateuser" method="POST">
<%=t1%>更改用户资料<%=t2&d1%>
<P style="MARGIN: 5px">用户名：<input type="text" name="chname" size="20">
<input type="submit" value=" 提 交 " name="B1"> 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<%case"chpwd"%>
<form action="admin-gl.asp?menu=chpwd" method="POST">
<%=t1%>更改用户密码<%=t2&d1%><P style="MARGIN: 5px">用户名：<input type="text" name="chaname" size="20"> 新密码：<input type="text" name="chapwd" size="20"> 

<input type="submit" value=" 提 交 " name="B1">
        <input type="reset" value=" 重 置 " name="B2"></p><%=d2%> 
</form>
<%case"delany"%>
<center><font color="#FF0000">注意：使用此功能将永久删除指定的帖子以及公告，删除后不能恢复！请慎重使用！！</font></center>
<form action="admin-gl.asp?menu=delany" method="POST">
<%=t1%>删除指定日期内的帖子<%=t2&d1%>
<P style="MARGIN: 5px">删除多少天前的帖子：( 填数字 ) 
<input type="text" name="daynum" size="19"></p>
<P style="MARGIN: 5px">删除帖子所在的论坛：( 请选择 ) <%=bdlist("bd",1)%></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<form action="admin-gl.asp?menu=delnore" method="POST">
<%=t1%>删除指定日期内没有回复的主题<%=t2&d1%>
<P style="MARGIN: 5px">删除多少天前的帖子：( 填数字 ) 
<input type="text" name="daynum" size="19"></p>
<P style="MARGIN: 5px">删除帖子所在的论坛：( 请选择 ) <%=bdlist("bd",1)%></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form><form action="admin-gl.asp?menu=delwhose" method="POST">
<%=t1%>删除指定用户的所有帖子<%=t2&d1%>
<P style="MARGIN: 5px">删除指定用户的帖子：( 用户名 ) 
<input type="text" name="ddname" size="19"></p>
<P style="MARGIN: 5px">删除帖子所在的论坛：( 请选择 ) <%=bdlist("bd",1)%></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<%case"bbsmail"%>
<center><font color="#FF0000">注意：使用此功能将永久删除指定的邮件，删除后不能恢复！请慎重使用！！</font></center>
<form action="admin-gl.asp?menu=delanymail" method="POST">
<%=t1%>删除指定日期内的留言<%=t2&d1%>
<P style="MARGIN: 5px">删除多少天前的留言：( 填数字 ) 
<input type="text" name="daynum" size="19"></p>
<P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<form action="admin-gl.asp?menu=delwhosemail" method="POST">
<%=t1%>删除指定用户的所有留言<%=t2&d1%>
<P style="MARGIN: 5px">删除指定用户的留言：( 用户名 ) 
<input type="text" name="ddname" size="19"></p>
<P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<%case"hbbbs"%>
<form action="admin-gl.asp?menu=hbbbs" method="POST">
<%=t1%>合并论坛<%=t2&d1%><P style="MARGIN: 10px">把论坛 <%=bdlist("frombd",0)%> 合并到 <%=bdlist("tobd",0)%>
<input type="submit" value=" 合  并 " name="B1"><br><br><font color="#FF0000">注意：合并后，被合并到别的论坛中去的论坛将被删除<%=d2%> </font>
</form>
<%case"moveany"%>
<form action="admin-gl.asp?menu=moveday" method="POST">
<%=t1%>按指定天数移动帖子<%=t2&d1%>
<P style="MARGIN: 5px">移动多少天前的帖子：( 填数字 ) 
<input type="text" name="daynum" size="19"></p>
<P style="MARGIN: 5px">帖子原来所在的论坛：( 请选择 ) 
<%=bdlist("frombd",0)%></p>
<P style="MARGIN: 5px">帖子要移动到的论坛：( 请选择 ) 
<%=bdlist("tobd",0)%></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>
<form action="admin-gl.asp?menu=movename" method="POST">
<%=t1%>按指定用户移动帖子<%=t2&d1%>
<P style="MARGIN: 5px">移动指定用户的帖子：( 用户名 ) 
<input type="text" name="movename" size="19"></p>
<P style="MARGIN: 5px">帖子原来所在的论坛：( 请选择 ) 
<%=bdlist("frombd",0)%></p>
<P style="MARGIN: 5px">帖子要移动到的论坛：( 请选择 ) 
<%=bdlist("tobd",0)%></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">&nbsp; 
<input type="reset" value=" 重 置 " name="B2">&nbsp;<%=d2%></form>

<%case"lm"
url=request.querystring("url")
if trim(url)="" then
%>
<form action="admin-gl.asp?menu=addlm" method="POST">
<%=t1%>添加论坛联盟<%=t2&d1%><P style="MARGIN: 5px">论坛名称：<input type="text" name="name" size="38"><font color="#FF0000">·</font>不可重复，否则删除时会被一起删除！</p>
<P style="MARGIN: 5px">论坛地址：<input type="text" name="url" size="38"></p>
<P style="MARGIN: 5px">论坛图片：<input type="text" name="picurl" size="38"><font color="#FF0000">·</font>留空 为添加“文字链接”</p> 
<P style="MARGIN: 5px"><input type="submit" value=" 添 加 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<form action="admin-gl.asp?menu=dellm" method="POST">
<%=t1%>删除论坛联盟<%=t2&d1%><P style="MARGIN: 5px">论坛名称：<input type="text" name="name" size="20"> 
<input type="submit" value=" 删 除 " name="B1">
<input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%=t1%>论坛联盟列表<%=t2&d1%>
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" width="95%" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
    <td width="17%" height="25" align="center"><b><font color=<%=c1%>>论坛名称</font></b></td>
 
    <td width="43%" align="center"><b><font color=<%=c1%>>论坛LOGO地址</font></b></td>
<td width="10%" align="center"><b><font color=<%=c1%>>编辑</font></b></td>
  </tr>
<%
set lmbbs=myconn.execute("select*from lmbbs")
do while not lmbbs.eof
%><tr>
<td width="17%" height="24"><p align="center"><a href="<%=lmbbs("url")%>" target=_blank><%=lmbbs("name")%></a></td>
<td width="43%"><%=lmbbs("picurl")%></td>
<td width="10%"><p align="center"><a href="admin-right.asp?action=lm&url=<%=lmbbs("url")%>">编辑</a></td>
  </tr><%
lmbbs.movenext
Loop
%>
</table>
  </center>
</div><br>
<%response.write d2
else
set editlm=myconn.execute("select*from lmbbs where url='"&url&"'")
if not editlm.eof then%>
<form action="admin-gl.asp?menu=editlm" method="POST">
<%=t1%>编辑论坛联盟<%=t2&d1%><P style="MARGIN: 5px">论坛名称：<input type="text" name="name" value="<%=server.htmlencode(editlm("name"))%>" size="38"><font color="#FF0000">·</font>不可重复</p>
<P style="MARGIN: 5px">论坛地址：<input type="text" name="url" value="<%=server.htmlencode(editlm("url"))%>" size="38"></p>
<P style="MARGIN: 5px">论坛图片：<input type="text" name="picurl" value="<%=server.htmlencode(editlm("picurl"))%>" size="38"><font color="#FF0000">·</font>留空 为添加“文字链接”</p>
<input type="hidden" name="oldurl" value="<%=server.htmlencode(editlm("url"))%>" size="38">
<P style="MARGIN: 5px"><input type="submit" value=" 修 改 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%
editlm.Close
set editlm=nothing
end if
end if%>

<%end select%>