adm_msg_op.asp

来自「基本功能: 1.网友留言 2.留言可以选择悄悄话 3.管理员后台管理留言 4.可」· ASP 代码 · 共 62 行

<!--#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")
title=request.form("title")
contents=chhtml(request.form("contents"))
is_admin=request.form("is_admin")
exec="insert into message(nick_name,oicq,face,title,contents,is_admin)values('"+nick_name+"','"+oicq+"','"+face+"','"+title+"','"+contents+"','"+is_admin+"')"
conn.execute exec
conn.close
set conn=nothing
response.Redirect "admin_index.asp" 
%>