代碼: % '常用函數 '1、輸入url目標網頁地址，返回值getHTTPPage是目標網頁的html代碼 function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP" Http.open "GET",url,false Http.send() if Http.readystate>4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312" set http=nothing if err.number>0 then err.Clear end function '2、轉換亂瑪，直接用xmlhttp調用有中文字符的網頁得到的將是亂瑪，可以通過adodb.stream組件進行轉換 Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream" objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function '下面試著調用http://www.998w.net/class/的html內容 Dim Url,Html Url="http://www.998w.net/class/" Html = getHTTPPage(Url) Response.write Html %> ------------------------------------------------------ 代碼: '代碼用XMLHTTP讀取遠程文件 % Response.Buffer = True Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP" xml.Open "GET", "http://www.998w.net/down/998w1.0.rar", False xml.Send ' Add a header to give it a file name: Response.AddHeader "Content-Disposition", _ "attachment;filename=mitchell-pres.zip" ' Specify the content type to tell the browser what to do: Response.ContentType = "application/zip" ' Binarywrite the bytes to the browser Response.BinaryWrite xml.responseBody Set xml = Nothing %>
