动态网站页面的静态生成方法268.docVIP

动态网站页面的静态生成方法 方法一： ?程序代码%常用函数1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码function getHTTPPage(url)dim Httpset Http=server.createobject(MSXML2.XMLHTTP)Http.open GET,url,falseHttp.send()if Http.readystate4 then exit functionend ifgetHTTPPage=bytesToBSTR(Http.responseBody,UTF-8)set http=nothingif err.number0 then err.Clear end function 2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换Function BytesToBstr(body,Cset)dim objstreamset objstream = Server.CreateObject(adodb.stream)objstream.Type = 1objstream.Mode =3objstream.Openobjstream.Write bodyobjstream.Position = 0objstream.Type = 2objstream.Charset = CsetBytesToBstr = objstream.ReadText objstream.Closeset objstream = nothingEnd Function txtURL=server.MapPath(../index.asp) sText = getHTTPPage(txtURL) Set FileObject=Server.CreateObject(Scripting.FileSystemObject) filename=../index.htmSet openFile=FileObject.OpenTextfile(server.mapPath(filename),2,true) true为不存在自行建立openFile.writeline(sText)Set OpenFile=nothing 此处也可以不用FSO,而用ADO.STREAM,如下这个函数Function SaveToFile(strBody,ByVal File,CharSet)if CharSet = then CharSet = GB2312Dim objStreamSet objStream = Server.CreateObject(ADODB.Stream)With objStream.Type = 2.Open.Charset = CharSet.Position = objStream.Size.WriteText = strBody.SaveToFile Server.MapPath(File),2.CloseEnd WithSet objStream = NothingEnd Function%scriptalert(静态网页生成完毕);history.back();/script 方法二： ?程序代码resourcefile=server.MapPath(../index.asp)targetfile=server.MapPath(../index.htm)Set html = Server.CreateObject(CDO.Message)html.CreateMHTMLBody resourcefile,31 indexcode=html.HTMLBodySet html = Nothingif instr(indexcode,/BODY/HTML)=0 thenresponse.Write(首页生成失败)response.End()elseSet oFileSys = Server.CreateObject(Scripting.FileSystemObject)Set outfile=oFileSys.CreateTextFile(targetfile)outfile.WriteLine indexcodeoutfile.close Set outfile=nothingset oFileSys=nothingresponse.Write(首页生成完毕!)end if （二）Asp生成HTML方法一:FSO Set fs = CreateObject(Script