% Dim UserAgent,ScriptName UserAgent=Trim(lcase(Request.Servervariables("HTTP_USER_AGENT"))) ScriptName=lcase(request.ServerVariables("PATH_INFO")) If Instr(UserAgent,"teleport")>0 or Instr(UserAgent,"webzip")>0 or Instr(UserAgent,"flashget")>0 or Instr(UserAgent,"offline")>0 Then response.redirect "error.htm"//这个是一个到时其下载的页面 response.end end if %>