<%
'========================================================================================
' 文 件 名: filtrate.asp
' 版    本: 岭峰网行业专用留言系统3.10.0 (LFMessS 2020 - 3.10.0.F Build 200604)
' 说    明: 垃圾信息过滤文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2020-06-04
' 设 计 者: 疾风之狼
'========================================================================================
' 郑州文达岭峰网络科技有限公司.
'========================================================================================
' Copyright (C) 2001-2020 岭峰网. All rights reserved.
' 网    站: http://www.lfmesss.com
' 电子邮件: support@lfmesss.com
' 联系ＱＱ: 85112407
'========================================================================================

IF LingFengNet_MS_how_filtrate = 0 Then
	IF Instr(LingFengNet_MS_filtrate_word, "|" & content & "|") <> 0 or Instr(LingFengNet_MS_filtrate_word, "|" & username & "|") <> 0 or Instr(LingFengNet_MS_filtrate_word, "|" & post & "|") <> 0 Then
		Response.Redirect "default"&Get_Suffix()
	End IF
ElseIF LingFengNet_MS_how_filtrate = 1 Then
	filtrate = Split(LingFengNet_MS_filtrate_word, "|")
	For i = 1 to Ubound(filtrate) - 1
		username = Replace(username, ""&filtrate(i)&"", "*")
		content = Replace(content, ""&filtrate(i)&"", "*")
		post = Replace(post, ""&filtrate(i)&"", "*")
	Next
ElseIF LingFengNet_MS_how_filtrate = 2 Then
	filtrate = Split(LingFengNet_MS_filtrate_word, "|")
    For i = 0 to Ubound(filtrate)
		filtrate_new = filtrate(i)
		IF Instr(1, username,filtrate_new, vbTextCompare) <> 0 Then
			Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><script>alert('"& LingFengNet_MS_language_Warning_filtrate_1 &"（" &filtrate_new& "），"& LingFengNet_MS_language_Warning_filtrate_2 &"');window.close();</script>"
			Response.End
		End IF
    Next	
	filtrate_2 = Split(LingFengNet_MS_filtrate_word, "|")
    For i_2 = 0 to Ubound(filtrate_2)
		filtrate_new_2 = filtrate_2(i_2)
		IF Instr(1, post, filtrate_new_2, vbTextCompare) <> 0 Then
			Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><script>alert('"& LingFengNet_MS_language_Warning_filtrate_3 &"（" &filtrate_new_2& "），"& LingFengNet_MS_language_Warning_filtrate_4 &"');window.close();</script>"
			Response.End
		End IF
    Next	
	filtrate_1 = Split(LingFengNet_MS_filtrate_word, "|")
    For i_1=0 to Ubound(filtrate_1)
		filtrate_new_1=filtrate_1(i_1)
		IF Instr(1,content,filtrate_new_1,vbTextCompare) <> 0 Then
			Response.Write "<meta http-equiv=Content-Type content=text/html;charset="& LingFengNet_MS_language_meta_mes_1 &"><script>alert('"& LingFengNet_MS_language_Warning_filtrate_5 &"（" &filtrate_new_1& "），"& LingFengNet_MS_language_Warning_filtrate_6 &"');window.close();</script>"
			Response.End
		End IF
    Next	
ElseIF LingFengNet_MS_how_filtrate = 3 Then
    IF Instr(LingFengNet_MS_filtrate_word, "|" & content & "|") <> 0 or Instr(LingFengNet_MS_filtrate_word, "|" & username & "|") <> 0 or Instr(LingFengNet_MS_filtrate_word, "|" & post & "|") <> 0 Then
		Session("Auditingmess") = "bad"
	End IF
ElseIF LingFengNet_MS_how_filtrate = 4 Then
    filtrate = Split(LingFengNet_MS_filtrate_word, "|")
	For i = 1 to Ubound(filtrate) - 1
		username = Replace(username,""&filtrate(i)&"","*")
		content = Replace(content,""&filtrate(i)&"","*")
		post = Replace(post,""&filtrate(i)&"","*")
	Next
	Session("Auditingmess")="ok"
Else
	Response.Write "<script>alert('"& LingFengNet_MS_language_Warning_filtrate_7 &"');window.close();</script>"
	Response.End
End IF
%>