guolv.asp

红色的格调

<%
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
'----------------------------------

%>