ubb.asp

这是ASP的OA

	re.Pattern="\[table\](.*)\[\/table\]"
	str=re.Replace(str,"<table border=0 width=100% cellspacing=1 cellpadding=10 bgcolor=#333333><tr><td width=100% bgcolor=#EEEEEE style='word-break:break-all'>$1</td></tr></table>")
	re.Pattern="\[M\](.[^\[]*)\[\/M\]"
	str=re.Replace(str,music("$1"))
	re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
	str = re.Replace(str,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$"
	str = re.Replace(str,"<a target=_blank href=$1>$1</a>")
	re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
	str = re.Replace(str,"$1<a target=_blank href=$2>$2</a>")
	re.Pattern="\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)\[\/UPLOAD\]"
	str= re.Replace(str,"<A HREF=""$2"" TARGET=_blank><IMG SRC=""$2"" border=0></A>")
	re.Pattern="\[UPLOAD=(mid|wav|mp3|rmi|cda|avi|wov|asf|mpg|mpeg)\](.[^\[]*)(mid|wav|mp3|rmi|cda|avi|wov|asf|mpg|mpeg)\[\/UPLOAD\]"
	str= re.Replace(str,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=500 height=400><PARAM NAME=SRC VALUE=UploadFiles/$2$3.$1><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500><PARAM NAME=SRC VALUE=UploadFiles/$2$3.$1><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")
	re.Pattern="\[UPLOAD=(swf|swi)\](.[^\[]*)(swf|swi)\[\/UPLOAD\]"
	str= re.Replace(str,"<a href=""$2"" TARGET=_blank><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""><PARAM NAME=quality VALUE=high><embed src=""$2$3.$1"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>UploadFiles/$2$3.$1</embed></OBJECT>")
	re.Pattern="\[UPLOAD=(ra|ram)\](.[^\[]*)(ra|ram)\[\/UPLOAD\]"
	str= re.Replace(str,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=500 height=400><PARAM NAME=SRC VALUE=$1><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=500><PARAM NAME=SRC VALUE=UploadFiles/$2$3.$1><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")
	re.Pattern="\[DOWNLOAD=(.[^\[]*)\](.[^\[]*)\[\/DOWNLOAD\]"
	str= re.Replace(str,"<A HREF=""$1"" TARGET=_blank>$2</A>")
	re.Pattern="\[code\](.*)\[\/code\]"
	str=re.Replace(str,"<P><SPAN><SPAN><SPAN><SPAN><SPAN><SPAN>运行代码框<BR><SPAN><TEXTAREA class=codeTextarea cols=19 rows=1 style=""HEIGHT: 160px; WIDTH: 501px"">$1</TEXTAREA><BR><INPUT onclick=runCode() type=button value=运行代码> [Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]</SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></SPAN></P>")
	re.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
	str=re.Replace(str,"<font color=$1>$2</font>")
	re.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
	str=re.Replace(str,"<font face=$1>$2</font>")
	re.Pattern="\[(center|left|right)\](.[^\[]*)\[\/(center|left|right)\]"
	str=re.Replace(str,"<div align=$1>$2</div>")
	re.Pattern="\[align=(center|left|right)\](.*)\[\/align\]"
	str=re.Replace(str,"<div align=$1>$2</div>")
	re.Pattern="\[QUOTE\](.*)\[\/QUOTE\]"
	str=re.Replace(str,"<table style=""width:100%; border:1px #999999 dotted;"" cellpadding=5 cellspacing=1 ><TR><TD bgColor=#fffff0 width=""100%"">$1</td></tr></table><br>")
	re.Pattern="\[fly\](.*)\[\/fly\]"
	str=re.Replace(str,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
	re.Pattern="\[move\](.*)\[\/move\]"
	str=re.Replace(str,"<MARQUEE scrollamount=3>$1</marquee>")	
	re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
	str=re.Replace(str,"<table width=$1 ><tr><td style=""filter:shadow(color=$2, strength=$3)"">$4</td></tr></table>")
	re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
	str=re.Replace(str,"<table width=$1 ><tr><td style=""filter:glow(color=$2, strength=$3)"">$4</td></tr></table>")
	re.Pattern="\[i\](.[^\[]*)\[\/i\]"
	str=re.Replace(str,"<i>$1</i>")
	re.Pattern="\[u\](.[^\[]*)(\[\/u\])"
	str=re.Replace(str,"<u>$1</u>")
	re.Pattern="\[b\](.[^\[]*)(\[\/b\])"
	str=re.Replace(str,"<b>$1</b>")
	re.Pattern="\[em([0-9]{1,2})\]"
	str=re.Replace(str,"<img align=absmiddle src=images/em$1.gif border=0>")
	re.Pattern="\[ep\](.[^\[]*)\[\/ep\]"
	str=re.Replace(str,use_ep("$1"))
	re.Pattern="\[size=([1-6])\](.[^\[]*)\[\/size\]"
	str=re.Replace(str,"<font size=$1>$2</font>")
	str=replace(str,"<I></I>","")
	str = Replace(str, "\[", "[")
	str = Replace(str, "\]", "]")
	set re=Nothing
	ubb_base=str
end function
function noubb(str)
	if isnull(str) then exit function
	str = replace(str, ">", "&gt;")
	str = replace(str, "<", "&lt;")
	str = Replace(str, CHR(32), "<I></I>&nbsp;")
	str = Replace(str, CHR(9), "&nbsp;")
	str = Replace(str, CHR(34), "&quot;")
	str = Replace(str, CHR(39), "&#39;")
	str = Replace(str, CHR(13), "")
	str = Replace(str, CHR(10) & CHR(10), "</P><P>")
	str = Replace(str, CHR(10), "<BR> ")
	str = Replace(str, "\[", "[")
	str = Replace(str, "\]", "]")
	noubb=str
end function
function music(musicurl)
	dim musicext
	musicext=getmusicext(musicurl)
	if musicext="rm" then
		music="<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=350 height=38><PARAM NAME=SRC VALUE="""&musicurl&musicext&"""><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><param name=LOOP value=1><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=350><PARAM NAME=SRC VALUE="""&musicurl&musicext&"""><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>"
	else
		music="<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=300 height=70 ><param name=ShowStatusBar value=-1><param name=Filename value="""&musicurl&musicext&"""><param name=LOOP value=1><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src="""&musicurl&musicext&""" width=300 height=70></embed></object>"
	end if
end function
function getmusicext(filename)
	if isnull(filename) then exit function
	if instr(filename,".")>0 then
		getmusicext=lcase(mid(filename,instrRev(filename,".")+1))
	else
		getmusicext=""
	end if
end function
function fr(picurl,wid,hei)
	dim fr_picurl
	fr_picurl=picurl
	fr=fr&"<a href="""&fr_picurl&""" target=_blank>"
	fr=fr&"<img id=""zoom"" src="""&fr_picurl&""" border=0 alt=""按此在新窗口浏览图片"""
	if wid<>"" then fr=fr&" width=""" & wid &""""
	if hei<>"" then fr=fr&" height=""" & hei &""""
	fr=fr&"></a>"
	exit function
	fr="<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD width=4 height=5>"
	fr=fr&"<IMG SRC='images/dr_01.gif' WIDTH=4 HEIGHT=5></TD>"
	fr=fr&"<TD height=5 background='images/dr_02.gif'>"
	fr=fr&"<IMG SRC='images/dr_02.gif' WIDTH=10 HEIGHT=5></TD>"
	fr=fr&"<TD width=9 height=5><IMG SRC='images/dr_03.gif' WIDTH=9 HEIGHT=5></TD></TR>"
	fr=fr&"<TR><TD width=4 background='images/dr_04.gif'>"
	fr=fr&"<IMG SRC='images/dr_04.gif' WIDTH=4 HEIGHT=10></TD>"
	fr=fr&"<TD align=center bgcolor=#FFFFFF>"
	fr=fr&"<a href="""&fr_picurl&""" target=_blank>"
	fr=fr&"<img id=""zoom"" src="""&fr_picurl&""" border=0 alt=""按此在新窗口浏览图片"""
	if wid<>"" then fr=fr&" width=""" & wid &""""
	if hei<>"" then fr=fr&" height=""" & hei &""""
	fr=fr&"></a>"
	fr=fr&"</TD>"
	fr=fr&"<TD width=9 background='images/dr_06.gif'><IMG SRC='images/dr_06.gif' WIDTH=9 HEIGHT=10></TD>"
	fr=fr&"</TR><TR><TD width=4 height=10><IMG SRC='images/dr_07.gif' WIDTH=4 HEIGHT=10></TD>"
	fr=fr&"<TD height=10 background='images/dr_08.gif'><IMG SRC='images/dr_08.gif' WIDTH=10 HEIGHT=10></TD>"
	fr=fr&"<TD width=9 height=10><IMG SRC='images/dr_09.gif' WIDTH=9 HEIGHT=10></TD>"
	fr=fr&"</TR></TABLE>"
end function
%>