<%
set rs=server.createobject("adodb.recordset")
sql="select * from sd_siteall"
rs.open sql,conn,1,1
sd_hostname=rs("sd_hostname")
sd_hostsite=rs("sd_hostsite")
sd_keywords=rs("sd_keywords")
sd_description=rs("sd_description")
sd_shouqi=rs("sd_shouqi")
sd_beian=rs("sd_beian")
sd_index=rs("sd_index")
sd_edmnu=rs("sd_edmnu")
BannedHtmlLabel=rs("BannedHtmlLabel")
BannedHtmlEvent=rs("BannedHtmlEvent")
BannedText=rs("BannedText")
BannedIP=rs("BannedIP")
JT=rs("JT")
rs.close
set rs=nothing
function BodyEncode(fString)
	fString=Replace(fString,vbCrlf, "")
	fString=Replace(fString,"\","&#92;")
	fString=Replace(fString,"'","&#39;")
	fString=Replace(fString,"<A href=","<A target=_blank href=") '点链接打开新窗口
	if BannedHtmlLabel<>"" then fString=ReplaceText(fString,"<(\/|)("&BannedHtmlLabel&")", "&lt;$1$2")
	if BannedHtmlEvent<>"" then fString=ReplaceText(fString,"<(.[^>]*)("&BannedHtmlEvent&")", "&lt;$1$2")
	if BannedText<>"" then
		filtrate=split(BannedText,"|")
		for i = 0 to ubound(filtrate)
			fString=ReplaceText(fString,""&filtrate(i)&"",string(len(filtrate(i)),"***"))
		next
	end if
	BodyEncode=fString
end function
Function ReplaceText(fString,patrn,replStr)
	Set regEx = New RegExp  	' 建立正则表达式。
		regEx.Pattern = patrn   ' 设置模式。
		regEx.IgnoreCase = True ' 设置是否区分大小写。
		regEx.Global = True     ' 设置全局可用性。 
		ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
	Set regEx=nothing
End Function
if BannedIP<>"" then
	filtratee=split(BannedIP,"|")
	for ii = 0 to ubound(filtratee)
		if instr("|"&Request.ServerVariables("REMOTE_ADDR")&"","|"&filtratee(ii)&"") > 0 then
		response.write(""&Request.ServerVariables("REMOTE_ADDR")&"被禁止进入！")
		response.end
		end if
	next
end if
%>