ubb.asp

来自「西亚电子购物系统」· ASP 代码 · 共 25 行

<%
'UBB html判断开始
function UBBCode(strContent)
    dim re
    Set re=new RegExp
    re.IgnoreCase =true
    re.Global=True


	re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
	re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
	strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
	re.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
	strContent = re.Replace(strContent,"<img align=absmiddle src=images/url.gif><a target=_blank href=$1>$1</a>")
	

' end if


    set re=Nothing
    UBBCode=strContent
 end function
%>