adminright.asp

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

    <td>　<textarea name="sms" cols="50" rows="3" style="font-family: 宋体; font-size: 9pt"><%=kbbs(rs("sms"))%></textarea></td>
  </tr>
  <tr>
    <td colspan="2" height="40" bgcolor="#F4F6FC" align="center">
    <p style="line-height: 125%; margin: 5">
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr></form>
</table>
</div>
<%set rs=nothing%>
<%case"editbbs"
for i=1 to 27
bbsinfo=bbsinfo&"|"&Replace(Request.Form("b_"&i&""),"|","│")
next
bbsinfo=Replace(Request.Form("b_0"),"|","│")&bbsinfo
bbsinfo=replace(bbsinfo,"'","")
uploadtype=Replace(Request.Form("uploadtype"),"'","''")
badwords=Replace(Request.Form("badwords"),"'","''")
postcode=Replace(Request.Form("postcode"),"'","''")
badcontent=Replace(Request.Form("badcontent"),"'","''")
sms=Replace(Request.Form("sms"),"'","''")
conn.execute("update [config] set bbsinfo='"&bbsinfo&"',postcode='"&postcode&"',sms='"&sms&"',uploadtype='"&uploadtype&"',badwords='"&badwords&"',badcontent='"&badcontent&"'")
call send("修改成功。")
application(prefix&"thebbslink")=""
%>
<%case"openbbsyn"
set rs=conn.execute("select offbbsinfo from config")
offbbsinfo=rs("offbbsinfo")%>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#cad6eb" width="90%">
<form method="POST" action="adminright.asp?action=editonoff"><tr>
    <td width="100%" colspan="2" background="pic/titlebg.gif" height="26">
    <p align="center">论坛开关</td>
  </tr>
  	<tr>
    <td width="25%">
    <p style="line-height: 125%; margin: 5">论坛状态：</td>
    <td width="75%"><input type="radio" name="obbs" value="1" <%if isnull(offbbsinfo) or offbbsinfo="" then%>checked<%end if%>>开 
    <input type="radio" name="obbs" value="2" <%if offbbsinfo<>"" then%>checked<%end if%>>关</td>
  </tr>
  <tr>
    <td valign="top">
    <p style="line-height: 125%; margin: 5">关闭时显示信息：<br>支持 html</td>
    <td>
    <p style="margin: 6">
    <textarea name="offinfo" cols="60" rows="7" style="font-family: 宋体; font-size: 9pt"><%=kbbs(offbbsinfo)%></textarea></td>
  </tr>
  <tr>
    <td colspan="2" align="center" height="30" bgcolor="#F4F6FC">
    <p>
    <input type="submit" value="     确  认  修  改     " name="B1"></td>
  </tr></form>
</table></div>
<%set rs=nothing%>
<%case"editonoff"
obbs=checknum(Request.Form("obbs"))
if obbs=1 then offbbsinfo=""
if obbs=2 then offbbsinfo=Replace(Request.Form("offinfo"),"'","")
conn.execute("update [config] set offbbsinfo='"&offbbsinfo&"'")
call send("修改成功。")
%>
<%case"gonggaogl"
sql="select * from paper order by id desc"
set rs = server.createobject("adodb.recordset")
rs.Open sql,conn,1
count=rs.recordcount
%><SCRIPT src=../inc/menu.js></script>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%" bordercolor="#cad6eb">
    <tr class=td2>
		<td width="90%" height="26" bgcolor="#F4F6FC" colspan="5" background="pic/titlebg.gif">
		<p align="center">　<span style="font-weight: 400"><font color="#000000">公告管理</font></span></td>
      </tr>
    <tr class=td2><td width="35%" height=28 bgcolor="#F4F6FC">
		<p align="center"><font color="#000000"><span style="font-weight: 400">&nbsp;公告标题：</span></font></td>
      <td width="10%" bgcolor="#F4F6FC">
		<p align="center"><font color="#000000"><span style="font-weight: 400">&nbsp;发表者：</span></font></td>
      <td width="25%" bgcolor="#F4F6FC">
		<p align="center"><font color="#000000"><span style="font-weight: 400">&nbsp;发表时间：</span></font></td>
      <td width="20%" bgcolor="#F4F6FC">
		<p align="center"><font color="#000000"><span style="font-weight: 400">&nbsp;所在版面：</span></font></td>
      <td width="10%" bgcolor="#F4F6FC">
		<p align="center"><font color="#000000"><span style="font-weight: 400">&nbsp;操作：</span></font></td></tr>
