判断来源URL是否来自外部

发布时间:2009年05月11日      浏览次数:564 次
<%
´******************************
´函数:ChkUrl()
´参数:无
´作者:阿里西西
´日期:2007/7/15
´描述:判断来源URL是否来自外部,如果来自外部提交或访问,返回:false
´示例:ChkUrl()
´******************************
Function ChkUrl()
On Error Resume Next
Dim server_v1, server_v2
server_v1 = Replace(LCase(Trim(Request.ServerVariables("HTTP_REFERER"))), "http://", "")
server_v2 = LCase(Trim(Request.ServerVariables("SERVER_NAME")))
If server_v1 <> "" And Left(server_v1, Len(server_v2)) <> server_v2 Then
ChkUrl = False
Else
ChkUrl = True
End If
End Function
%>
免责声明:本站相关技术文章信息部分来自网络,目的主要是传播更多信息,如果您认为本站的某些信息侵犯了您的版权,请与我们联系,我们会即时妥善的处理,谢谢合作!