asp讀取動(dòng)態(tài)頁(yè)面生成靜態(tài)頁(yè)面

    <%
    '常用函數(shù)
    '1、輸入url目標(biāo)網(wǎng)頁(yè)地址，返回值getHTTPPage是目標(biāo)網(wǎng)頁(yè)的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、轉(zhuǎn)換亂瑪，直接用xmlhttp調(diào)用有中文字符的網(wǎng)頁(yè)得到的將是亂瑪，可以通過adodb.stream組件進(jìn)行轉(zhuǎn)換
    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
    'txtURL=server.MapPath("http://www.ynpxrz.com/default.asp")
    txtURL="http://www.ynpxrz.com/default.asp"
    sText = getHTTPPage(txtURL)
    Set FileObject=Server.CreateObject("Scripting.FileSystemObject")
    filename="default.html"
    Set openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) 'true為不存在自行建立
    openFile.writeline(sText)
    Set OpenFile=nothing
    response.Write "生成成功"
    %>