BBS裡UBB的全碼

BBS裡UBB的全碼
<%
function out(str)
out=Server.HTMLEncode(str)
out=replace(out,vbcrlf,"<br>")
out=ubbcode(out,"/[img/](.*?)/[//img/]","<img src=""$1"" border=""0"">")
out=ubbcode(out,"/[img align=left/](.*?)/[//img/]","<img src=""$1"" align=""left"" border=""0"">")
out=ubbcode(out,"/[img align=right/](.*?)/[//img/]","<img src=""$1"" align=""right"" border=""0"">")
out=ubbcode(out,"/[img align=center/](.*?)/[//img/]","<div align=""center""><img src=""$1"" border=""0""></div>")
out=ubbcode(out,"/(.*?)/[//color/]","<font color=""$1"">$2</font>")
out=ubbcode(out,"/[url=(.*?)/](.*?)/[//url/]","<a href=""$1"" target=""_blank"">$2</a>")
out=ubbcode(out,"/[url/](.*?)/[//url/]","<a href=""$1"" target=""_blank"">$1</a>")
out=ubbcode(out,"/[center/](.*?)/[//center/]","<center>$1</center>")
out=ubbcode(out,"/[b/](.*?)/[//b/]","<b>$1</b>")
out=ubbcode(out,"/[i/](.*?)/[//i/]","<i>$1</i>")
out=ubbcode(out,"/[u/](.*?)/[//u/]","<u>$1</u>")
out=ubbcode(out,"/[h1/](.*?)/[//h1/]","<h1>$1</h1>")
out=ubbcode(out,"/[h2/](.*?)/[//h2/]","<h2>$1</h2>")
out=ubbcode(out,"/[h3/](.*?)/[//h3/]","<h3>$1</h3>")
out=HTMLcode(out)
end function
%>

<%
function HTMLcode(str)
Set re=new RegExp
re.IgnoreCase=True
re.Global=True
re.Pattern="(?:^|>)(?:.*?)(?:<|$)"
Set Searchs=re.Execute(str)
For Each Search In Searchs
s=replace(Search.value," ","&nbsp;")
str=replace(str,Search.value,s)
Next
HTMLcode=str
End Function
%>

<%
function ubbcode(str1,str2,str3)
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = str2
ubbcode = re.replace(str1,str3)
end function
%>