reply_op.asp

基本功能: 1.网友留言 2.留言可以选择悄悄话 3.管理员后台管理留言 4.可有多个管理员 5.20个留言形象 6.可设置每页显示最大留言数

<!--#include file="conn1.asp"-->

<%
function chhtml(str)
    dim str_p
    dim str_n
    if isNULL(str) then 
       chhtml=""
       exit function
    end if
    str_n=len(str)
    str_p=""
 dim i
 for i = 1 to str_n
     select case mid(str,i,1)
            case "<"
                 str_p=str_p+"&lt;"
            case ">"
                 str_p=str_p+"&gt;"
              case chr(13)
                 str_p=str_p+"<br>&nbsp;&nbsp;&nbsp;&nbsp;"
            case chr(34)
                 str_p=str_p+"&quot;"
            case "&"
                 str_p=str_p+"&amp;"
              case chr(32)            
                 'str_p=str_p+"&nbsp;"
                 if i+1<=str_n and i-1>0 then
                    if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9)  then                       
                       str_p=str_p+"&nbsp;"
                    else
                       str_p=str_p+" "
                    end if
                 else
                    str_p=str_p+"&nbsp;"                     
                 end if
            case chr(9)
                 str_p=str_p+"    "
            case else
                 str_p=str_p+mid(str,i,1)
         end select
       next 
       chhtml=str_p
   end function

%>

<% 
exec="select * from message where id="&request.form("id")
set data=server.createobject("adodb.recordset")
data.open exec,conn,1,3
data("reply")=chhtml(request.form("reply"))
data.update
data.close
set data=nothing
conn.close
set conn=nothing
response.Redirect "admin_index.asp" 
%>