<%
Function c2u(sGBStr)
Dim i,c
if sGBStr<>"" then
For i = 1 to Len(sGBStr)
c = Mid(sGBStr,i,1)
if c=chr(13) then 
c2u = c2u & "<br/>"
else
c2u = c2u & "&#x" & Hex(AscW(c)) & ";"
end if
Next
end if
End Function

function UBB(strContent)
	on error resume next
	strContent = HTMLEncode(strContent)
	dim objRegExp
	Set objRegExp=new RegExp
	objRegExp.IgnoreCase =true
	objRegExp.Global=True

	objRegExp.Pattern="(\(URL\))(.*)(\(\/URL\))"
	strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$2</a>")

	objRegExp.Pattern="(\(URL=(.*)\))(.*)(\(\/URL\))"
	strContent= objRegExp.Replace(strContent,"<a href=""$2"" >$3</a>")

	objRegExp.Pattern="(\(IMG\))(.*)(\(\/IMG\))"
	strContent= objRegExp.Replace(strContent,"<img src=""$2"" alt='load..'/><br/><a href=""$2"" >&#x70B9;&#x51FB;&#x4E0B;&#x8F7D;</a>")
        objRegExp.Pattern="(\\)"
	strContent= objRegExp.Replace(strContent,"<br/>")
	set objRegExp=Nothing
	UBBCode=strContent
end function
%><%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   电脑交流:http://www.cnscu.cn
' 程序制作：横云			  掌上校园收倾心整理收集于互联网,感谢你的支持!
' 升级时间： 2008-2-5  		主页地址：HTTP://wap.cnscu.cn
' E-Mail: cnscu@126.com   	客服QQ:554904632 QQ群:30493504 QQ群2:46659883
'====================================================================
%>