FSO生成146K文件时出现“错误 '80020009' 发生意外。 ”

[Netcean]

用Access数据库中的备注字段，存不下这么多的字符，想到用FSO生成静态页，以下是相关代码：
ID=Request.Form("ID")
filePath = Server.MapPath("../kj/"&ID&".htm")
Set htmlWrite = Fso.OpenTextfile(filePath,2,true)
htmlWrite.writeline(Replace(Replace(Request.Form("Content"),"'",""),"""",""))
htmlWrite.Close()
=========================================
要写入的文字复制到记事本中并保存，发现大小有146K左右，里面全是文字和一些表格及表格修饰代码，有什么方法可以解决吗？

以后输入的资料还有可能比这更 多。

[Netcean]

自己顶下。。

[文盲老顾]

<%
	On Error Resume Next
	Set txtFile=FSO.OpenTextFile(Server.MapPath(FileName),2,True)
	If Err.Number=70 Then
		isErr_=-1
		ErrMessage_="没有权限，文件只读或被锁定。"
	Else
		txtFile.Write value
	End If
	Set txtFile=NoThing

'不过 fso 只对 ansi 和 unicode 支持的比较好，如果其他编码格式，最好使用 ado.stream

Sub SaveToFile(FileName,Code,Charset,Path)
	On Error Resume Next
	Dim File,sPath,FSO
	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	sPath = Path
	If sPath = "" Then sPath = "."
	If Right(sPath,1) = "/" Or Right(sPath,1) = "\" Then sPath = Left(sPath,Len(sPath) - 1)
	If Not FSO.FolderExists(Server.MapPath(sPath)) Then
		FSO.CreateFolder(Server.MapPath(Path))
	End If
	Set FSO = Nothing
	If Err Then
		response.write sPath
		Response.Write "File save failed,please check the path."
		response.write Err.description
		Exit Sub
	End If
	Set File = Server.CreateObject("Adodb.Stream")
	File.Charset = Charset
	File.Mode = 3
	File.Open
	File.Type = 2
	File.Position = 0
	File.WriteText Code
	File.SaveToFile Server.MapPath(sPath & "/" & FileName), 2
	File.Close
	Set File = Nothing
End Sub

%>

[Anlige]

备注字段可以存最多2G的文字啊~~~

[Netcean]

用 Set File = Server.CreateObject("Adodb.Stream")
还是错误，我的内容是通过ewebeditor把内容写到文本里面去的，会不会跟里面的内容及代码有关系？

[Netcean]

[Quote=引用 3 楼 Anlige 的回复:]
备注字段可以存最多2G的文字啊~~~
[/Quote]
好像最多只能有64K吧。。

[苍白之月]

Anlige 备注字段可以存最多2G的文字啊~~~ 没错
Netcean 好像最多只能有64K吧。。 你说的是binary一次可读取的长度
Netcean 一片文章就是150K的话 相存入数据库就别用Access

文盲 的办法比较通用 不过如果FSO不让用的话。。还可以用XMLHTTP

用 Set File = Server.CreateObject("Adodb.Stream")
还是错误，我的内容是通过ewebeditor把内容写到文本里面去的，会不会跟里面的内容及代码有关系？

你这句还是错误 是指生成不了文件 还是生成的文件内容错误?