editpingbi.asp

可以做论坛

<%@ Language=VBScript %> 
<% Response.Buffer = True %>
<!--#include file="top.asp"-->
<!--#include file="gongneng.asp"-->
<!--#include file="admingongneng.asp"-->
<!--#include file="bottom.asp"-->
<!--#include file="sysinfo.asp"-->

<table width=775 border="0" align="center" cellspacing="0" class="td1">
  <tr> 
    <td align="center" valign="middle"> 
<%
if uzhiwu=100 then '是管理员
ccpingbi="select * from pingbi"
set rlpb=server.createobject("adodb.recordset")
rlpb.open ccpingbi,conn,2,3
cip=request.Form("cip")
ipp=request.Form("linkurl")
if cip="" then
cip="notpingbici"
end if

if ipp<>"" then
if ipp="" then
ipp="notpingbiipp"
end if
conn.Execute("update pingbi set cip='"&cip&"',ipp='"&ipp&"'")
response.redirect"editpingbi.asp"
end if
%>
      <table width="60%"  border="0" align="center" cellspacing="0" >
        <tr>
          <td>·添加或删除要屏蔽的词与IP，在每个IP或词之间要加“|”最后与最前不能有“|”，否则不能发贴子；<br>
            ·如果要屏蔽某个网址在屏蔽词输入如：abc.com，不要带www也不要带有http，否则不能完整屏蔽；<br>
            ·如果要屏蔽IP段就输入前面数据，比如完整的IP：192.168.1.2，只输入192.168.1，就可以屏蔽192.168.1.*** 
            这一段IP。</td>
        </tr>
		<tr> 
          <td><form name="form" method="post" action="editpingbi.asp">
              <br>
              要屏蔽的词 
              <textarea name="cip" cols="50" rows="5"><%=rlpb("cip")%></textarea>
              <br>
              要屏蔽的IP
<textarea name="linkurl" cols="50" rows="5"><%=rlpb("ipp")%></textarea>
              <input type="submit" name="Submit" value="修改">
            </form></td>
        </tr>
        
      </table>
<%
else
Response.Write"非管理员不可以操作"
end if
%>
</td></tr></table>
<%
Response.Write""&asptbcopy&""
Response.Flush%>