ubb.asp

不是我做的一个留言板

<%
function UBBCode(strContent)    
	
	UBBStrCnt=strContent
	
	set re = New RegExp	    
	re.Global = True    
	re.IgnoreCase = True    
        

        re.Pattern="(\[IMG\])(.*)(\[\/IMG\])"
	UBBStrCnt= re.Replace(UBBStrCnt,"<IMG SRC=""$2"" BORDER='0'>")
	re.Pattern="(\[\/URL\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/URL]" & VbCrLf)
	re.Pattern="(\[URL\])(.*)(\[\/URL\])"
	UBBStrCnt= re.Replace(UBBStrCnt,"<A HREF=""$2"" TARGET=_blank>$2</A>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")
   	
	re.Pattern="(\[\/bgcolor\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/bgcolor]" & VbCrLf)
   	re.Pattern="\[bgcolor=*(#*[a-z0-9]*),*(#*[a-z0-9]*)\](.*)\[\/bgcolor\]"
   	UBBStrCnt=re.Replace(UBBStrCnt,"<font style=""BACKGROUND-COLOR: $1"" color=$2>$3</font>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

	re.Pattern="(\[\/color\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/color]" & VbCrLf)
   	re.Pattern="\[color=*(#*[a-z0-9]*)\](.*)\[\/color\]"
   	UBBStrCnt=re.Replace(UBBStrCnt,"<font color=""$1"">$2</font>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

	re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
	UBBStrCnt= re.Replace(UBBStrCnt,"<A HREF=""mailto:$2"">$2</A>")
	
	re.Pattern="(\[\/EMAIL\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/EMAIL]" & VbCrLf)
	re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.*)(\[\/EMAIL\])"
	UBBStrCnt= re.Replace(UBBStrCnt,"<A HREF=""mailto:$2"">$3</A>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")
   
    	re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
		re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")

			re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
			UBBStrCnt=re.Replace(UBBStrCnt,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width=$1 height=$2></embed><PARAM NAME=AUTOSTART VALUE=1></object>")

		re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=""" & second(DEF_Now) & "$3""><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=1></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=""" & second(DEF_Now) & "$3""></OBJECT>")
		
		re.Pattern="(\[FLASH\])(http://|ftp://|../)(.[^\[]*)(.swf)(\[\/FLASH\])"

			UBBStrCnt= re.Replace(UBBStrCnt,"<a href=""$2$3$4"" TARGET=_blank><IMG SRC=../images/FileType/swf.gif border=0 align=absmiddle height=16 width=16>[全屏欣赏]</a><br><OBJECT codeBase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2$3$4""><PARAM NAME=quality VALUE=high><embed src=""http://$3$4"" quality=high pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type='application/x-shockwave-flash' width=500 height=400>$2$3$4</embed></OBJECT>")

	
		re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(http://|ftp://|../)(.[^\[]*)(.swf)(\[\/FLASH\])"

			UBBStrCnt= re.Replace(UBBStrCnt,"<a href=""$4$5$6"" TARGET=_blank><IMG SRC=../images/FileType/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a><br><OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=$2 height=$3><PARAM NAME=movie VALUE=""$4$5$6""><PARAM NAME=quality VALUE=high><embed src=""$4$5$6"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=$2 height=$3>$4$5$6</embed></OBJECT>")


		
			re.Pattern="(\[sound\])(.[^\[]*)(\[\/sound\])" 
			UBBStrCnt=re.Replace(UBBStrCnt,"<a href=""$2"" target=_blank><IMG SRC=../images/FileType/mid.gif border=0 alt='背景音乐' height=16 width=16></a><bgsound src=""$2"" loop=""-1"">")


  

	re.Pattern="(\[\/FIELDSET\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/FIELDSET]" & VbCrLf)
   	re.Pattern="\[FIELDSET=(.*)\](.*)\[\/FIELDSET\]"
   	UBBStrCnt=re.Replace(UBBStrCnt,"<FIELDSET><LEGEND>$1</LEGEND>$2</FIELDSET>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")


			re.Pattern="(\[\/GLOW\])"
		UBBStrCnt=re.Replace(UBBStrCnt,"[/GLOW]" & VbCrLf)
		re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/GLOW]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<table glow width=$1><tr><td style=""filter:glow(color=$2, strength=$3)"">$4</td></tr></table glow>")
	   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")
	
		re.Pattern="(\[\/SHADOW\])"
		UBBStrCnt=re.Replace(UBBStrCnt,"[/SHADOW]" & VbCrLf)
	    re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*)\[\/SHADOW]"
	    UBBStrCnt=re.Replace(UBBStrCnt,"<table shadow width=$1><tr><td style=""filter:shadow(color=$2, strength=$3)"">$4</td></tr></table shadow>")
	   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

	re.Pattern="(\[\/FLY\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/FLY]" & VbCrLf)
	re.Pattern="\[FLY\](.*)\[\/FLY]"
	UBBStrCnt=re.Replace(UBBStrCnt,"<MARQUEE>$1</MARQUEE>")
	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

	UBBStrCnt = Replace(UBBStrCnt,"[b]","<b>")
	UBBStrCnt = Replace(UBBStrCnt,"[B]","<b>")
	UBBStrCnt = Replace(UBBStrCnt,"[/b]","</b>")
	UBBStrCnt = Replace(UBBStrCnt,"[/B]","</b>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[u]","<u>")
	UBBStrCnt = Replace(UBBStrCnt,"[U]","<u>")
	UBBStrCnt = Replace(UBBStrCnt,"[/u]","</u>")
	UBBStrCnt = Replace(UBBStrCnt,"[/U]","</u>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[i]","<i>")
	UBBStrCnt = Replace(UBBStrCnt,"[I]","<i>")
	UBBStrCnt = Replace(UBBStrCnt,"[/i]","</i>")
	UBBStrCnt = Replace(UBBStrCnt,"[/I]","</i>")

	re.Pattern="(\[\/align\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/align]" & VbCrLf)
   	re.Pattern="\[align=(center|left|right|justify)\](.*)\[\/align]"
	UBBStrCnt=re.Replace(UBBStrCnt,"<p align=$1>$2</p>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

	re.Pattern="(\[\/size\])"
	UBBStrCnt=re.Replace(UBBStrCnt,"[/size]" & VbCrLf)
	re.Pattern="\[size=*([0-9]*)\](.*)\[\/size]"
	UBBStrCnt=re.Replace(UBBStrCnt,"<font size=$1>$2</font>")
   	UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")
	
	UBBStrCnt = Replace(UBBStrCnt,"[sup]","<sup>")
	UBBStrCnt = Replace(UBBStrCnt,"[SUP]","<sup>")
	UBBStrCnt = Replace(UBBStrCnt,"[/sup]","</sup>")
	UBBStrCnt = Replace(UBBStrCnt,"[/SUP]","</sup>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[sub]","<sub>")
	UBBStrCnt = Replace(UBBStrCnt,"[SUB]","<sub>")
	UBBStrCnt = Replace(UBBStrCnt,"[/sub]","</sub>")
	UBBStrCnt = Replace(UBBStrCnt,"[/SUB]","</sub>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[strike]","<STRIKE>")
	UBBStrCnt = Replace(UBBStrCnt,"[STRIKE]","<STRIKE>")
	UBBStrCnt = Replace(UBBStrCnt,"[/strike]","</STRIKE>")
	UBBStrCnt = Replace(UBBStrCnt,"[/STRIKE]","</STRIKE>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[ul]","<UL>")
	UBBStrCnt = Replace(UBBStrCnt,"[UL]","<UL>")
	UBBStrCnt = Replace(UBBStrCnt,"[/ul]","</UL>")
	UBBStrCnt = Replace(UBBStrCnt,"[/UL]","</UL>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[ol]","<OL>")
	UBBStrCnt = Replace(UBBStrCnt,"[OL]","<OL>")
	UBBStrCnt = Replace(UBBStrCnt,"[/ol]","</OL>")
	UBBStrCnt = Replace(UBBStrCnt,"[/OL]","</OL>")
	
	UBBStrCnt = Replace(UBBStrCnt,"[*]","<LI>")
	UBBStrCnt = Replace(UBBStrCnt,"[/*]","</LI>")
	
		re.Pattern="(\[\/CODE\])"
		UBBStrCnt=re.Replace(UBBStrCnt,"[/CODE]" & VbCrLf)
		re.Pattern="\[CODE\](.*)\[\/CODE]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<table code width=100% bgcolor=" & DEF_BBS_LightestColor & " cellpadding=5 cellspacing=2 class=TBBG9><tr><td bgcolor=" & DEF_BBS_LightColor & " class=TBBG1>$1</td></tr></table code>")
		UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

		re.Pattern="(\[\/QUOTE\])"
		UBBStrCnt=re.Replace(UBBStrCnt,"[/QUOTE]" & VbCrLf)
		re.Pattern="\[QUOTE\](.*)\[\/QUOTE]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<table width=100% bgcolor=" & DEF_BBS_DarkColor & " cellpadding=5 cellspacing=1 class=TBone><tr><td bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9>$1</td></tr></table>")
		UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")

		re.Pattern="(\[\/LIGHT\])"
		UBBStrCnt=re.Replace(UBBStrCnt,"[/LIGHT]" & VbCrLf)
		re.Pattern="\[LIGHT\](.*)\[\/LIGHT]"
		UBBStrCnt=re.Replace(UBBStrCnt,"<span style=""behavior:url(../inc/font.htc)"">$1</span>")
		UBBStrCnt = Replace(UBBStrCnt,VbCrLf,"")



	re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!#]+)"
	UBBStrCnt = re.Replace(UBBStrCnt,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$"
	UBBStrCnt = re.Replace(UBBStrCnt,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
	UBBStrCnt = re.Replace(UBBStrCnt,"$1<a target=_blank href=$2>$2</a>")

	
	
	UBBStrCnt = Replace(UBBStrCnt,"[HR]","<HR>")

	UBBCode = UBBStrCnt
end function
	     

 %>