<%
Dim Fy_Post2,Fy_Get2,Fy_In2,Fy_Inf2,Fy_Xh2,Fy_db2,Fy_dbstr2
Fy_In2 = "黑客|黑|垃圾|法輪功|falundafa|falun|江澤民|操你媽|三級片|sex|腚|妓|娼|陰蒂|奸|尻|賤|婊|靠|叉|龜頭|屄|赑|妣|肏|尻|屌|日|媽的|靠你媽的|操|操你媽的"
%>
<%
Fy_Inf2 = split(Fy_In2,"|")
'--------POST部份------------------
If Request.Form<>"" Then
For Each Fy_Post2 In Request.Form

For Fy_Xh2=0 To Ubound(Fy_Inf2)
If Instr(LCase(Request.Form(Fy_Post2)),Fy_Inf2(Fy_Xh2))<>0 Then

Response.Write "<Script Language=JavaScript>alert('系統提示↓\n\n請不要說臟話！');</Script>"
response.write "<br><br><br><br><br><br><br><br>"
response.write "<center><a href=index.asp><h1>返回首頁</h></a></center>"
Response.End
End If
Next
Next
End If
'----------------------------------

%>