📄 admin-right.asp
字号:
<%set bbs=nothing%>
<%case"chbbsinfo"
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 min where bd="&bn&"")
%><%=t1%>删 除 成 功<%=t2&d1%><P style="MARGIN: 5px"><br>·已经成功的删除了该版面的所有帖子·</p><br><%=d2%>
<%case"updateuser"%>
<form action="admin-gl.asp?menu=updateuser" method="POST">
<%=t1%>更改用户资料<%=t2&d1%>
<P style="MARGIN: 5px">用户名：<input type="text" name="chname" size="19"></p>
<P style="MARGIN: 5px">金 钱：<input type="text" name="chqian" size="10">
魅 力：<input type="text" name="chmeili" size="10">
经 验：<input type="text" name="chjingyan" size="10"></p><P style="MARGIN: 5px"><input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=d2%></form>
<%case"seepwd"%>
<form action="admin.gl.asp?menu=lookpwd" method="POST">
<%=t1%>查看用户密码<%=t2&d1%><P style="MARGIN: 5px">用户名：<input type="text" name="chaname" size="20">
<input type="submit" value=" 提 交 " name="B1">
<input type="reset" value=" 重 置 " name="B2"></p><%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=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">
<input type="reset" value=" 重 置 " name="B2"> <%=d2%></form>
<%case"lm"%>
<form action="admin-gl.asp?menu=addlm" method="POST">
<%=t1%>添加论坛联盟<%=t2&d1%><P style="MARGIN: 5px">论坛名称：<input type="text" name="name" size="20"></p>
<P style="MARGIN: 5px">论坛地址：<input type="text" name="url" size="38"></p>
<P style="MARGIN: 5px">论坛图片：<input type="text" name="picurl" size="38"></p>
<P style="MARGIN: 5px"><input type="submit" value=" 添 加 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%=t1%>现有论坛联盟<%=t2&d1%><P style="MARGIN: 5px">
<%set slm=myconn.execute("select*from lmbbs")
do while not slm.eof
ha=slm("name")
response.write"<table border=0 cellpadding=0 cellspacing=0 style='border-collapse: collapse' width=100% height=18><tr><td width=33% >"&kbbs(ha)&"</td>"
response.write"<td width='33%'><a href='admin-gl.asp?menu=dellm&name="&kbbs(ha)&"'>删除</a></td><td width='34%'><a href='?action=editlm&name="&kbbs(ha)&"'>编辑</a></td></tr></table>"
slm.movenext
loop
set slm=nothing
%></p><%=d2%>
<%case"editlm"
name=Replace(Request.querystring("name"),"'","''")
set elm=myconn.execute("select*from lmbbs where name='"&name&"'")
%>
<form action="admin-gl.asp?menu=editlm&name=<%=kbbs(elm("name"))%>" method="POST">
<%=t1%>编辑论坛联盟<%=t2&d1%><P style="MARGIN: 5px">论坛名称：<%=kbbs(elm("name"))%></p>
<P style="MARGIN: 5px">论坛地址：<input type="text" name="url" size="38" value="<%=elm("url")%>"></p>
<P style="MARGIN: 5px">论坛图片：<input type="text" name="picurl" size="38" value="<%=elm("picurl")%>"></p>
<P style="MARGIN: 5px"><input type="submit" value=" 修 改 " name="B1"> <input type="reset" value=" 重 置 " name="B2"></p><%=d2%>
</form>
<%set elm=nothing%>
<%end select
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -