----------------------------------------------------------------'
'    isValidReferer
'    判断来源是否合法
'    返回值：布尔 (如果来自同一域名，则返回 True，否则返回 False)
'----------------------------------------------------------------'

Function isValidReferer()
    Dim server_v1, server_v2
    IsValidReferer = False
    server_v1 = CStr(Request.ServerVariables("HTTP_REFERER"))　　'获取来路的URL
    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