char.asp

来自「admin/admin.asp是WAP的后台管理登陆页面」· ASP 代码 · 共 31 行

<%
function HTMLEncode(fString)
	fString = replace(fString, ">", "&gt;")
	fString = replace(fString, "<", "&lt;")
	fString = Replace(fString, CHR(10), "\")
	HTMLEncode = fString
end function

function UBBCode(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=''><br><a href=""$2"" >&#x70B9;&#x51FB;&#x4E0B;&#x8F7D;</a>")
        objRegExp.Pattern="(\\)"
	strContent= objRegExp.Replace(strContent,"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;")

	set objRegExp=Nothing
	UBBCode=strContent
end function
%>