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网页了。
呃，这就麻烦了。。劳烦您再使劲学学吧。。==============================================
a="aaa"
b="bbb"
a&b="aaabbb"
绝对和相对路径要看你的WriteToTextFile的函数里面，如果有server.MapPath，那这里就要写相对路径。
FSO写文件是要绝对路径的。还有一个，文件夹如果不存在的话要先建一个文件夹的。
我经常用这几个：
'================================================
'函数名：CreatedTextFile
'作
用：创建文本文件
'参
数：FileName
'================================================
Public
Function
CreateFile(ByVal
FileName,
ByVal
body)
On
Error
Resume
Next
If
InStr(FileName,
":")
=
0
Then
FileName
=
FileName
Dim
oStream
Set
oStream
=
CreateObject("ADODB.Stream")
oStream.Type
=
2
'设置为可读可写
oStream.Mode
=
3
'设置内容为文本
oStream.Charset
=
"UTF-8"
'设置编码
oStream.Open
oStream.Position
=
oStream.Size
oStream.WriteText
body
oStream.SaveToFile
FileName,
2
oStream.Close
Set
oStream
=
Nothing
If
Err.Number
<>
0
Then
Err.Clear
End
Function
'================================================
'函数名：Readfile
'作
用：读取文件内容
'参
数：fromPath
----来源文件路径
'================================================
Function
Readfile(URL)
set
srmObj
=
server.CreateObject("adodb.stream")
srmObj.type=1
srmObj.mode=3
srmObj.open
srmObj.Position=0
srmObj.LoadFromFile
URL
srmObj.Position
=
0
srmObj.type=2
srmObj.charset="utf-8"
Readfile=srmObj.readtext()
End
function
'================================================
'函数名：CheckFolder
'作
用：检查文件夹是否存在
'参
数：FolderName
----文件夹路径
'================================================
Public
Function
CheckFolder(FolderName)
fldr
=
FolderName
Set
fso
=
CreateObject("Scripting.FileSystemObject")
If
Not
fso.FolderExists(fldr)
Then
fso.CreateFolder(fldr)
End
If
Set
fso
=
Nothing
End
Function
