ASP跨站提交参数检测,这里用的是Sub 过程。 首先在Function.asp或其他公用文件里面定义一个过程Check_Url()
Sub Check_url() ''是否是本站提交的数据检测
If Instr(Lcase(request.serverVariables("HTTP_REFERER")),Lcase(request.ServerVariables("SERVER_NAME")))=0 then
Response.write "对不起!提交的参数不合法。"
Response.End()
End if
End Sub
然后在需要的地方引用就可以了,例如这个过程写在Function.asp文件里的。
''引用文件
< %
CheckAdmin() ''引用过程
%>
PS:其实用函数Function也可以。