《ASP生成静态页面的6种方法》由会员分享，可在线阅读，更多相关《ASP生成静态页面的6种方法（16页珍藏版）》请在金锄头文库上搜索。
1、ASP 生成静态网页的多种方法 使用 FSO 生成txt.WriteLine data1data2=这句话是使用 Write 方法写入的。txt.Write data2txt.Close%使用 XMLHTTP 生成使用 XMLHTTP 批量生成For i=1 To 30 需要生成的 id：1 到 30Html_Temp = Html_Temp&Item_Classid = iFileName = Archives_&Item_Classid&.htm 生成的 html 文件名FilePath = Server.MapPath(/)&FileNameHtml_Temp = Html_Temp&F
2、ilePath&Do_Url = http:/www.kinoko.name/ud03/index.php WEB 路径Do_Url = Do_Url&?p=&Item_Classid WEB 路径之后的 IDstrUrl = Do_Urldim objXmlHttpset objXmlHttp = Server.CreateObject(Microsoft.XMLHTTP)objXmlHttp.open GET,strUrl,falseobjXmlHttp.send()Dim binFileDatabinFileData = objXmlHttp.responseBodyDim objAdo
3、Streamset objAdoStream = Server.CreateObject(ADODB.Stream)objAdoStream.Type = 1objAdoStream.Open()objAdoStream.Write(binFileData)objAdoStream.SaveToFile FilePath,2 objAdoStream.Close()NextHtml_Temp = Html_Temp&% )Response.Write Html_Temp%ASP 用标签替换的方法生成静态网页大家都知道 HTML 静态网页更容易被搜索引擎收录索引，动态生成 HTML 网页，也可使
4、网站的网页数量增多，搜索引擎收录的数量也可能多，再加下提高网页的质量也意未着什么呢？我想大家也知道。为了这个，我决定了改变之前网站建设,网页设计的方法,经过多翻的研究及思考，对多种网页动态生成的方法，我比较喜欢用标签替换的方法成生网页。标签替换法：这是我个人理解的定义，不知道别人怎么叫它的，呵呵！标签替换法，就是在设计好了的网页模板中，放入自已设定的标签，然后用你需要显示出来的东东替换它。如模板文件 1这个模板我们保存在数据库表中 temptable$SiteName $Arc_List$ 在以上模板中我放入了两个标签$SiteName网站名称和 $Arc_List$文章列表,再来看下面的代码
5、window.alert(文件生成成功了); response.end()Function get_ArcList()dim str,str1str1=str = listrs.openselect Title,url from Arcwhile not rs.eof str1 = str1 & &rs(Title)&rs.movenextwendrs.closestr = replace(str, list, Str1)get_ArcList = str % End Function以上的方法是不是很简单，现在很多 CMS 都是采用这种方法生成静态网页的，这种方法使用比较灵活，只要你用心去设
6、计一下你的系统，以后网做一个网站，只要设计模板就可以了。asp 生成静态网页 不用模板 直接传参数读取 asp 文件ASP 生成静态网页的方法下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/ 这三个动态页面，分别生成 index1.htm,index2.htm,index3.htm 存在根目录下面： For i=1 To 3 Html_Temp = Html_Temp& Item_Classid = i FileName = Index&Item_Classid&.htm FilePath = Server.MapPath(/)&Fil
7、eName Html_Temp = Html_Temp&FilePath& Do_Url = http:/ Do_Url = Do_Url&Request.ServerVariables(SERVER_NAME)&/main/index.asp Do_Url = Do_Url&?Item_Classid=&Item_Classid strUrl = Do_Url dim objXmlHttp set objXmlHttp = Server.CreateObject(Microsoft.XMLHTTP) objXmlHttp.open GET,strUrl,false objXmlHttp.se
8、nd() Dim binFileData binFileData = objXmlHttp.responseBody Dim objAdoStream set objAdoStream = Server.CreateObject(ADODB.Stream) objAdoStream.Type = 1 objAdoStream.Open() objAdoStream.Write(binFileData) objAdoStream.SaveToFile FilePath,2 objAdoStream.Close() Next Html_Temp = Html_Temp& % ) Response.
9、Write Html_Temp %非摸板生成静态页目前已经有很多生成 html 的新闻系统，但是都是用的模板，本函数实现把 asp 页面产生的html 代码保存成为一个 html 文件，这样就没有必要改动原来的页面就可以轻松完成一个生成 html 的新闻系统了。_ 由于代码比较短，这里就不进行注释了 content = re.replace(content,)re.global = false re.pattern = do set ms = re.execute(content) if ms.countaspEnd+1 execode = execode&vbcrlf& hughchiu_r
10、tcode = hughchiu_rtcode&replace( replace(Mid(content,aspEnd,aspStart-aspEnd-2),), vbcrlf, &vbcrlf&)&vbcrlf aspEnd=inStr(aspStart,content,%)+2 tmp_str = Mid(content,aspStart,aspEnd-aspStart-2)do set ms = re1.execute(tmp_str) if ms.count End Functionfunction asp2html(filename) dim code code = replace(
11、 replace( replace( get_exe_code(filename), hughchiu_rtcode = hughchiu_rtcode&vbcrlf, ), , ) response.Write(code) execute(code) response.Write( hughchiu_rtcode ) asp2html = hughchiu_rtcode end function %使用范例： set fso=CreateObject(Scripting.FileSystemObject) set f=fso.CreateTextFile( server.mappath( y
12、oupage.htm ), true ) f.WriteLine( asp2html(youpage.asp) ) f.close set f = nothing set fso = nothing可见,虽然是新方法还是需要 fso 的支持下面代码可以帮您生成静态页面，如：list.asp 是读数据库的页面，要生在 list.html 静态页面，你的域名是 ，可以用下面代码，使用方法：if SaveFile(/html/list.html,http:/ thenResponse.write 已生成elseResponse.write 没有生成 end if如生成失败，请把代码 On Error
13、 Resume Next 封了，查看具体错误信息代码如下：程序代码0 thenSaveFile = falseerr.clearelseSaveFile = true end ifEnd function%ASP 生成静态网页各种方法收集整理新闻系统、blog 系统等都可能用到将动态页面生成静态页面的技巧来提高页面的访问速度，从而减轻服务器的压力，本文为大家搜集整理了 ASP 编程中常用的生成静态网页的方法，有使用 fso 的，也有使用到 xmlhttp 或者 Adodb.Stream 的。1.使用 FSO 生成 txt.WriteLine data1 data2=这句话是使用 Write 方
14、法写入的。 txt.Write data2 txt.Close %2.使用 XMLHTTP 生成3.使用 XMLHTTP 批量生成 For i=1 To 30 需要生成的 id：1 到 30 Html_Temp = Html_Temp& Item_Classid = i FileName = Archives_&Item_Classid&.htm 生成的 html 文件名 FilePath = Server.MapPath(/)&FileName Html_Temp = Html_Temp&FilePath& Do_Url = http:/www.kinoko.name/ud03/index.
15、php WEB 路径 Do_Url = Do_Url&?p=&Item_Classid WEB 路径之后的 ID strUrl = Do_Url dim objXmlHttp set objXmlHttp = Server.CreateObject(Microsoft.XMLHTTP) objXmlHttp.open GET,strUrl,false objXmlHttp.send() Dim binFileData binFileData = objXmlHttp.responseBody Dim objAdoStream set objAdoStream = Server.CreateObject(ADODB.Stream) objAdoStream.Type = 1 objAdoStream.Open() objAdoStream.Write(binFileData) objAdoStream.SaveToFile FilePath,2 objAdoStream.Close() Next Html_Temp = Html_Temp& % ) Response.Write Html_Temp %4.自动按模板生成
