UBB

<script runat="SERVER"> function ubb(vstr as string) '替换HTML标记及换行处理 vstr = server.HTMLEncode(vstr) vstr = replace(vstr,"<","<") vstr = replace(vstr,">",">") vstr = replace(vstr, chr(13),"") vstr = Replace(vstr, chr(32), "&nbsp") vstr = replace(vstr, chr(10) & chr(10), "</p><p>") vstr = replace(vstr, chr(10),"<br>") vstr = Replace(vstr, vbCrlf, "<br>") dim xface as integer if xface=1 then '表情转换,数值型变量xface=1时，允许转换 vstr = replace(vstr,":)","<img src=""em/em1.gif"">") vstr = replace(vstr,":(","<img src=""em/em2.gif"">") vstr = replace(vstr,":o","<img src=""em/em3.gif"">") vstr = replace(vstr,":D","<img src=""em/em4.gif"">") vstr = replace(vstr,";)","<img src=""em/em5.gif"">") vstr = replace(vstr,":p","<img src=""em/em6.gif"">") vstr = replace(vstr,":cool:","<img src=""em/em7.gif"">") vstr = replace(vstr,":mad:","<img src=""em/em8.gif"">") vstr = replace(vstr,":eek:","<img src=""em/em9.gif"">") vstr = replace(vstr,":?:","<img src=""em/em0.gif"">") end if dim objregex as RegEx '屏蔽JS等等 objregex = new regex("javascript") vstr = objregex.replace(vstr,"javascript") objregex = new regex("jscript:") vstr = objregex.replace(vstr,"jscript:") objregex = new regex("js:") vstr = objregex.replace(vstr,"js:") objregex = new regex("value") vstr = objregex.replace(vstr,"value") objregex = new regex("about:") vstr = objregex.replace(vstr,"about:") objregex = new regex("file:") vstr = objregex.replace(vstr,"file:") objregex = new regex("document.cookie") vstr = objregex.replace(vstr,"documents.cookie") objregex = new regex("vbscript:") vstr = objregex.replace(vstr,"vbscript:") objregex = new regex("vbs:") vstr = objregex.replace(vstr,"vbs:") objregex = new regex("(on(mouse|exit|error|click|key))") vstr = objregex.replace(vstr,"on$2") objregex = new regex("script") vstr = objregex.replace(vstr,"script") 'UBB转换 'url objregex = new regex("/[url/](http|https|ftp):(.[^/[]*)/[//url/]") vstr = objregex.replace(vstr,"<a href=""$1://$2"" TARGET=""_blank"">$1://$2</a>") 'EMAIL objregex = new regex("/[email/](.[^/[]*)/[//email/]") vstr = objregex.replace(vstr,"<a href=""mailto:$1"" TARGET=""_blank"">$1</a>") 'IMG objregex = new regex("/[img/](http|https|ftp):(.[^/[]*)/[//img/]") vstr = objregex.replace(vstr,"<br><a οnfοcus=this.blur() href=""$1://$2"" target=_blank><IMG SRC=""$1://$2"" border=0 alt=按此在新窗口浏览图片 οnlοad=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") '自动识别URL objregex = new regex("/[url=(http:.[^/[]*)/](.[^/[]*)(/[//url/])") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$2</a>") objregex = new regex("^(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$1</a>") objregex = new regex("(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)$") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") objregex = new regex("[^>=""](http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") 'COLOR objregex = new regex("/[color=(.[^/[]*)/](.[^/[]*)/[//color/]") vstr = objregex.replace(vstr,"<font color=""$1"">$2</font>") 'u objregex = new regex("/[u/](.*)/[//u/]") vstr = objregex.replace(vstr,"<u>$1</u>") 'B objregex = new regex("/[b/](.*)/[//b/]") vstr = objregex.replace(vstr,"<b>$1</b>") 'I objregex = new regex("/[i/](.*)/[//i/]") vstr = objregex.replace(vstr,"<i>$1</i>") 'FLY objregex = new regex("/[fly/](.*)/[//fly/]") vstr = objregex.replace(vstr,"<marquee width=""80%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>") 'SHADOW objregex = new regex("/[shadow=*(#*[a-z0-9]*),*([0-9]*)/](.[^/[]*)/[//shadow/]") vstr = objregex.replace(vstr,"<span style=""filter: Shadow(Color=$1, Direction=$2)"">$3</span>") 'CODE objregex = new regex("/[code/](.*)/[//code/]") vstr = objregex.replace(vstr,"<table width=""80%"" border=""0"" cellpadding=""2"" cellspacing=""0"" bgcolor=""#99FFCC"" style=""border:1px solid #000000;font-size:9pt;font-family:tahoma""><tr><td>$1</td></tr></table>") '完成，还可以自己扩展 ubb = vstr end function </script><script runat="SERVER"> function ubb(vstr as string) '替换HTML标记及换行处理 vstr = server.HTMLEncode(vstr) vstr = replace(vstr,"<","<") vstr = replace(vstr,">",">") vstr = replace(vstr, chr(13),"") vstr = Replace(vstr, chr(32), "&nbsp") vstr = replace(vstr, chr(10) & chr(10), "</p><p>") vstr = replace(vstr, chr(10),"<br>") vstr = Replace(vstr, vbCrlf, "<br>") dim xface as integer if xface=1 then '表情转换,数值型变量xface=1时，允许转换 vstr = replace(vstr,":)","<img src=""em/em1.gif"">") vstr = replace(vstr,":(","<img src=""em/em2.gif"">") vstr = replace(vstr,":o","<img src=""em/em3.gif"">") vstr = replace(vstr,":D","<img src=""em/em4.gif"">") vstr = replace(vstr,";)","<img src=""em/em5.gif"">") vstr = replace(vstr,":p","<img src=""em/em6.gif"">") vstr = replace(vstr,":cool:","<img src=""em/em7.gif"">") vstr = replace(vstr,":mad:","<img src=""em/em8.gif"">") vstr = replace(vstr,":eek:","<img src=""em/em9.gif"">") vstr = replace(vstr,":?:","<img src=""em/em0.gif"">") end if dim objregex as RegEx '屏蔽JS等等 objregex = new regex("javascript") vstr = objregex.replace(vstr,"javascript") objregex = new regex("jscript:") vstr = objregex.replace(vstr,"jscript:") objregex = new regex("js:") vstr = objregex.replace(vstr,"js:") objregex = new regex("value") vstr = objregex.replace(vstr,"value") objregex = new regex("about:") vstr = objregex.replace(vstr,"about:") objregex = new regex("file:") vstr = objregex.replace(vstr,"file:") objregex = new regex("document.cookie") vstr = objregex.replace(vstr,"documents.cookie") objregex = new regex("vbscript:") vstr = objregex.replace(vstr,"vbscript:") objregex = new regex("vbs:") vstr = objregex.replace(vstr,"vbs:") objregex = new regex("(on(mouse|exit|error|click|key))") vstr = objregex.replace(vstr,"on$2") objregex = new regex("script") vstr = objregex.replace(vstr,"script") 'UBB转换 'url objregex = new regex("/[url/](http|https|ftp):(.[^/[]*)/[//url/]") vstr = objregex.replace(vstr,"<a href=""$1://$2"" TARGET=""_blank"">$1://$2</a>") 'EMAIL objregex = new regex("/[email/](.[^/[]*)/[//email/]") vstr = objregex.replace(vstr,"<a href=""mailto:$1"" TARGET=""_blank"">$1</a>") 'IMG objregex = new regex("/[img/](http|https|ftp):(.[^/[]*)/[//img/]") vstr = objregex.replace(vstr,"<br><a οnfοcus=this.blur() href=""$1://$2"" target=_blank><IMG SRC=""$1://$2"" border=0 alt=按此在新窗口浏览图片 οnlοad=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") '自动识别URL objregex = new regex("/[url=(http:.[^/[]*)/](.[^/[]*)(/[//url/])") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$2</a>") objregex = new regex("^(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$1</a>") objregex = new regex("(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)$") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") objregex = new regex("[^>=""](http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") 'COLOR objregex = new regex("/[color=(.[^/[]*)/](.[^/[]*)/[//color/]") vstr = objregex.replace(vstr,"<font color=""$1"">$2</font>") 'u objregex = new regex("/[u/](.*)/[//u/]") vstr = objregex.replace(vstr,"<u>$1</u>") 'B objregex = new regex("/[b/](.*)/[//b/]") vstr = objregex.replace(vstr,"<b>$1</b>") 'I objregex = new regex("/[i/](.*)/[//i/]") vstr = objregex.replace(vstr,"<i>$1</i>") 'FLY objregex = new regex("/[fly/](.*)/[//fly/]") vstr = objregex.replace(vstr,"<marquee width=""80%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>") 'SHADOW objregex = new regex("/[shadow=*(#*[a-z0-9]*),*([0-9]*)/](.[^/[]*)/[//shadow/]") vstr = objregex.replace(vstr,"<span style=""filter: Shadow(Color=$1, Direction=$2)"">$3</span>") 'CODE objregex = new regex("/[code/](.*)/[//code/]") vstr = objregex.replace(vstr,"<table width=""80%"" border=""0"" cellpadding=""2"" cellspacing=""0"" bgcolor=""#99FFCC"" style=""border:1px solid #000000;font-size:9pt;font-family:tahoma""><tr><td>$1</td></tr></table>") '完成，还可以自己扩展 ubb = vstr end function </script><script runat="SERVER"> function ubb(vstr as string) '替换HTML标记及换行处理 vstr = server.HTMLEncode(vstr) vstr = replace(vstr,"<","<") vstr = replace(vstr,">",">") vstr = replace(vstr, chr(13),"") vstr = Replace(vstr, chr(32), "&nbsp") vstr = replace(vstr, chr(10) & chr(10), "</p><p>") vstr = replace(vstr, chr(10),"<br>") vstr = Replace(vstr, vbCrlf, "<br>") dim xface as integer if xface=1 then '表情转换,数值型变量xface=1时，允许转换 vstr = replace(vstr,":)","<img src=""em/em1.gif"">") vstr = replace(vstr,":(","<img src=""em/em2.gif"">") vstr = replace(vstr,":o","<img src=""em/em3.gif"">") vstr = replace(vstr,":D","<img src=""em/em4.gif"">") vstr = replace(vstr,";)","<img src=""em/em5.gif"">") vstr = replace(vstr,":p","<img src=""em/em6.gif"">") vstr = replace(vstr,":cool:","<img src=""em/em7.gif"">") vstr = replace(vstr,":mad:","<img src=""em/em8.gif"">") vstr = replace(vstr,":eek:","<img src=""em/em9.gif"">") vstr = replace(vstr,":?:","<img src=""em/em0.gif"">") end if dim objregex as RegEx '屏蔽JS等等 objregex = new regex("javascript") vstr = objregex.replace(vstr,"javascript") objregex = new regex("jscript:") vstr = objregex.replace(vstr,"jscript:") objregex = new regex("js:") vstr = objregex.replace(vstr,"js:") objregex = new regex("value") vstr = objregex.replace(vstr,"value") objregex = new regex("about:") vstr = objregex.replace(vstr,"about:") objregex = new regex("file:") vstr = objregex.replace(vstr,"file:") objregex = new regex("document.cookie") vstr = objregex.replace(vstr,"documents.cookie") objregex = new regex("vbscript:") vstr = objregex.replace(vstr,"vbscript:") objregex = new regex("vbs:") vstr = objregex.replace(vstr,"vbs:") objregex = new regex("(on(mouse|exit|error|click|key))") vstr = objregex.replace(vstr,"on$2") objregex = new regex("script") vstr = objregex.replace(vstr,"script") 'UBB转换 'url objregex = new regex("/[url/](http|https|ftp):(.[^/[]*)/[//url/]") vstr = objregex.replace(vstr,"<a href=""$1://$2"" TARGET=""_blank"">$1://$2</a>") 'EMAIL objregex = new regex("/[email/](.[^/[]*)/[//email/]") vstr = objregex.replace(vstr,"<a href=""mailto:$1"" TARGET=""_blank"">$1</a>") 'IMG objregex = new regex("/[img/](http|https|ftp):(.[^/[]*)/[//img/]") vstr = objregex.replace(vstr,"<br><a οnfοcus=this.blur() href=""$1://$2"" target=_blank><IMG SRC=""$1://$2"" border=0 alt=按此在新窗口浏览图片 οnlοad=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") '自动识别URL objregex = new regex("/[url=(http:.[^/[]*)/](.[^/[]*)(/[//url/])") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$2</a>") objregex = new regex("^(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$1</a>") objregex = new regex("(http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)$") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") objregex = new regex("[^>=""](http://[A-Za-z0-9/./=/?%/-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") 'COLOR objregex = new regex("/[color=(.[^/[]*)/](.[^/[]*)/[//color/]") vstr = objregex.replace(vstr,"<font color=""$1"">$2</font>") 'u objregex = new regex("/[u/](.*)/[//u/]") vstr = objregex.replace(vstr,"<u>$1</u>") 'B objregex = new regex("/[b/](.*)/[//b/]") vstr = objregex.replace(vstr,"<b>$1</b>") 'I objregex = new regex("/[i/](.*)/[//i/]") vstr = objregex.replace(vstr,"<i>$1</i>") 'FLY objregex = new regex("/[fly/](.*)/[//fly/]") vstr = objregex.replace(vstr,"<marquee width=""80%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>") 'SHADOW objregex = new regex("/[shadow=*(#*[a-z0-9]*),*([0-9]*)/](.[^/[]*)/[//shadow/]") vstr = objregex.replace(vstr,"<span style=""filter: Shadow(Color=$1, Direction=$2)"">$3</span>") 'CODE objregex = new regex("/[code/](.*)/[//code/]") vstr = objregex.replace(vstr,"<table width=""80%"" border=""0"" cellpadding=""2"" cellspacing=""0"" bgcolor=""#99FFCC"" style=""border:1px solid #000000;font-size:9pt;font-family:tahoma""><tr><td>$1</td></tr></table>") '完成，还可以自己扩展 ubb = vstr end function </script>