判断来源URL是否来自外部

<%
´******************************
´函数：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
%>