ubb.asp

来自「asp+sql软件系统」· ASP 代码 · 共 27 行

<%
Function UBBCode(strContent)
dim re
strContent=NetCom.HTMLEncode(strContent)
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
're.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
'strContent=re.Replace(strContent,"<IMG SRC=""$2"" border=0>")
re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
re.Pattern="(\[URL=(.[^\]]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$3</A>")
re.Pattern="(\[EMAIL\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=images/email1.gif><A HREF=""mailto:$2"">$2</A>")
re.Pattern="(\[EMAIL=(.[^\]]*)\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@']+)"
strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@']+)$"
strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")
re.Pattern = "[^>=""](http://[A-Za-z0-9\.\/=\?%\-&_~`@']+)"
strContent = re.Replace(strContent,"<a target=_blank href=$1>$1</a>")	
set re=Nothing
UBBCode=strContent
End Function
%>