adminright.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

if i/3=i\3 then response.write"</tr>"
rs.movenext
next
rs.close
set rs=nothing%>
</tr> 
</table>
<%case"newbbslink"
id=checknum(request.querystring("id"))
conn.execute("update bbslink set new=0 where id="&id&"")
call send("此连接通过审核。")
%>

<%case"addlinkform"%><form method="POST" action="adminright.asp?action=addlm">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
  <tr>
    <td width="30%" height="28">&nbsp;论坛联盟名称：</td>
    <td width="70%">&nbsp;<input type="text" name="name" size="50"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟URL：</td>
    <td>&nbsp;<input type="text" name="url" size="50"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟LOGO：</td>
    <td>&nbsp;<input type="text" name="picurl" size="50"></td>
  </tr>
  <tr>
    <td valign="top">
    <p style="margin: 4">论坛联盟介绍：</td>
    <td>
    <p style="margin: 4">
    <textarea name="readme" cols="60" rows="5" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">论坛联盟显示方式：</td>
    <td>　<input type="radio" name="bbslinktype" value="1" checked>文字 
    <input type="radio" name="bbslinktype" value="2">图片</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" height="35" align="center">
    <input type="submit" value="     确  认  添  加     " name="B1"></td>
  </tr>
</table></form>
<%case"delbbslink"
id=checknum(request.querystring("id"))
conn.execute("delete*from bbslink where id="&id&"")
call send("删除成功。")
%>
<%case"addlm"
name=Replace(Request.Form("name"),"'","")
url=Replace(Request.Form("url"),"'","''")
picurl=Replace(Request.Form("picurl"),"'","''")
readme=replace(request.form("readme"),"'","''")
bbslinktype=replace(request.form("bbslinktype"),"'","''")
if name="" or url=""  or instr(name,"[")>0 or instr(name,"]")>0 then
call send("·信息没有填写完整·<br>·您使用了非法字符·")
else
conn.execute("insert into bbslink(url,picurl,name,readme,bbslinktype)values('"&url&"','"&picurl&"','"&name&"','"&readme&"','"&bbslinktype&"')")
call send("添加成功")
end if%>

<%case"editbbslink"
id=checknum(request.querystring("id"))
set rs=conn.execute("select*from bbslink where id="&id&"")
%>
<form method="POST" action="adminright.asp?action=editlm&id=<%=id%>">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
  <tr>
    <td width="30%" height="28">&nbsp;论坛联盟名称：</td>
    <td width="70%">&nbsp;<input type="text" name="name" size="50" value="<%=kbbs(rs("name"))%>"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟URL：</td>
    <td>&nbsp;<input type="text" name="url" size="50" value="<%=kbbs(rs("url"))%>"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟LOGO：</td>
    <td>&nbsp;<input type="text" name="picurl" size="50" value="<%=kbbs(rs("picurl"))%>"></td>
  </tr>
  <tr>
    <td valign="top">
    <p style="margin: 4">论坛联盟介绍：</td>
    <td>
    <p style="margin: 4">
    <textarea name="readme" cols="60" rows="5" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("readme"))%></textarea></td>
  </tr>
<tr>
    <td>
    <p style="margin: 8; ">论坛联盟显示方式：</td>
    <td>　<input type="radio" name="bbslinktype" value="1" <%if checknum(rs("bbslinktype"))=1 then%>checked<%end if%>>文字 
    <input type="radio" name="bbslinktype" value="2" <%if checknum(rs("bbslinktype"))=2 then%>checked<%end if%>>图片</td>
  </tr>
  <tr>
    <td colspan="2" bgcolor="#F4F6FC" height="35" align="center">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table></form>
<%set rs=nothing%>

<%case"editlm"
id=checknum(request.querystring("id"))
name=Replace(Request.Form("name"),"'","")
url=Replace(Request.Form("url"),"'","''")
picurl=Replace(Request.Form("picurl"),"'","''")
readme=replace(request.form("readme"),"'","''")
bbslinktype=replace(request.form("bbslinktype"),"'","''")
if name="" or url=""  or instr(name,"[")>0 or instr(name,"]")>0 then
call send("·信息没有填写完整·<br>·您使用了非法字符·")
else
conn.execute("update bbslink set name='"&name&"',url='"&url&"',picurl='"&picurl&"',readme='"&readme&"',bbslinktype='"&bbslinktype&"' where id="&id&"")
call send("修改成功")
end if
%>
<%case"ip"%><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
  <tr>
    <td class=td2 width="100%" bgcolor="#F4F6FC" height="28" colspan="2" background="pic/titlebg.gif">
    <p style="margin: 4"><font color="#000000"><span style="font-weight: 400">已经被封禁的网段：</span></font></td>
  </tr>
  <%
set rs=server.createobject("adodb.recordset")
sql="select * from lockip"
rs.open sql,conn
do while not rs.eof
%>

  <tr>
    <td width="50%" height="28">
    <p style="line-height: 150%; margin: 4"><%response.write IpDecode(rs("startip"))&"　-　"&IpDecode(rs("endip"))%></td>
    <td width="50%" height="28">&nbsp;
    <a href="adminright.asp?action=delip&id=<%=rs("id")%>">删除</a></td>
  </tr>

