asp.net如何生成一个HTML页面?

html-css047

asp.net如何生成一个HTML页面?,第1张

我的回答如下,希望能帮助您:

1.FCKeditor 是一个开源的文本编辑器,不能直接生成html文件,但是可以借助FCKeditor控件获取在编辑器中排版好html代码。

2.生成HTML文件,需要用到文本写入流,利用这个类实例化一个对象,用这个对象的一个write方法方法写入html文本文件.

3.写入完成由要释放资源。用这个对象调.Dispose()好像是这个。

4.具体参见代码:

StringBuilder strbuf = new StringBuilder()

strbuf="这里是我获取的FCKeditor的html代码"

StreamWriter sw = new StreamWriter(Server.MapPath("../html/default/test.htm"), true, Encoding.UTF8)

sw.Write(strbuf.ToString())

sw.Close()

sw.Dispose()

这样您就可以生成一个为test.html的html文件了

---------------------------------------------------------------------------

如果你没有变成基础,其实开可以有一种更简单的方式来生成html网页,

但是可以借助FCKeditor控件获取在编辑器中排版好html代码。

然后保存到记事本里面,把记事本的 .txt 后缀修改为 .htm .html 然后保存,在打开就可以生成一个html网页了。

Asp转换为HTML2008-02-15 20:16字段c_id:自动编号,主关键字

字段c_title:文本类型,保存文章标题

字段c_content:备注类型,保存文章内容

字段c_filepath:文本类型,保持生成文件的路径地址

字段c_time:日期/时间类型,默认值:Now()

三、页面需求设计

1、首先建立一个存放HTML页的文件夹

在文件同一目录下,建立文件夹newsfile,夹子内部主要存放生成的HTML页面,当然内部还会采用程序方式建立以日期命名的子文件夹,以方便浏览以及管理。

2、功能函数页面lib.asp

引用:

<%

'生成文件名的函数

function makefilename(fname)

fname = fname

fname = replace(fname,"-","")

fname = replace(fname," ","")

fname = replace(fname,":","")

fname = replace(fname,"PM","")

fname = replace(fname,"AM","")

fname = replace(fname,"上午","")

fname = replace(fname,"下午","")

makefilename=fname &".shtml"

end function

'保持数据格式不变的函数

function HTMLEncode(fString)

fString = replace(fString, ">", ">")

fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(32), " ")

fString = Replace(fString, CHR(13), "")

fString = Replace(fString, CHR(10) &CHR(10), "<br>")

fString = Replace(fString, CHR(10), "<br>")

HTMLEncode = fString

end function

%>

3、数据库连接页面conn.asp

完成数据库的字符串连接方法

<%

set conn = Server.CreateObject("ADODB.Connection")

connstr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source="&Server.MapPath("asp2html.mdb")

conn.Open connstr

%>

4、信息输入页面add.html

其实很简单,就是表单嘛。注意action是跳转到addit.asp

引用:

<form action="addit.asp" method="post">

Title:<input type="text" name="c_title"><br>

Content:<br>

<textarea name="c_content" rows="8" cols="30"></textarea><br>

<input type="submit" value="Add">

<input type="reset" value="Reset">

</form>

5、处理数据功能显示页面addit.asp

首先是处理接受过来的数据,并将值写入数据库;接着将模板代码进行引用,并将其中特殊代码转换为接受值,最终通过FSO生成HTML页面。其中需要注意的还有,生成文件的路径地址保存至数据库表。

引用:

<%'容错处理

On Error Resume Next

%>

<!--#include file="conn.asp" -->

<!--#include file="lib.asp" -->

<%'接受传递值

c_title=request.form("c_title")

c_content=request.form("c_content")

%>

<%'生成HTML文件名,建立文件夹,指定文件路径

fname = makefilename(now()) 'makefilename为自定义函数

folder = "newsfile/"&date()&"/"

filepath = folder&fname

%>

<%'将接受值及路径保持至数据库表

sql = "Select * from c_news"

Set rs = Server.CreateObject ("ADODB.Recordset")

rs.Open sql,conn,3,2

rs.addnew

rs("c_title")=c_title

rs("c_content")=c_content

rs("c_filepath")=filepath

rs.update

rs.close

Set rs = Nothing

%>

<%'打开模板代码,并将其中特殊代码转变为接受值

sql1="select m_id,m_html from c_moban where m_id=1"

set rs1=Server.CreateObject("adodb.recordset")

rs1.open sql1,conn,1,1

mb_code=rs1("m_html")

rs1.close

set rs1=nothing

conn.close

set conn=nothing

c_title=htmlencode(c_title)

c_content=htmlencode(c_content)

mb_code=replace(mb_code,"$cntop{LogContent}quot,now())

mb_code=replace(mb_code,"$cnleft{LogContent}quot,c_title)

mb_code=replace(mb_code,"$cnright{LogContent}quot,c_content)

%>

<%'生成HTML页面

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

fso.CreateFolder(Server.MapPath(folder))

Set fout = fso.CreateTextFile(Server.MapPath(filepath))

fout.WriteLine mb_code

fout.close

%>

文章添加成功,<a href="showit.asp">浏览</a>