adminright.asp

完美政府版,正版网站解决方案

</SCRIPT>

<form method="POST" action="adminright.asp?action=savegg" name="topicform">
<div align="center">
  <center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
  <tr>
    <td width="100%" height="26">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bordercolor="#F4F6FC">
      <tr>
        <td width="25%" class=td2>
        <p style="line-height: 120%; margin: 4">公告标题：</td>
        <td width="75%">
        <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"><font color="#0466CC"><b>公告位置：</b></font><br>如果没有选择，将显示在首页中。</td>
        <td width="70%">
        <p style="line-height: 120%; margin: 4">
<%bdlist()%></td>
      </tr>
<tr>
        <td  valign="top" width="200">
        <p style="line-height: 150%; margin: 5"><b><font color="#0466CC">帖子内容：</font></b><br>
		<input type="radio" name="usereditor" value="html" onClick="checkeditor('html')" checked>使用Html编辑器<br>
		<input type="radio" name="usereditor" value="ubb" onClick="checkeditor('ubb')">使用UBB编辑器<br>

</td>
<td valign="top" style="padding:5px;">
<input name=content type="hidden">
<SCRIPT src="../Editor/Ubb/UbbEditor.js"></SCRIPT>
<script type="text/javascript" src="../Editor/Html/htmlEditor.js"></script>

<script>

var ubbedit=new UbbEditor("CodeForm",100,14,"default values","../editor/ubb/images/");
ubbedit.showeditor();
</script>


<script type="text/javascript">
var editor = new htmlEditor("editor");
editor.hiddenName = "content";
editor.width = "100%";
editor.height = "300px";
editor.imagePath="../editor/html/images/";
editor.iconPath = '../editor/html/images/face/';
editor.show();

var strlength;

//提交表单
function submitform(){
   	if(htmlsubmit())
   		{document.topicform.submit();}
}

//检测表单
function htmlsubmit() {
	if(document.getElementsByName("usereditor").item(0).checked==true){
		var content = editor.data();
	}
	else if(document.getElementsByName("usereditor").item(1).checked==true){
		checkeditor("html");
		var content = editor.data();
		checkeditor("ubb");
	}
	
		strlength=document.getElementsByName("content").item(0).value.length;
		if (strlength>25600||strlength<5){
			alert("您输入的文章长度为"+strlength+"，长度必须大于5且小于25600，请修正之后再继续。");
			return false;
		}
		else if(document.getElementsByName("ggtitle").item(0).value==""){
			alert("标题不能为空。");
			document.getElementsByName("ggtitle").item(0).focus();
			return false;
		}
		else{
			return true;
		}
}

</script>

</td>
      </tr>      
      <tr>
        <td colspan="2" align="center" height="40" bgcolor="#F4F6FC">
        <input class=submit type=button value=OK_！发送 name=B1 onClick="submitform()">&nbsp;&nbsp;&nbsp; <input class=submit type=button value="预  览！" onclick=preview()>&nbsp;&nbsp;&nbsp; <input class=submit type=reset value=NO_！重写 name=B2>&nbsp; [ 按 Alt+Enter 直接发送 ]</td>
      </tr>
      </table>
    </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="#F4F6FC">
  <tr>
    <td colspan="6" class=td3>&nbsp;现有的论坛联盟名称：</td>
  </tr><tr>
<%sql="select * from bbslink"
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='<%=checktitle(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 class=td3 colspan="6">&nbsp;<b><a href="adminright.asp?action=addlinkform"><u>&gt;&gt;添加论坛联盟</u></a></b></td>
  </tr>
</table>

<%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 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"),"'","''")
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)values('"&url&"','"&picurl&"','"&name&"','"&readme&"')")
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="<%=checkform(rs("name"))%>"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟URL：</td>
    <td>&nbsp;<input type="text" name="url" size="50" value="<%=checkform(rs("url"))%>"></td>
  </tr>
  <tr>
    <td height="28">&nbsp;论坛联盟LOGO：</td>
    <td>&nbsp;<input type="text" name="picurl" size="50" value="<%=checkform(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"><%=checkform(rs("readme"))%></textarea></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"),"'","''")
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&"' where id="&id&"")
call send("修改成功")
end if
%>
<%case"ip"%><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#F4F6FC" width="100%">
    <tr>
    <td class=td3 colspan=2>
    <p style="margin: 4">已经被封禁的网段：</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=td3 colspan=2>论坛 IP 封锁添加</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("删除成功")
%>
<%end select%></td>
  </tr>
</table>
<!--#include file="bottom.asp"-->