<%rs.movenext
loop
rs.close
set rs=nothing
%>  <tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">&nbsp;<span style="font-weight: 400"><font color="#000000">论坛 IP 封锁添加</font></span></td>
  </tr>
   <form method="POST" action="adminright.asp?action=addiplock"><tr>
    <td height="28">&nbsp;起始 IP ：</td>
    <td>　<input type="text" name="startip" size="40"></td>
  </tr>
   <tr>
    <td height="28">&nbsp;结束 IP ：</td>
    <td>　<input type="text" name="endip" size="40"></td>
  </tr><tr>
    <td class=td1 width="100%" colspan="2" bgcolor="#F4F6FC" height="28" align="center">
    <input type="submit" value="     确  认  添  加     " name="B1"></td>
  </tr></form>
</table>
<%case"addiplock"
dim startip1,endip1
startip1=trim(replace(request.form("startip"),"'","''"))
endip1=trim(replace(request.form("endip"),"'","''"))
if endip1="" then endip1=startip1
sql="insert into lockip(startip,endip)values("&IpEncode(startip1)&","&IpEncode(endip1)&")"
conn.execute(sql)
call send("添加成功")
%>
<%case"delip"
id=checknum(request.querystring("id"))
conn.execute("delete * from lockip where id="&id&"")
call send("删除成功")
%>

<%case"setm"%><form method=POST action=adminright.asp?action=setmok>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<tr>
    <td class=td1 width="100%" colspan="2" height="28" background="pic/titlebg.gif">
	<p align="center"><font color="#000000"><span style="font-weight: 400">每日帖士</span></font></td>
  </tr>
  </tr>

  <tr class=td2>
    <td width="40%" bgcolor="#F4F6FC" valign="top">
    <p style="line-height: 150%; margin: 4"><span style="font-weight: 400">
	<font color="#000000">论坛已有贴士的显示效果：</font></span></td>
    <td width="60%" bgcolor="#F4F6FC">
    <p style="line-height: 150%; margin: 4"><span style="font-weight: 400">
	<font color="#000000">论坛已有贴士的代码：<br>清空代码即删除广告。</font></span></td>
  </tr>

<%
dim fso1,openfile,tmpstr,tmp,ad_num,ad_i,ad_tmp
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("../plus/tie.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
for ad_i=1 to ad_num
ad_tmp=replace(tmp(ad_i+8),"b["&ad_i&"].under =","")
ad_tmp=replace(ad_tmp,"'","")
response.write"<tr><td valign=top><p style='line-height: 150%; margin: 4'>"&ad_tmp&"</td><td><p style='line-height: 150%; margin: 4'><textarea  rows=5 cols=60 name=ad_v"&ad_i&" style='font-family: 宋体; font-size: 9pt'>"&ad_tmp&"</textarea></td></tr>"
next
openfile.close
set fso1=nothing
%>  
  <tr>
    <td width="100%" bgcolor="#F4F6FC" colspan="2" height="28">
    　</td>
  </tr>
  <tr>
    <td width="40%" bgcolor="#F4F6FC" valign="top" class=td2>
    <p style="line-height: 150%; margin: 4"><span style="font-weight: 400">
	<font color="#000000">增加贴士：</font></span></td>
    <td width="60%" bgcolor="#F4F6FC">
    <p style="line-height: 150%; margin: 4">
    <textarea row=3 cols=60 name=ad_v<%=ad_num+1%> rows="5" style="font-family: 宋体; font-size: 9pt"></textarea></td>
  </tr>  <tr>
    <td width="100%" bgcolor="#F4F6FC" colspan="2" height="35" align="center">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr>
</table></form>


<%case"setmok"
dim adv_num,ad_msg
set fso1 = server.createobject("scripting.filesystemobject")
Set openfile=fso1.OpenTextFile(Server.MapPath("../plus/tie.js"))
tmpstr=openfile.readall
tmp=split(tmpstr,chr(13)&chr(10))
ad_num=replace(tmp(1),"a = ","")
ad_num=int(replace(ad_num,";if(a==0){a=1}",""))
openfile.close
set fso1=nothing
adv_num=0
for ad_i=1 to ad_num+1
ad_tmp=replace(request.form("ad_v"&ad_i&""),"'","")
if trim(ad_tmp)<>"" or isnull(ad_tmp)then
adv_num=adv_num+1
ad_msg=ad_msg&"b["&adv_num&"].under ='"&ad_tmp&"'"&vbcrlf
end if
next
dim objFSO,objname
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objname=objFSO.CreateTextFile(Server.MapPath("../plus/tie.js"),True)
objname.Write"<!--"&vbcrlf&"a = "&adv_num&";if(a==0){a=1}"&vbcrlf&"var slump = Math.random();"&vbcrlf&"var talet = Math.round(slump * (a-1))+1;"&vbcrlf&"function create() { "&vbcrlf&"this.under = '' "&vbcrlf&"}"&vbcrlf&"b = new Array() "&vbcrlf&"for(var i=1; i<=a; i++) { b[i] = new create() } "&vbcrlf&ad_msg&"var visa = """";"&vbcrlf&"document.write(b[talet].under+'</center>'); "&vbcrlf&"//-->"
objname.close
set objfso=nothing
response.redirect"adminright.asp?action=setm"
%>
<%end select%></td>
  </tr>
</table>
</div>
<%call admindown%>