ASP.Net/asp 生成静态HTML页!

ASP.Net/asp 生成静态HTML页![@more@]

ASP.Net生成静态HTML页! 环境:Microsoft .NET Framework SDK v1.1 OS:Windows Server 2003 中文版 ASP.Net生成静态HTML页 在Asp中实现的生成静态页用到的FileSystemObject对象! 在.Net中涉及此类操作的是System.IO 以下是程序代码 注:此代码非原创!参考别人代码 //生成HTML页 public static bool WriteFile(string strText,string strContent,string strAuthor) { string path = HttpContext.Current.Server.MapPath("/news/"); Encoding code = Encoding.GetEncoding("gb2312"); // 读取模板文件 string temp = HttpContext.Current.Server.MapPath("/news/text.html"); StreamReader sr=null; StreamWriter sw=null; string str=""; try { sr = new StreamReader(temp, code); str = sr.ReadToEnd(); // 读取文件 } catch(Exception exp) { HttpContext.Current.Response.Write(exp.Message); HttpContext.Current.Response.End(); sr.Close(); } string htmlfilename=DateTime.Now.ToString("yyyyMMddHHmmss")+".html"; // 替换内容 // 这时,模板文件已经读入到名称为str的变量中了 str =str.Replace("ShowArticle",strText); //模板页中的ShowArticle str = str.Replace("biaoti",strText); str = str.Replace("content",strContent); str = str.Replace("author",strAuthor); // 写文件 try { sw = new StreamWriter(path + htmlfilename , false, code); sw.Write(str); sw.Flush(); } catch(Exception ex) { HttpContext.Current.Response.Write(ex.Message); HttpContext.Current.Response.End(); } finally { sw.Close(); } return true; 此函数放在Conn.CS基类中了 在添加新闻的代码中引用 注：工程名为Hover if(Hover.Conn.WriteFilethis.Title.Text.ToString),this.Content.Text.ToString),this.Author.Text.ToString))) { Response.Write("添加成功"); } else { Response.Write("生成HTML出错!"); } ------------------------------------------------------------------------- 模板页Text.html代码 ------------------------------------------------------------------------- ShowArticle ------------------------------------------------------------------------ 提示添加成功后会出以当前时间为文件名的html文件!上面只是把传递过来的几个参数直接写入了HTML文件中,在实际应用中需要先添加数据库，然后再写入HTML文件 而且需要把生成的文件名等写入数库以便以后调用等，此实例只是实现了根据提交过来参数替换模板中的相应的字段! 需要完善的地方很多！哪位有高见，欢迎赐教！ biaoti content author ASP.Net生成静态HTML页! 2004-06-01 13:36 Kriss 我找到我想用的方法了： using System.Web.Hosting; WebHost host = (WebHost)ApplicationHost.CreateApplicationHost( typeof(WebHost), name, path); public void DoRequest(string page, string query, TextWriter writer) { HttpRuntime.ProcessRequest(new SimpleWorkerRequest(page, query, writer)); } 这样我就可以直接把一个ASPX文件产生HTML文件了 FileStream fs = File.Open("Default.htm"); host.DoRequest("Default.aspx",string.Empty,fs); ASP生成静态网页的方法 随着网站访问量的加大，每次从数据库读取都是以效率作为代价的，很多用ACCESS作数据库的更会深有体会，静态页加在搜索时，也会被优先考虑。互联网上流行的做法是将数据源代码写入数据库再从数据库读取生成静态面，这样无形间就加大了数据库。将现有的ASP页直接生成静态页，将会节省很多。 　　下面的例子是将、index.asp?id=1/index.asp?id=2/index.asp?id=3/这三个动态页面，分别生成ndex1.htm,index2.htm,index3.htm存在根目录下面： dim strUrl,Item_Classid,id,FileName,FilePath,Do_Url,Html_Temp Html_Temp=" " For i=1 To 3 Html_Temp = Html_Temp&" " Item_Classid = i FileName = "Index"&Item_Classid&".htm" FilePath = Server.MapPath("/")&""&FileName 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.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 ( "成功生成文件：" ) Response.Write ( " " ) Response.Write Html_Temp %> 引http://www.txia.com/blog/trackback.asp?tbID=211 <!--#include file="conn.asp"--&gt dim str function menu(id) set rs=server.CreateObject("adodb.recordset") sql="select * from menu where id1="&id&" order by url,id" rs.open sql,conn,1,1 str=str+" "&rs("menuname")&"" οnmοuseup="" else if i=rs.recordcount then menutype="menu3" listtype="list1" οnmοuseup=" onMouseUp=change1('a"&rs("id")&"','b"&rs("id")&"');" else menutype="menu1" listtype="list" οnmοuseup=" onMouseUp=change2('a"&rs("id")&"','b"&rs("id")&"');" end if menuname=rs("menuname") end if str=str+"

"&menuname&"

"+chr(13) menu(rs("id")) str=str+"

"+chr(13)

rs.close

set rs=nothing

end function

menu(0)

set fso=server.CreateObject("scripting.filesystemobject")

set f1=fso.opentextfile(server.MapPath("demo.htm"),2,true)

f1.write("")

f1.write("")

f1.write("

")

f1.write("")

f1.write("哈哈~~~！这回速度超快了吧？")

f1.write("")

f1.write("")

f1.write("")

f1.write("")

f1.write("")

f1.write("")

f1.write(" http://asp2004.net提供最新下载《 管理》
")

f1.write(str)

f1.write("")

f1.write("")

f1.close

set fso=nothing

response.Redirect("demo.htm")

%>

---

不用模板，只用ASP+FSO生成静态HTML页的一个方法（对于内容密集型页面特别适用）

转载请注明：转自http://goaler.xicp.net



FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题，至少我是这么认为的，还要别外做一个模板，麻烦！，我今天看见有一个方法可以解决这个问题

如一个正常的index.asp页面，并且用ASP代码调出数据库中的内容，另建一个makehtml.asp的页面，加入一个textarea域，假设为name="body"，将index.asp在textarea里调出来，如：

<!--#include file="index.asp"--&gt，将这个textarea包含在表单中，在接收表单页用创建FSO对象，如下生成index.html文件！

filename="../index.html"

if request("body")<>"" then

set fso = Server.CreateObject("Scripting.FileSystemObject")

set fout = fso.CreateTextFile(server.mappath(""&filename&""))

fout.write request.form("body")

fout.close

set fout=nothing

set fso=nothing

end if

%>

这样index.html文件就生成了，连模板都用不着，只要将正常情况下使用的ASP文件读取到textarea里就可以了，目前尚未发现问题！当然前提是服务器要支持FSO

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/390618/viewspace-889705/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/390618/viewspace-889705/