<%
for i=1 to count
paper=rs("paper")
paper=split(paper,"|")
%><tr><td width="35%">
  <p style="margin: 4"><img src="../pic/fl.gif" border="0"> <a href=# onclick=openscript('../paper.asp?id=<%=rs("id")%>')><%=lefttrue(kbbs(paper(0)),20)%></a></td>
  <td width="10%">
	<p align="center">&nbsp;<%=kbbs(paper(1))%></td><td width="25%">
		<p align="center">&nbsp;<%=paper(2)%></td>
  <td width="20%">
	<p align="center">&nbsp;<%
  if rs("bd")=0 then
  response.write"论坛首页"
  else
  response.write split(conn.execute("select top 1 bdinfo from bdinfo where id="&rs("bd")&" and followid<>0")(0),"|")(0)
  end if%></td>
  <td width="10%">
	<p align="center">&nbsp;<a title='删除' href="adminright.asp?action=delgg&id=<%=rs("id")%>"><img border="0" src="../pic/del.gif"></a> &nbsp;
  <a title='编辑' href="adminright2.asp?action=editgg&id=<%=rs("id")%>"> <img border="0" src="../pic/edit.gif"></a></td></tr><%
  rs.movenext
  next%>
        <tr><td width="100%" height=22 bgcolor="#FFFFFF" colspan="5">
			&nbsp;<img src="../pic/fl.gif" border="0"><b><font color="#346AE4">
			</font></b><a href=adminright.asp?action=addnewgg>发布公告</a></td>
      </tr></table>

<%
rs.close
set rs=nothing%>
<%
case"delgg"
id=checknum(request.querystring("id"))
conn.execute("delete*from paper where id="&id&"")
call send("删除成功。")
%>

<%case"addnewgg"%>
<SCRIPT src=../inc/ybbcode.js></script>
<SCRIPT>function openwin()
{
document.form1.topic.value=document.topic.ggtitle.value;
document.form1.content.value=document.topic.content.value;
var popupWin = window.open('../paper.asp?action=preview', 'showgg', 'width=500,height=400,resizable=1,scrollbars=yes,menubar=no,status=yes');
document.form1.submit()
}
</SCRIPT>
<form method="POST" action="adminright.asp?action=savegg" name="topic">
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%" height="26">
    <div align="center">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="90%"bordercolor="#cad6eb">
      <tr>
        <td width="100%" class=td2 colspan="2" background="pic/titlebg.gif" height="26">
        <p align="center">　<font color="#000000"><span style="font-weight: 400">发表公告</span></font></td>
      </tr>
      <tr>
        <td width="25%" class=td2 height="31">
        <p style="line-height: 120%; margin: 4"><font color="#000000">
		<span style="font-weight: 400">公告标题：</span></font></td>
        <td width="75%" height="31">
        <p style="line-height: 120%; margin: 4">
        <input type="text" name="ggtitle" size="80"></td>
      </tr>
            <tr>
        <td>
        <p style="line-height: 120%; margin: 4">公告位置：<br>如果没有选择，将显示在首页中。</td>
        <td width="70%">
        <p style="line-height: 120%; margin: 4">
<%bdlist()%></td>
      </tr>
      <tr>
        <td valign="top" height="139">
        <p style="line-height: 120%; margin: 4">公告内容：<%call tie%></td>
        <td height="139">
        <p style="margin: 4"><%call adminqian%><p style="margin:4px">     
<textarea rows="9" name="content" cols="60" style="font-family: 宋体; font-size: 9pt" onkeydown=presskey(); onkeyup=gbcount(this.form.content,this.form.total,this.form.used,this.form.remain);></textarea>
        
        <p style="line-height: 150%; margin: 5">
<SCRIPT>
function emoticon(theSmilie){
document.topic.content.value +=theSmilie + '';
document.topic.content.focus();
}

