很不错的一个UBB代码

【 tulaoshi.com - Web开发 】

%
Function HTMLEncode(ByVal strValue)
 '忽略错误
 On Error Resume Next
 '定义变量
 Dim strNewValue
 If strValue  "" Then
  strNewValue = Replace(strValue,"","")
  strNewValue = Replace(strNewValue,"","")
  strNewValue = Replace(strNewValue,"'","'")
  strNewValue = Replace(strNewValue,"""",""")
  strNewValue = Replace(strNewValue,vbCrLf,"br")
  strNewValue = Replace(strNewValue," "," ")
 End If
 HTMLEncode = strNewValue
 '输出错误
 If Err.Number0 Then
  Response.Write Err.Description
  Response.End
 End If
End Function

Function UBBCode(strValue) 
Dim RegExp 
'strValue=HTMLEncode(strValue)
Set RegExp=New RegExp 
RegExp.IgnoreCase =True 
RegExp.Global=True 

If strValue  "" Then
RegExp.Pattern="([IMG])(.[^[]*)([/IMG])" 
strValue=RegExp.Replace(strValue,"a href=""$2"" target=_blankIMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.widthscreen.width-333)this.width=screen.width-333""/a") 

RegExp.Pattern="([FLASH])(.[^[]*)([/FLASH])" 
strValue=RegExp.Replace(strValue,"OBJECT codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400 id=ShockwaveFlash1PARAM NAME=movie VALUE=""$2""PARAM NAME=quality VALUE=highembed src=""$2"" quality=high pluginspage=""") ' target=_blank rel=nofollow>http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""appl ... 00 height=400/embed/OBJECT") 

RegExp.Pattern="([ZIP])(.[^[]*)([/ZIP])" 
strValue=RegExp.Replace(strValue,"bra href=""$2""点击下载该文件/a") 

RegExp.Pattern="([RAR])(.[^[]*)([/RAR])" 
strValue=RegExp.Replace(strValue,"bra href=""$2""点击下载该文件/a") 

'RegExp.Pattern="([UPLOAD=(.[^[]*)])(.[^[]*)([/UPLOAD])" 
'strValue=RegExp.Replace(strValue,"brIMG SRC=""$2.gif"" border=0 A HREF=""$3"" TARGET=_blank点击查看或下载该文件/A") 
'strValue=RegExp.Replace(strValue,"brIMG SRC=""$2.gif"" border=0此主题相关图片如下：brA HREF=""$3"" TARGET=_blankIMG SRC=""$3"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.widthscreen.width-333)this.width=screen.width-333""/A") 

RegExp.Pattern="([URL])(http://.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2"" TARGET=_blank$2/A") 

RegExp.Pattern="([URL])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2") ' target=_blank rel=nofollow>http://$2"" TARGET= ... t;/A") 

RegExp.Pattern="(*)])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2"" TARGET=_blank$3/A") 

RegExp.Pattern="([URL=(.[^[]*)])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""[url]http://$2"" TARGET=_blank$3/A") 

RegExp.Pattern="([EMAIL])(S+@.[^[]*)([/EMAIL])" 
strValue=RegExp.Replace(strValue,"A HREF=""mailto:$2""$2/A") 

RegExp.Pattern="([EMAIL=(S+@.[^[]*)])(.[^[]*)([/EMAIL])" 
strValue=RegExp.Replace(strValue,"A HREF=""mailto:$2"" TARGET=_blank$3/A") 

RegExp.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](http://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](mms://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern="([HTML])(.[^[]*)([/HTML])" 
strValue=RegExp.Replace(strValue,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'tdb以下内容为程序代码:/bbr$2/td/table") 

RegExp.Pattern="([code])(.[^[]*)([/code])" 
strValue=RegExp.Replace(strValue,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'tdb以下内容为程序代码:/bbr$2/td/table") 

RegExp.Pattern="([color=(.[^[]*)])(.[^[]*)([/color])" 
strValue=RegExp.Replace(strValue,"font color=$2$3/font") 

RegExp.Pattern="([face=(.[^[]*)])(.[^[]*)([/face])" 
strValue=RegExp.Replace(strValue,"font face=$2$3/font") 

RegExp.Pattern="([align=(.[^[]*)])(.*)([/align])" 
strValue=RegExp.Replace(strValue,"div align=$2$3/div") 

RegExp.Pattern="([QUOTE])(.*)([/QUOTE])" 
strValue=RegExp.Replace(strValue,"table cellpadding=0 cellspacing=0 border=0 WIDTH=94% bgcolor=#000000 align=centertrtdtable width=100% cellpadding=5 cellspacing=1 border=0TRTD BGCOLOR='#FFFFFF'$2/table/tablebr") 

RegExp.Pattern="([fly])(.*)([/fly])" 
strValue=RegExp.Replace(strValue,"marquee width=90% behavior=alternate scrollamount=3$2/marquee") 

RegExp.Pattern="([move])(.*)([/move])" 
strValue=RegExp.Replace(strValue,"MARQUEE scrollamount=3$2/marquee")  

RegExp.Pattern="[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/GLOW]" 
strValue=RegExp.Replace(strValue,"table width=$1 style=""filter:glow(color=$2, strength=$3)""$4/table") 

RegExp.Pattern="[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/SHADOW]" 
strValue=RegExp.Replace(strValue,"table width=$1 style=""filter:shadow(color=$2, strength=$3)""$4/table") 

RegExp.Pattern="([i])(.[^[]*)([/i])" 
strValue=RegExp.Replace(strValue,"i$2/i") 

RegExp.Pattern="([u])(.[^[]*)([/u])" 
strValue=RegExp.Replace(strValue,"u$2/u") 

RegExp.Pattern="([b])(.[^[]*)([/b])" 
strValue=RegExp.Replace(strValue,"b$2/b") 

RegExp.Pattern="([fly])(.[^[]*)([/fly])" 
strValue=RegExp.Replace(strValue,"marquee$2/marquee") 

RegExp.Pattern="([size=1])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=1$2/font") 

RegExp.Pattern="([size=2])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=2$2/font") 

RegExp.Pattern="([size=3])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=3$2/font") 

RegExp.Pattern="([size=4])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=4$2/font") 

RegExp.Pattern="([center])(.[^[]*)([/center])" 
strValue=RegExp.Replace(strValue,"center$2/center") 
End If
Set RegExp=Nothing 
UBBCode=strValue 

'输出错误
If Err.Number0 Then
  Response.Write Err.Description
  Response.End
End If
End Function
%
调用：%=UBBCode(Content)%