asp上实现禁止搜索引擎蜘蛛访问的代码

发布时间：2023-05-10 13:53:35 所属栏目：Asp教程来源：

导读：这篇文章主要介绍了asp实现禁止搜索引擎蜘蛛访问的代码，十分的简单实用，有需要的小伙伴可以参考下。

这段代码可以控制常用的搜索引擎无法访问asp页面，需要在每个asp页面包含这段代码。

<%

function is

这篇文章主要介绍了asp实现禁止搜索引擎蜘蛛访问的代码，十分的简单实用，有需要的小伙伴可以参考下。

这段代码可以控制常用的搜索引擎无法访问asp页面，需要在每个asp页面包含这段代码。

<%

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

%>

以上所述就是本文的全部内容了，希望大家能够喜欢。

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!