function presskey(eventobject)
{
   if(event.ctrlKey && window.event.keyCode==13){this.document.topic.submit();}else{return false}
   }
</SCRIPT>
</p><br></td>
</tr>
      <tr>
        <td colspan="2" align="center" height="40" bgcolor="#F4F6FC">
        <input class=submit type=submit value=OK_！发送 name=B1>&nbsp;&nbsp;&nbsp; <input class=submit type=button value="预  览！" onclick=openwin()>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=NO_！重写 name=B2>&nbsp; [ 按 Alt+Enter 直接发送 ]</td>
      </tr>
      </table>
    </div>
    </td>
  </tr>
  </table></center>
</div>
</form>
<form name=form1 action=../paper.asp?action=preview method=post target=showgg>
<input type=hidden name=topic value=><input type=hidden name=content value=>
</form>
<%case"savegg"
ggtitle=Replace(Request.Form("ggtitle"),"'","")
ggtitle=replace(ggtitle,"|","│")
ggok=Replace(ggtitle," ","")

content=checkbad(Request.Form("content"))
content=replace(content,"|","│")
content=replace(content,"'","''")
contentok=Replace(content," ","")

thisbbs=checknum(request.form("bd"))

if ggok="" or contentok="" then
call send("<b>对不起！公告发送失败，可能存在以下问题。</b><br>·请填写完整公告标题和公告内容。<br>·<a href='javascript:history.go(-1)'><font color=#ffffff>返回重新填写</font></a>")
else
content2=ggtitle&"|"&lgname&"|"&now()+timeset/24&"|"&content
conn.execute("insert into paper(paper,bd) values('"&content2&"',"&thisbbs&")")
call send("公告发送成功。")
end if
%>
<%case"lm"%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#cad6eb">
  <tr>
    <td width="100%" height="28" bgcolor="#F4F6FC" background="pic/titlebg.gif" colspan="6" class=td2>&nbsp;现有的论坛联盟名称：</td>
  </tr><tr>
<%sql="select * from bbslink where new=0"
set rs = server.createobject("adodb.recordset")
rs.Open sql,conn,1
count=rs.recordcount
for i=1 to count
%>  
    <td width="15%" height="26">&nbsp;<a href='<%=rs("url")%>' title='<%=kbbs(rs("readme"))%>' target=_blank><%=rs("name")%></td>
    <td width=18% >&nbsp;<a title='删除' href="adminright.asp?action=delbbslink&id=<%=rs("id")%>"><img border="0" src="../pic/del.gif"></a> &nbsp;
    <a title="编辑" href="adminright.asp?action=editbbslink&id=<%=rs("id")%>"> <img border="0" src="../pic/edit.gif"></a></td>

<%
if i/3=i\3 then response.write"</tr>"
rs.movenext
next
rs.close
set rs=nothing%>
</tr> 
 <tr>
    <td width="100%" height="35" colspan="6">&nbsp;<img border="0" src="../pic/fl.gif" align="absmiddle"><a href="adminright.asp?action=addlinkform">添加论坛联盟</a></td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#cad6eb">
  <tr>
    <td width="100%" height="28" bgcolor="#F4F6FC" colspan="6" class=td2 background="pic/titlebg.gif">&nbsp;待通过的论坛联盟名称：</td>
  </tr><tr>
<%sql="select * from bbslink where new=1"
set rs = server.createobject("adodb.recordset")
rs.Open sql,conn,1
count=rs.recordcount
for i=1 to count
%>  
    <td width="15%" height="26">&nbsp;<a href='<%=rs("url")%>' title='<%=kbbs(rs("readme"))%>' target=_blank><%=rs("name")%></td>
    <td width=18% >&nbsp;<a title='删除' href="adminright.asp?action=delbbslink&id=<%=rs("id")%>"><img border="0" src="../pic/del.gif"></a> &nbsp;
    <a title="查看此信息" href="adminright.asp?action=editbbslink&id=<%=rs("id")%>"> <img border="0" src="../pic/edit.gif"></a>    <a href="adminright.asp?action=newbbslink&id=<%=rs("id")%>">通过</a></td>

<%