asp学习网: 首页 >> asp自定义函数 >> 函数:判断来源url是否合法

'----------------------------------------------------------------'
'    isValidReferer
'    判断来源是否合法
'    返回值：布尔 (如果来自同一域名，则返回 True，否则返回 False)
'----------------------------------------------------------------'
Function isValidReferer()
    Dim server_v1, server_v2
    IsValidReferer = False
    server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))
    server_v2 = CStr(Request.ServerVariables("SERVER_NAME"))
    If Mid(server_v1, 8, Len(server_v2)) <> server_v2 Then
        isValidReferer = False
    Else
        isValidReferer = True
    End If
End Function