mofei_re2.asp

功能说明： 1.支持UBB 2.支持版主回复. 3.支持留言删除. 4.支持管理密码修改. 5.管理员可查看留言网友IP地址. 6.过滤"<"">"字符带来的安全隐患. 后台

<%@ language="VBScript"%>
<!--#include file="conn.asp"-->
<!--#include file="mofei_ubb.asp"-->
<%
if not session("mofeichenck")="true" then
response.redirect("mofei_login.asp")
else%>
<%remofei1=Request.form("remofei001")
if remofei1="" then%>
<p></p>
<p></p>
<table border="0" cellpadding="0" cellspacing="0" width="600" align="center" bgcolor="#FFFFFF">
    <tr>
      <td height="25" background="mofeiimg/login_bg.gif">
        <p align="center"><b><font size="3" color="#FFFF00">: : 将乐留言本 
        : : 发现错误</font></b></td>
    </tr>
    <tr>
      <td height="30">
   请<a href="javascript：history.go(-1)">后退</a>填写完整资料!        
       </td>      
    </tr>      
    <tr>      
      <td height="30" bgcolor="#F9F9F9">            
       <img border="0" src="mofeiimg/login_stop.gif"><font  color="#FF0000">您的回复内容没有填!</font>      
      </td>      
    </tr>      
    <tr>      
      <td height="30">     
          
      </td>      
    </tr>           
  </table>
<%else
Set rs=Server.CreateObject("ADODB.RecordSet")
exec="select * from mofeibook where id="&request("id")
rs.open exec,conn,1,3
remofei1=htmlencode2(remofei1)
remofei1=UBBDecode(remofei1)
rs("retime_")=cstr(now())
rs("remofei_")=remofei1
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<%response.redirect("mofei_admin.asp")%>
<%end if%>
<%end if%>