conn.asp

Etp Flash 留言板西乡香草天空美化版

<!--
 Etp Flash 留言本 1.5 Bulid 040815
 制作：Etp工作室-Etp21
 网站：http://www.etp21.com
 QQ:69483
 E-mail：[e-mail]
 -->

<%
'数据库路径
db="etpbook.asp"

'每页显示留言数
pagesize=10

'词语过滤[用"|"把要过滤的词隔开]
badword="妈妈的|我靠|fuck|bitch|他妈的|性爱|法轮功|法轮|falundafa|falun|主席|泽民|操你妈|三级片|洪志|锦涛|王八|王八蛋"



Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr

function message(temp)
   	response.write("&message="+temp)
	response.end
end function 
Function killBadWords(str)	
	If Not(IsNull(badword) or isnull(Str)) Then
		badwords = split(badword, "|")
		wordnum=UBound(badwords)
		For i = 0 to wordnum
			str = Replace(str, badwords(i), string(len(badwords(i)),"*")) 
		Next
		killBadWords = str
	End If
End Function
Function chkout()
	server1=Cstr(Request.ServerVariables("HTTP_REFERER"))
	server2=Cstr(Request.ServerVariables("SERVER_NAME"))
	If Mid(server1,8,len(server2))=server2 Then
		'message("请不要从外部提交表单！！！") 
	End If
end function
%>