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

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

环境: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文件

而且需要把生成的文件名等写入数库以便以后调用等,此实例只是实现了根据提交过来参数替换模板中的相应的字段! 需要完善的地方很多!哪位有高见,欢迎赐教!coffee.gif





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")

%>




转载请注明:转自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/

  • 0
    点赞
  • 0
    收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值