conn.asp

网吧使用的导航web站点

<%
'Rem 过滤HTML代码
function HTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    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), " ")
    fString = Replace(fString, CHR(10), " ")
    'fString=ChkBadWords(fString)
    HTMLEncode = fString
end if
end function
'Rem 过滤SQL非法字符
function checkStr(str)
	if isnull(str) then
		checkStr = ""
		exit function 
	end if
	checkStr=replace(str,"'","''")
end function
dim Db,sessionvar
Db="HOTwzdata/HOTwzdata.asa"         '数据库连接地址
sessionvar="www.HOTwz.com"                         '设置变量，变量不可以为NO，否则后台无法登陆
%>