add_msg_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

%>

<%
nick_name=request.form("nick_name")
oicq=request.form("oicq")
face=request.form("face")
e_mail=request.form("e_mail")
web_index=request.form("web_index")
title=request.form("title")
contents=chhtml(request.form("contents"))
show=request.form("show")
exec="insert into message(nick_name,oicq,face,web_index,e_mail,title,contents,show)values('"+nick_name+"','"+oicq+"','"+face+"','"+web_index+"','"+e_mail+"','"+title+"','"+contents+"','"+show+"')"
conn.execute exec
conn.close
set conn=nothing
response.Redirect "index.asp" 
%>