Dim FilterURL(2),f,RefURL
FilterURL(0)="
FilterURL(1)="
RefURL=Request.ServerVariables("HTTP_REFERER")
For f=0 To Ubound(FilterURL)
    if Instr(RefURL,FilterURL(i))=0 then
       response.write "警告非法来路访问被拒绝"
       response.end
    End IF   
Next
再试试

还是一样。点击首页还是跳出"警告非法来路访问被拒绝"

斑竹，再出来说说

那你可以先用方法1