editshow.asp

可以做论坛

<%@ Language=VBScript %> 
<%Response.Buffer = True %>
<!--#include file="user.asp"--> 
<!--#include file="top.asp"--> 
<!--#include file="bottom.asp"--> 
<!--#include file="asptbfunction.asp"--> 
<!--#include file="shhtm.asp"--> 
<!--#include file="listhtml.asp"--> 
<!--#include file="gongneng.asp"-->
<title>编辑</title>
<script language=javascript>
ie = (document.all)? true:false
if (ie){
function ctlent(eventobject){if(event.ctrlKey && window.event.keyCode==13){this.document.form.submit();}}
}
function textCount(obj,a_limit){
  if (obj.value.length > a_limit) {
obj.value = obj.value.substring(0,a_limit);
      }
  else {
document.form.remLen.value = obj.value.length;
       }
  }
</script>
<table width="775" border="0" align="center" cellspacing="0" class=td4>
  <tr>
    <td>>>>编辑贴子</td>
  </tr>
</table>

<%
if uzhiwu>1 then
if ulock=1 then 
Response.Write "此用户"&ubm&" 非法操作已被屏蔽"
else
addip=request("addip")
if addip="" then '屏蔽IP
saved=request("saved")
edit=request("edit")
if saved="" then
cne="select * from neirong  where ids="&edit
set rsed=server.createobject("adodb.recordset")
rsed.open cne,conn,1,1
if rsed("layer")=1 then
zhuti=rsed("zhuti")
zhuti=Replace(zhuti, "<", "&lt;")
end if

neirong=rsed("neirong")
neirong=Replace(neirong, "<", "&lt;")
pic=rsed("pic")
%>
<table width="775" border="0" align="center" cellspacing="0">
  <tr>
    <td>
	<form name="form" method="post" action="editshow.asp?edit=<%=edit%>&saved=<%=edit%>">
	    <table width="100%" border="0" align="center" cellspacing="0">
          <% if rsed("layer")=1 then%>
          <tr> 
            <td>主 题：</td>
            <td><input name=zhuti type="text" value="<%=zhuti%>" size="70">
              (2-100个字)</td>
          </tr>
          <%end if%>
          <tr> 
            <td>内 容：</td>
            <td> <textarea name="neirong" cols="80" rows="8" onPropertyChange="textCount(this,15000)" onkeydown=ctlent()><%=neirong%></textarea> 
              <br>
              您已经输入了:
              <input name=remLen value=0 readonly type=text size=4 maxlength=3 style="border: 0; color: red">
              个字(1-15000个字) </td>
          </tr>
          <tr> 
            <td>图 片：</td>
            <td><input name="pic" type="text" value="<%=pic%>" size="70" onkeydown=ctlent()></td>
          </tr>
          <tr> 
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="重置"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%
else '保存修改
zhuti=request.form("zhuti")
neirong=request.form("neirong")
pic=request.form("pic")
if zhuti="" then 
conn.Execute("update neirong set neirong='"&neirong&"',pic='"&pic&"' where ids="&request("saved"))
cneto="select * from neirong  where ids="&request("saved")
set rsedto=server.createobject("adodb.recordset")
rsedto.open cneto,conn,1,1
response.redirect "show.asp?ids="&rsedto("huiid")
rsedto.close
set rsedto=nothing
else
conn.Execute("update neirong set zhuti='"&zhuti&"',neirong='"&neirong&"',pic='"&pic&"' where ids="&request("saved"))
response.redirect "show.asp?ids="&request("saved")
end if
end if '保存修改
else '屏蔽IP
cneto="select * from neirong  where ids="&request("addip")
set rsedto=server.createobject("adodb.recordset")
rsedto.open cneto,conn,1,1
zzip=rsedto("huiip")
if rsedto("layer")=1 then
zuozheidy=rsedto("zuozhe")
else
zuozheidy=rsedto("huizz")
end if
cczh="select * from user where idy="&zuozheidy
set rszh=server.createobject("adodb.recordset")
rszh.open cczh,conn,1,1
if not rszh.eof then
zzzhiwu=rszh("zhiwu")
else 
zzzhiwu=0
end if
if zzzhiwu<100 then '不是管理员的IP
cnip="select * from pingbi"
set rsip=server.createobject("adodb.recordset")
rsip.open cnip,conn,1,1
yuanip=rsip("ipp")
yon=0
call addtoip(yuanip,zzip,yon)
if yon>0 then
response.write"<div align=center><font color=#FF0000>此ip:"&zzip&"已被屏蔽，要解开请与管理员联系 [ <a href=show.asp?ids="&rsedto("huiid")&">返回</a> ]</font></div>"
else
yuanip=yuanip&"|"&zzip
conn.Execute("update pingbi set ipp='"&yuanip&"'")
response.redirect "show.asp?ids="&rsedto("huiid")
end if '未屏蔽就加入屏蔽
else
response.write"<div align=center><font color=#FF0000>不能屏蔽管理员IP [ <a href=show.asp?ids="&rsedto("huiid")&">返回</a> ]</font></div>"
end if
end if '屏蔽IP
end if '屏蔽用户
else '是版主以上
response.write"非法操作<a href=./>返回</a>"
end if
Response.Write""&asptbcopy&""
Response.Flush %>