<%
'判断用的地址 MYhttp="www.abc.com|abc.com|www.aaa.com"
MYhttp="abc.com"

Public Function ISmydown(MYhttp)
Dim strReferer, isHttp, strHostName
isHttp = False
strReferer = Request.ServerVariables("HTTP_REFERER")
strHostName = Split(MYhttp, "|")
   For i = 0 To UBound(strHostName)
    If InStr(strReferer, Trim(strHostName(i))) > 0 Then isHttp = True
   Next
   If IsNull(strReferer) Or isHttp = False Then
    Response.Write "非法操作！系统启用防盗链机制，你的下载链接来自于非法盗链页面，请访问<a href=#>本站页面</a>下载软件。"
    'response.redirect "../"
    Exit Function
   End If
End Function
call ISmydown(MYhttp)
 %>