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

《动态网站页面的静态生成方法》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、动态网站页面的静态生成方法方法一： 程序代码<%'常用函数'1、输入url目标网页地址，返回值getHTTPPage是目标网页的html代码functiongetHTTPPage(url)dimHttpsetHttp=server.createobject("MSXML2.XMLHTTP")Http.open"GET",url,falseHttp.send()ifHttp.readystate<>4thenexitfunctionendifgetHTTPPage=bytesToBSTR(Http.responseBody,"UTF-8")

2、sethttp=nothingiferr.number<>0thenerr.Clearendfunction'2、转换乱玛，直接用xmlhttp调用有中文字符的网页得到的将是乱玛，可以通过adodb.stream组件进行转换FunctionBytesToBstr(body,Cset)dimobjstreamsetobjstream=Server.CreateObject("adodb.stream")objstream.Type=1objstream.Mode=3objstream.Openobjstream.Writebodyobjst

3、ream.Position=0objstream.Type=2objstream.Charset=CsetBytesToBstr=objstream.ReadTextobjstream.Closesetobjstream=nothingEndFunctiontxtURL=server.MapPath("../index.asp")sText=getHTTPPage(txtURL)SetFileObject=Server.CreateObject("Scripting.FileSystemObject")filename="../index

4、.htm"SetopenFile=FileObject.OpenTextfile(server.mapPath(filename),2,true)'true为不存在自行建立openFile.writeline(sText)SetOpenFile=nothing'此处也可以不用FSO,而用ADO.STREAM,如下这个函数FunctionSaveToFile(strBody,ByValFile,CharSet)ifCharSet=""thenCharSet="GB2312"DimobjStreamSetobjStream=Server.Cr

5、eateObject("ADODB.Stream")WithobjStream.Type=2.Open.Charset=CharSet.Position=objStream.Size.WriteText=strBody.SaveToFileServer.MapPath(File),2.CloseEndWithSetobjStream=NothingEndFunction%>方法二： 程序代码resourcefile=server.MapPa

6、th("../index.asp")targetfile=server.MapPath("../index.htm")Sethtml=Server.CreateObject("CDO.Message")html.CreateMHTMLBodyresourcefile,31indexcode=html.HTMLBodySethtml=Nothingifinstr(indexcode,"")<=0thenresponse.Write("首页生成失败")response.End()elseSetoFileSys=Se

7、rver.CreateObject("Scripting.FileSystemObject")Setoutfile=oFileSys.CreateTextFile(targetfile)outfile.WriteLineindexcodeoutfile.closeSetoutfile=nothingsetoFileSys=nothingresponse.Write("首页生成完毕!")endif（二）Asp生成HTML方法一:FSOSetfs=CreateObject("Scripting.FileSystemObject")NewFil

8、e=Server.MapPath("/asp/chap06/at/newfile.html")'新建一文件/newfile.html,若该文件已存在，则覆盖它Seta=fs.CreateTex