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>