ubbcodes.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

<%
function htmlencode(strContent)
if strContent<>"" or strContent<>null then
	strContent=server.htmlencode(strContent)
	dim re
	dim reContent
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True

    re.Pattern="(javascript)"
    strContent=re.Replace(strContent,"&#106avascript")
    re.Pattern="(jscript:)"
    strContent=re.Replace(strContent,"&#106script:")
    re.Pattern="(js:)"
    strContent=re.Replace(strContent,"&#106s:")
    re.Pattern="(value)"
    strContent=re.Replace(strContent,"&#118alue")
    re.Pattern="(about:)"
    strContent=re.Replace(strContent,"about&#58")
    re.Pattern="(file:)"
    strContent=re.Replace(strContent,"file&#58")
    re.Pattern="(document.cookie)"
    strContent=re.Replace(strContent,"documents&#46cookie")
    re.Pattern="(vbscript:)"
    strContent=re.Replace(strContent,"&#118bscript:")
    re.Pattern="(vbs:)"
    strContent=re.Replace(strContent,"&#118bs:")
    re.Pattern="(on(mouse|exit|error|click|key))"
    strContent=re.Replace(strContent,"&#111n$2")
    re.Pattern="(&#)"
    strContent=re.Replace(strContent,"＆#")

    re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
    strContent=re.Replace(strContent,"<IMG SRC=$1://$2 border=0>")

    re.Pattern="\[IMG\](.[^\[]*)\[\/IMG\]"
    strContent=re.Replace(strContent,"<IMG SRC=$1 border=0>")

    re.Pattern="\[attachimg\](.[^\[]*)\[\/attachimg\]"
    strContent=re.Replace(strContent,"<img src=$1 border=0 id=attach >")
    re.Pattern="\[attach\](.[^\[]*)\[\/attach\]"
    strContent=re.Replace(strContent,"<a id=attach target=_blank href="&SiteSystemPath&"attachment.asp?id=$1>点击浏览该文件</a id=attach>")

	strContent = replace(replace(replace(strContent,chr(13)&chr(10),"<br>"),"'","&quot;"),chr(34),"&quot;")

	re.Pattern="\[color=(.[^\[]*)\](.*?)\[\/color\]"
	strContent=re.Replace(strContent,"<font color=$1>$2</font>")
	re.Pattern="\[color=(#*[a-z0-9]*)](.*?)\[\/color\]"
	strContent=re.Replace(strContent,"<font color=$1>$2</font>")
	re.Pattern="\[size=(.[^\[]*)pt\](.*?)\[\/size\]"
	strContent=re.Replace(strContent,"<span style=font-size:$1pt>$2</span>")
	re.Pattern="\[face=(.[^\[]*)\](.*?)\[\/face\]"
	strContent=re.Replace(strContent,"<font face=$1>$2</font>")
	re.Pattern="\[font=(.[^\[]*)\](.*?)\[\/font\]"
	strContent=re.Replace(strContent,"<font face=$1>$2</font>")

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

	re.Pattern="\[url\](.*?)\[\/url\]"
	strContent=re.Replace(strContent,"<a href=$1 target=_blank>$1</a>")

	re.Pattern="\[url=(.[^\[]*)\](.*?)\[\/url\]"
	strContent=re.Replace(strContent,"<a href=$1 target=_blank>$2</a>")

	re.Pattern="\[email\](.*?)\[\/email\]"
	strContent=re.Replace(strContent,"<a href=""mailto:$1"" target=_blank>$1</a>")

	re.Pattern="\[email=(.[^\[]*)\](.*?)\[\/email\]"
	strContent=re.Replace(strContent,"<a href=""mailto:$1"" target=_blank>$2</a>")

	re.Pattern="\[fly\](.*?)\[\/fly\]"
	strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$1</marquee>")
	re.Pattern="\[move\](.*?)\[\/move\]"
	strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$1</marquee>")	
	re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.*?)\[\/GLOW]"
	strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
	re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
	strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")

	re.Pattern="\[quote\](.*?)\[\/quote\]"
	strContent=re.Replace(strContent,"<div id=msgheader>引用：</div><div id=msgquote>$1</div>")
	re.Pattern="\[code\](.*?)\[\/code\]"
	strContent=re.Replace(strContent,"<div id=msgheader>代码：</div><div id=msgcode>$1</div>")
	re.Pattern="\[quote\](.[^\[]*)\[\/quote\]"
	strContent=re.Replace(strContent,"<div id=msgheader>引用：</div><div id=msgquote>$1</div>")
	re.Pattern="\[code\](.[^\[]*)\[\/code\]"
	strContent=re.Replace(strContent,"<div id=msgheader>代码：</div><div id=msgcode>$1</div>")

	re.Pattern="\[i\](.*?)\[\/i\]"
	strContent=re.Replace(strContent,"<i>$1</i>")
	re.Pattern="\[u\](.*?)(\[\/u\])"
	strContent=re.Replace(strContent,"<u>$1</u>")
	re.Pattern="\[b\](.*?)(\[\/b\])"
	strContent=re.Replace(strContent,"<b>$1</b>")
	re.Pattern="\[strike\](.*?)(\[\/strike\])"
	strContent=re.Replace(strContent,"<strike>$1</strike>")
	re.Pattern="\[sup\](.*?)(\[\/sup\])"
	strContent=re.Replace(strContent,"<sup>$1</sup>")
	re.Pattern="\[sub\](.*?)(\[\/sub\])"
	strContent=re.Replace(strContent,"<sub>$1</sub>")
	strContent = replace(strContent,"[hr]","<hr>")
	strContent = replace(strContent,"&nbsp;"," ")
	strContent = replace(strContent,"  ","　")
	strContent = replace(strContent,"&lt;br&gt;"," <br>")
 	set re=Nothing
	htmlencode=strContent 
