加这段就可以了。
<%
'防cookies插入 2008.12.08
Dim Fy_cook,Fy_In,Fy_Inf,Fy_Xh
Fy_In = "'|exec|insert|select|delete|update|count|chr|truncate|char|declare|--|script|*|char|set|(|)|script|src|js"
Fy_Inf = split(Fy_In,"|")
'3--------cookies部份-------------------
If Request.Cookies<>"" Then
For Each Fy_cook In Request.Cookies
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.Cookies(Fy_cook)),Fy_Inf(Fy_Xh))<>0 Then
flyaway3=""&Request.ServerVariables("REMOTE_ADDR")&","&Request.ServerVariables("URL")&"+'cook'+"&Fy_cook&"+"&replace(Request.Cookies(Fy_cook),"'","*")&""
response.redirect "
http://网站名/"
Response.End
End If
Next
Next
End If
%>