asp连接数据库代码实例(21)

asp 连接数据库代码实例

re.Pattern="(js:)"

t=re.Replace(t,"&#106s:")

're.Pattern="(value)"

't=re.Replace(t,"&#118alue")

re.Pattern="(about:)"

t=re.Replace(t,"about&#58")

re.Pattern="(file:)"

t=re.Replace(t,"file&#58")

re.Pattern="(document.cookie)"

t=re.Replace(t,"documents&#46cookie")

re.Pattern="(vbscript:)"

t=re.Replace(t,"&#118bscript:")

re.Pattern="(vbs:)"

t=re.Replace(t,"&#118bs:")

re.Pattern="(on(mouse|exit|error|click|key))"

t=re.Replace(t,"&#111n$2")

're.Pattern="(&#)"

't=re.Replace(t,"＆#")

FilterJS=t

set re=nothing

end if

End Function

function HTMLEncode(fString)

if not isnull(fString) then

fString = replace(fString, ">", ">")

fString = replace(fString, "<", "&lt;")

fString = Replace(fString, CHR(32), "&nbsp;")

fString = Replace(fString, CHR(9), "&nbsp;")

fString = Replace(fString, CHR(34), "&quot;")

fString = Replace(fString, CHR(39), "&#39;")

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")

fString = Replace(fString, CHR(10), "<BR> ")

HTMLEncode = fString

end if

end function

function nohtml(str)

dim re

Set re=new RegExp

re.IgnoreCase =true