end if
end function

function htmlen(strContent)
if strContent<>"" or strContent<>null then
	dim re
	dim reContent
	Set re=new RegExp
	re.IgnoreCase =true
	re.Global=True
    re.Pattern="(javascript)"
    strContent=re.Replace(strContent,"&#106avascript")
    re.Pattern="(jscript:)"
    strContent=re.Replace(strContent,"&#106script:")
    re.Pattern="(js:)"
    strContent=re.Replace(strContent,"&#106s:")
    re.Pattern="(value)"
    strContent=re.Replace(strContent,"&#118alue")
    re.Pattern="(about:)"
    strContent=re.Replace(strContent,"about&#58")
    re.Pattern="(file:)"
    strContent=re.Replace(strContent,"file&#58")
    re.Pattern="(document.cookie)"
    strContent=re.Replace(strContent,"documents&#46cookie")
    re.Pattern="(vbscript:)"
    strContent=re.Replace(strContent,"&#118bscript:")
    re.Pattern="(vbs:)"
    strContent=re.Replace(strContent,"&#118bs:")
    re.Pattern="(on(mouse|exit|error|click|key))"
    strContent=re.Replace(strContent,"&#111n$2")
    re.Pattern="(&#)"
    strContent=re.Replace(strContent,"＆#")

	strContent=replace(replace(replace(strContent,">点击浏览该文件</a id=attach>","[/attach]"),"<a id=attach target=_blank href="&SiteSystemPath&"attachment.asp?id=","[attach]"),"<a id=attach href="&SiteSystemPath&"attachment.asp?id=","[attach]")

    re.Pattern="<img id=attach src=(.[^>]*)>"
    strContent=re.Replace(strContent,"[attachimg]$1[/attachimg]")
    re.Pattern="<img src=(.[^>]*) id=attach >"
    strContent=re.Replace(strContent,"[attachimg]$1[/attachimg]")
    re.Pattern="<a id=attach target=_blank href="&SiteSystemPath&"attachment.asp?id=*([0-9]*)>点击浏览该文件</a id=attach>"
    strContent=re.Replace(strContent,"[attach]$1[/attach]")
    re.Pattern="<a id=attach href="&SiteSystemPath&"attachment.asp?id=*([0-9]*)>点击浏览该文件</a id=attach>"
    strContent=re.Replace(strContent,"[attach]$1[/attach]")

    re.Pattern="<IMG SRC=(.[^>]*)>"
    strContent=re.Replace(strContent,"[IMG]$1[/IMG]")
    re.Pattern="<img (.[^\[]*) src=""(.[^\[]*)"" (.[^\[]*)>"
    strContent=re.Replace(strContent,"[IMG]$2[/IMG]")
    re.Pattern="<img (.[^\[]*) src=(.[^\[]*)>"
    strContent=re.Replace(strContent,"[IMG]$2[/IMG]")
	strContent=Replace(strContent," border=0","")

	re.Pattern="<font color=(#*[a-z0-9]*)>(.*?)<\/font>"
	strContent=re.Replace(strContent,"[color=$1]$2[/color]")
	re.Pattern="<font color=(.[^>]*)>(.*?)<\/font>"
	strContent=re.Replace(strContent,"[color=$1]$2[/color]")
	re.Pattern="<font size=(.[^>]*)pt>(.*?)<\/font>"
	strContent=re.Replace(strContent,"[size=$1pt]$2[/size]")
	re.Pattern="<span style=font-size:(.[^>]*)pt>(.*?)<\/span>"
	strContent=re.Replace(strContent,"[size=$1pt]$2[/size]")
	re.Pattern="<span style=font-size:(.[^>]*)pt;>(.*?)<\/span>"
	strContent=re.Replace(strContent,"[size=$1pt]$2[/size]")
	re.Pattern="<font face=(.[^>]*)>(.*?)<\/font>"
	strContent=re.Replace(strContent,"[face=$1]$2[/face]")

	re.Pattern="<div align=(center|left|right)>(.*?)<\/div>"
	strContent=re.Replace(strContent,"[align=$1]$2[/align]")
	re.Pattern="<p align=(center|left|right)>(.*?)<\/p>"
	strContent=re.Replace(strContent,"[align=$1]$2[/align]")

	re.Pattern="<a href=(.[^>]*)>(.*?)<\/a>"
	strContent=re.Replace(strContent,"[url=$1]$2[/url]")
	strContent=Replace(strContent," target=_blank","")

	re.Pattern="<div id=msgheader>引用：<\/div><div id=msgquote>(.[^<]*)<\/div>"
	strContent=re.Replace(strContent,"[quote]$1[/quote]")
	re.Pattern="<div id=msgheader>代码：<\/div><div id=msgcode>(.[^<]*)<\/div>"
	strContent=re.Replace(strContent,"[code]$1[/code]")
	re.Pattern="<i>(.*?)<\/i>"
	strContent=re.Replace(strContent,"[i]$1[/i]")
	re.Pattern="<u>(.*?)<\/u>"
	strContent=re.Replace(strContent,"[u]$1[/u]")
	re.Pattern="<b>(.*?)<\/b>"
	strContent=re.Replace(strContent,"[b]$1[/b]")
	re.Pattern="<strike>(.*?)<\/strike>"
	strContent=re.Replace(strContent,"[strike]$1[/strike]")
	re.Pattern="<sup>(.*?)<\/sup>"
	strContent=re.Replace(strContent,"[sup]$1[/sup]")
	re.Pattern="<sub>(.*?)<\/sub>"
	strContent=re.Replace(strContent,"[sub]$1[/sub]")
	re.Pattern="<div id=msgheader>引用：<\/div><div id=msgquote>(.*?)<\/div>"
	strContent=re.Replace(strContent,"[quote]$1[/quote]")
	re.Pattern="<div id=msgheader>代码：<\/div><div id=msgcode>(.*?)<\/div>"
	strContent=re.Replace(strContent,"[code]$1[/code]")

	re.Pattern="<marquee width=90% behavior=alternate scrollamount=3>(.*?)<\/marquee>"
	strContent=re.Replace(strContent,"[fly]$1[/fly]")
	re.Pattern="<MARQUEE scrollamount=3>(.*?)</marquee>"
	strContent=re.Replace(strContent,"[move]$1[/move]")	
	re.Pattern="<table width=*([0-9]*) style=""filter:glow\(color=*(#*[a-z0-9]*), strength=*([0-9]*)\)"">(.*?)<\/table>"
	strContent=re.Replace(strContent,"[GLOW=$1,$2,$3]$4[/GLOW]")
	re.Pattern="<table width=*([0-9]*) style=""filter:shadow\(color=*(#*[a-z0-9]*), strength=*([0-9]*)\)"">(.*?)<\/table>"
	strContent=re.Replace(strContent,"[SHADOW=$1,$2,$3]$4[/SHADOW]")

	strContent = replace(strContent,"<hr>","[hr]")
	strContent = replace(strContent,"<br>",chr(13)&chr(10))
	strContent = replace(strContent,"<br />",chr(13)&chr(10))
	strContent = replace(strContent,"　","  ")
	strContent = replace(strContent,"&nbsp;"," ")
	strContent = replace(strContent,"&quot;","'")
'	strContent = replace(strContent,"<","&lt;")
'	strContent = replace(strContent,">","&gt;")
 	set re=Nothing
	htmlen=strContent 
end if
end function
%>