📄 admin.asp
字号:
<input name="url" type="text" id="url" value="<%=rs("url")%>" size="25">
<font color=#FF0000>·</font></p>
<p style='MARGIN: 5px'>网址：www.
<input name="webmi" type="text" id="webmi" value="<%=rs("webmi")%>" size="25">
<font color=#FF0000>·例：xxxx.com</font></p>
<p style='MARGIN: 5px'>电话号码：
<input name="tel" type="text" id="tel" value="<%=rs("tel")%>" size="25">
<font color=#FF0000>·客户电话号码</font></p>
<p style='MARGIN: 5px'>邮箱：
<input name="mail" type="text" id="mail" value="<%=rs("mail")%>" size="25">
<font color=#FF0000>·客户邮箱</font></p>
<p style='MARGIN: 5px'>QQ号码：
<input name="qq" type="text" id="qq" value="<%=rs("qq")%>" size="25">
<font color=#FF0000>·客户QQ号</font></p>
<p style='MARGIN: 5px'>备案编号：
<input name="be" type="text" id="be" value="<%=rs("be")%>" size="25">
<font color=#FF0000>·网站备案编号</font></p>
<p style='MARGIN: 5px'>论坛脏话及敏感字、词、短语过滤设置：<br>
（每个要过滤的字、词、短语之间用竖杠"<font color="#FF6600">|</font>"而不是用斜杠"<font color="#FF6600">/</font>"进行分隔，所有贴子符合过滤的将显示为"<font color="#FF6600">***</font>"）<br>
<textarea name="nono" cols="100" rows="4" id="nono"><%=rs("nono")%></textarea>
<font color="#FF0000">·</font></p>
<p style='MARGIN: 4px'>友情连接是否显示：
<input type="radio" value="1" name="lm" <%if rs("lm")<>0 then Response.Write("checked")%>>
显示
<input type="radio" value="0" name="lm" <%if rs("lm")=0 then Response.Write("checked")%>>
不显示<br>
网站开放关闭设置：
<input type="radio" value="0" name="kai" <%if rs("kai")=0 then Response.Write("checked")%>>
开放
<input type="radio" value="1" name="kai" <%if rs("kai")=1 then Response.Write("checked")%>>
全部关闭
<input type="radio" value="2" name="kai" <%if rs("kai")=2 then Response.Write("checked")%>>
论坛关闭发贴 <br>
网站关闭时提示：
<input name="info" type="text" id="info" value="<%=rs("info")%>" size="45" maxlength="50">
<br>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
</p>
</td>
</form>
</tr>
</table>
<%'vip添加
case "bbsvip_add"%>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> <span class="STYLE3"> 认证会员添加</span></td>
</tr>
<form action="?abc=bbsvip_add_yes" method="POST" name="form" id="form">
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>认证会员名称：
<input name="huiyuan" type="text" id="huiyuan" size="25">
必须是已注册的会员<br>
<br>
管理版块：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0 order by id desc")
Response.Write "<select name=lbid class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
rs.close%>
<br>
<br>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
<br>
</td>
</tr>
</form>
</table>
<%'VIP认证会员删除
case "bbsvip_del"%>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr>
<td background="../../images/admin_bg_11.gif" bgcolor="#f1f1f1"> <span class="STYLE3"> 认证会员删除</span></td>
</tr>
<form action="?abc=bbsvip_del_yes" method="POST" name="form" id="form">
<tr>
<td bgcolor="#E8F1FF"> <p style='MARGIN: 5px'>认证会员名称：
<input name="huiyuan" type="text" id="huiyuan" size="25">
<br>
<br>
管理版块：
<%set rs = conn.execute("select lbid,lbname from bbs_lb where qid<>0 order by id desc")
Response.Write "<select name=lbid class=wenbenkuang>"
do while not rs.eof
Response.Write "<option value="&rs("lbid")&">"&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
rs.close%>
<br>
<br>
<input name="B13" type="submit" value=" 提 交 ">
<input name="B23" type="reset" value=" 重 置 ">
<br>
</td>
</tr>
</form>
</table>
<%'vip列表
case "bbsvip"%>
<!--#include file="../../conn/page.asp"-->
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#f1f1f1">
<td width="200" background="../../images/admin_bg_11.gif"><span class="STYLE3">VIP认证会员</span></td>
<td width="200" background="../../images/admin_bg_11.gif"><span class="STYLE3">认证版面</span></td>
<td width="50" background="../../images/admin_bg_11.gif"><span class="STYLE3">删除</span></td>
</tr>
<%if request("del")="yes" then
Set s= Server.CreateObject("abodb.recordset")
conn.execute("Delete bbs_vip where id="&request("id")&"")
end if
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select huiyuan,lbid,id from bbs_vip where lx=0 order by id DESC"
rs.open sql,conn,1,1
if rs.eof then
response.write "<br>暂无"
end if
page1("15")
i=1
while not rs.eof and i<=rs.pagesize
%>
<tr align="center" bgcolor="#FFFFFF">
<td width="200" bgcolor="#E8F1FF"><%=rs(0)%></td>
<td width="200" bgcolor="#E8F1FF"><%=conn.execute("select lbname from bbs_lb where lbid="&rs(1)&"")(0)%></td>
<td width="50" bgcolor="#E8F1FF"><a href="?abc=bbsvip&del=yes&id=<%=rs(2)%>">删除</a></td>
</tr>
<%i=i+1
rs.MoveNext
wend%>
<tr align="center" bgcolor="#FFFFFF">
<td colspan="3" bgcolor="#E8F1FF"><%page2("abc=bbsvip&")
rs.close%></td>
</tr>
</table>
<%rs.close
'论坛管理
case else%>
<br>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr valign="middle">
<form name="form1" method="post" action="?s=yes">
<td width="460" height="25" align="center" background="../../images/admin_bg_11.gif"><span class="STYLE3">关键字:</span>
<input name="key" type="text" id="key" size="15" maxlength="15">
<input name="fw" type="radio" class="wenbenkuang" value="1" checked>
<span class="STYLE3">标题</span>
<input type="radio" name="fw" value="2">
<span class="STYLE3">内容</span>
<input type="radio" name="fw" value="3">
<span class="STYLE3">作者</span> <input name="Submit" type="submit" value="OK,查询"></td>
</form>
<td width="200" height="25" align="center" background="../../images/admin_bg_11.gif">
<%set rs = conn.execute("select lbid,lbname from bbs_lb order by lbid desc")
if not rs.eof then
Response.Write "<select name=""select"" onChange=""if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}"">"
do while not rs.eof
Response.Write "<option value=?lb="&rs("lbid")&""
if request("lb")<>"" then
if rs("lbid")=clng(request("lb")) then Response.Write " selected"
end if
Response.Write ">├ "&rs("lbname")&"</option>"
rs.movenext
loop
Response.Write "</select>"
else
Response.Write "暂无论坛分类"
end if
rs.close%></td>
</tr>
</table>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFFFFF">
<tr valign="middle" bgcolor="#f7f7f7">
<td width="50" height="22" align="center" bgcolor="#E8F1FF">状态</td>
<td width="360" height="22" align="center" bgcolor="#E8F1FF">贴子主题</td>
<td width="100" height="22" align="center" bgcolor="#E8F1FF">作者</td>
<td width="75" height="22" align="center" bgcolor="#E8F1FF">统计</td>
<td width="50" align="center" bgcolor="#E8F1FF">顶置</td>
<td width="50" align="center" bgcolor="#E8F1FF">精华</td>
<td width="50" align="center" bgcolor="#E8F1FF">删除</td>
</tr>
<!--#include file="../../conn/je.asp"-->
<%'处理管理请求
Select case request("x")
case "ding"
if clng(request("ding"))=0 then
ding=1
else
ding=0
end if
conn.execute("Update huiyuan set je2=je2+"&my_je09&" where huiyuan=(select huiyuan from bbs where id="&request("id")&")")
conn.execute("Update bbs set ding="&ding&" where id="&request("id")&"")
case "tui"
if clng(request("tui"))=0 then
tui=1
else
tui=0
end if
Set s= Server.CreateObject("abodb.recordset")
conn.execute("Update huiyuan set je2=je2+"&my_je08&" where huiyuan=(select huiyuan from bbs where id="&request("id")&")")
conn.execute("Update bbs set tui="&tui&" where id="&request("id")&"")
case "del"
conn.execute("Delete bbs where id="&request("id")&"")
End Select
'程序开绐
Set rs=Server.CreateObject("ADODB.Recordset")
if request("s")="yes" and request("key")<>"" and request("fw")<>"" then
Select case clng(request("fw"))
case "3"
fw="huiyuan"
case "2"
fw="nr"
case else
fw="bt"
End Select
Set s= Server.CreateObject("abodb.recordset")
sql="select * from bbs where "&fw&" like '%"&request("key")&"%' order by id desc"
elseif request("lb")<>"" then
sql="select top 1500 * from bbs where lbid="&request("lb")&" order by id desc"
else
sql="select top 1500 * from bbs order by id desc"
end if
rs.open sql,conn,3,1
if not rs.eof then
rs.pagesize = 5
if request("page")="" or isempty(request("page")) then
page = 1
else
page=int(request("page"))
end if
if page>rs.pagecount then
page=rs.pagecount
end if
if not rs.BOF then
Rs.Move Rs.PageSize*(page-1)
end if
i=1
do while not rs.eof and i<=rs.pagesize%>
<tr valign="middle" bgcolor="#FFFFFF">
<td width="50" height="22" align="center" bgcolor="#E8F1FF" tyle="WORD-WRAP: break-word"> <%if rs("bbsid")=0 then
if rs("ding")=1 then
response.write "<img src=../../bbs/image/top.gif>"
elseif rs("tui")=1 then
response.write "<img src=../../bbs/image/good.gif>"
elseif hf>20 then
response.write "<img src=../../bbs/image/hot.gif>"
else
response.write "<img src=../../bbs/image/ok.gif>"
end if
else
response.write "Re"
end if%></td>
<td width="360" height="22" bgcolor="#E8F1FF">
<%if rs("bbsid")=0 then
response.write " <font color=#ff6600>"&rs("bt")&"</font>"
else
response.write " "&rs("bt")&""
end if%></td>
<td width="100" height="22" align="center" bgcolor="#E8F1FF" tyle="WORD-WRAP: break-word"><%=rs("huiyuan")%></td>
<td width="75" height="22" align="center" bgcolor="#E8F1FF" tyle="WORD-WRAP: break-word"><%=rs("js2")%>/<%=rs("js")%></td>
<td width="50" align="center" bgcolor="#E8F1FF"><%if rs("bbsid")=0 then
if rs("ding")=0 then
response.write "<a href=?x=ding&id="&rs("id")&"&ding="&rs("ding")&"&page="&page&">No</a>"
else
response.write "<a href=?x=ding&id="&rs("id")&"&ding="&rs("ding")&"&page="&page&"><font color=#ff6600>Yes</font></a>"
end if
end if%></td>
<td width="50" align="center" bgcolor="#E8F1FF"><%if rs("bbsid")=0 then
if rs("tui")=0 then
response.write "<a href=?x=tui&id="&rs("id")&"&tui="&rs("tui")&"&page="&page&">No</a>"
else
response.write "<a href=?x=tui&id="&rs("id")&"&tui="&rs("tui")&"&page="&page&"><font color=#ff6600>Yes</font></a>"
end if
end if%></td>
<td width="50" align="center" bgcolor="#E8F1FF"><a href=?x=del&id=<%=rs("id")%>&page=<%=page%>>删除</a></td>
</tr>
<tr valign="middle" bgcolor="#FFFFFF">
<td height="100%" colspan="7">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" style="table-layout: fixed; word-wrap: break-word">
<tr>
<td bgcolor="#E8F1FF">[<%=rs("sj")%>,IP:<%=rs("ip")%>]
<%txt = rs("nr")
txt = Replace(txt, chr(32), " ")
txt = Replace(txt, vbCrLf, "<br>")
Response.Write txt
%> </td>
</tr>
</table> </td>
</tr>
<%i=i+1
rs.MoveNext
loop %>
</table>
<table width="99%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name=form method=post action=?lb=<%=request("lb")%>&s=<%=request("s")%>&key=<%=request("key")%>&fw=<%=request("fw")%>>
<tr>
<td width="260" height="30" valign="middle" bgcolor="#E8F1FF"><%
if rs.recordcount<>0 then
if page-1 mod 10=0 then
p=(page-1) \ 10
else
p=(page-1) \ 10
end if
response.write "页次:"& page &"/"& rs.pagecount &"页 每页"& rs.pagesize &" 主题数 "& rs.recordcount &""%></td>
<td width="500" align="right" valign="middle" bgcolor="#E8F1FF"><%if p*10>0 then response.write "<a href='?lb="&request("lb")&"&s="&request("s")&"&key="&request("key")&"&fw="&request("fw")&"&page="&p*10&"' title=上十页>[<<]</a> "
uming_i=1
for ii=p*10+1 to P*10+10
if ii=page then
response.write "<font color=#ff0000>["+Cstr(ii)+"]</font> "
else
response.write "<a href='?lb="&request("lb")&"&s="&request("s")&"&key="&request("key")&"&fw="&request("fw")&"&page="&ii&"'>["+Cstr(ii)+"]</a> "
end if
if ii=rs.pagecount then exit for
uming_i=uming_i+1
next
if ii<=rs.pagecount and uming_i=11 then response.write "<a href='?lb="&request("lb")&"&s="&request("s")&"&key="&request("key")&"&fw="&request("fw")&"&page="&ii&"' title=下十页>[>>]</a> "
response.write(" 跳页：<input type=text name=page size=2 maxlength=3 > <input type=submit name=Submit value=Go >")
end if
rs.close%></td>
</tr></form></table>
<%else
response.write "<tr valign=middle bgcolor=#FFFFFF><td colspan=7 bgcolor=#E8F1FF>该版面暂无贴子</td></tr></table>"
end if
End Select
set s=nothing%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -