<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
End function
Function PostHTTPPage(url,strForm)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "POST",url,false
http.setRequestHeader "Content-Length",len(strForm)
http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
Http.send(strForm)
if Http.readystate<>4 then
exit function
end if
PostHTTPPage=bytesToBSTR(Http.responseBody,"GB2312")
set http=nothing
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
url=Request.ServerVariables("HTTP_REFERER")
Html=getHTTPPage(url)
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(<tr><td align=""center""><img src="")(.+?)("")"
aa=re.Replace(Html,"{fuckbaidu}$2{fuckbaidu}")
imgurls=split(aa,"{fuckbaidu}")
i=ubound(imgurls)
if i=0 then
response.end()
end if
randomize
s=Int(i*Rnd +1)
if (s mod 2 =0) then
s=s-1
end if
while imgurls(s)="头像地址"
s=Int(i*Rnd +1)
if (s mod 2 =0) then
s=s-1
end if
wend
imgurl=imgurls(s)
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Dim objXMLHTTP, xml
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET",imgurl,False
xml.Send
Response.BinaryWrite xml.responseBody
set xml=nothing
%>