手机WAP编程

开发平台：

ASP/ASPX

char.asp：源码内容

							<%
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
%>

						