mofei_ubb.asp

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

<%
Function UBBDecode(str)
  Dim oReg
  Dim strTmp
  Set oReg=New RegExp
  strTmp=str
  oReg.Global=True
  oReg.IgnoreCase=True
  '下划线
  oReg.Pattern="\[U\]"
  strTmp=oReg.Replace(strTmp,"<U>")
  oReg.Pattern="\[\/U\]"
  strTmp=oReg.Replace(strTmp,"</U>")
'粗体
  oReg.Pattern="\[B\]"
  strTmp=oReg.Replace(strTmp,"<B>")
  oReg.Pattern="\[\/B\]"
  strTmp=oReg.Replace(strTmp,"</B>")
'斜体
  oReg.Pattern="\[I\]"
  strTmp=oReg.Replace(strTmp,"<I>")
  oReg.Pattern="\[\/I\]"
  strTmp=oReg.Replace(strTmp,"</I>")
'删除线
  oReg.Pattern="\[S\]"
  strTmp=oReg.Replace(strTmp,"<STRIKE>")
  oReg.Pattern="\[\/S\]"
  strTmp=oReg.Replace(strTmp,"</STRIKE>")
'上标
  oReg.Pattern="\[SUP\]"
  strTmp=oReg.Replace(strTmp,"<SUP>")
  oReg.Pattern="\[\/SUP\]"
  strTmp=oReg.Replace(strTmp,"</SUP>")
'上标
  oReg.Pattern="\[SUB\]"
  strTmp=oReg.Replace(strTmp,"<SUB>")
  oReg.Pattern="\[\/SUB\]"
  strTmp=oReg.Replace(strTmp,"</SUB>")
'向中看齐
  oReg.Pattern="\[C\]"
  strTmp=oReg.Replace(strTmp,"<CENTER>")
  oReg.Pattern="\[\/C\]"
  strTmp=oReg.Replace(strTmp,"</CENTER>")
  '超链接
  oReg.Pattern="\[URL\=([a-zA-Z0-9\-\_\/\:\.\?\&\%\+\=]+)\](.+)\[\/URL\]"
  strTmp=oReg.Replace(strTmp,"<A HREF=""$1"" TARGET=""_BLANK"">$2</A>")
  '超链接2
  oReg.Pattern="\[URL\]([a-zA-Z0-9\-\_\/\:\.\?\&\%\+\=]+)\[\/URL\]"
  strTmp=oReg.Replace(strTmp,"<A HREF=""$1"" TARGET=""_BLANK"">$1</A>")
  '邮件超链接
  oReg.Pattern="\[MAIL\=([a-zA-Z0-9\-\_\.\?\@]+)\](.+)\[\/MAIL\]"
  strTmp=oReg.Replace(strTmp,"<A HREF=""mailto:$1"">$2</A>")
  '图片
  oReg.Pattern="\[IMG\]([a-zA-Z0-9\-\_\/\:\.\?\&\%\+\=]+)\[\/IMG\]"
  strTmp=oReg.Replace(strTmp,"<IMG SRC=""$1"" BORDER=""0"">")
  '飞行字
  oReg.Pattern="\[FLY\]"
  strTmp=oReg.Replace(strTmp,"<MARQUEE>")
  oReg.Pattern="\[\/FLY\]"
  strTmp=oReg.Replace(strTmp,"</MARQUEE>")
  '字体颜色
  oReg.Pattern="\[COLOR\=(\#[0-9A-Fa-f]{6})\]"
  strTmp=oReg.Replace(strTmp,"<FONT COLOR=""$1"">")
  '字体大小
  oReg.Pattern="\[SIZE\=([1-7])\]"
  strTmp=oReg.Replace(strTmp,"<FONT SIZE=""$1"">")
  '字体名称
  oReg.Pattern="\[FONT\=([^\]\[\s]+)\]"
  strTmp=oReg.Replace(strTmp,"<FONT FACE=""$1"">")
  '字体相关属性结尾
  oReg.Pattern="\[\/COLOR\]"
  strTmp=oReg.Replace(strTmp,"</FONT>")
  oReg.Pattern="\[\/SIZE\]"
  strTmp=oReg.Replace(strTmp,"</FONT>")
  oReg.Pattern="\[\/FONT\]"
  strTmp=oReg.Replace(strTmp,"</FONT>")
  UBBDecode=strTmp
End Function

'过程二
function htmlencode2(str)
    dim result
    dim l
    if isNULL(str) then 
       htmlencode2=""
       exit function
    end if
    l=len(str)
    result=""
	dim i
	for i = 1 to l
	    select case mid(str,i,1)
	           case "<"
	                result=result+"&lt;"
	           case ">"
	                result=result+"&gt;"
              case chr(13)
	                result=result+"<br>"
	           case chr(34)
	                result=result+"&quot;"
	           case "&"
	                result=result+"&amp;"
              case chr(32)	           
	                'result=result+"&nbsp;"
	                if i+1<=l 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	                      
	                      result=result+"&nbsp;"
	                   else
	                      result=result+" "
	                   end if
	                else
	                   result=result+"&nbsp;"	                    
	                end if
	           case chr(9)
	                result=result+"    "
	           case else
	                result=result+mid(str,i,1)
         end select
       next 
       htmlencode2=result
   end function
%>