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

Netcean 2008-04-03 05:39:06

用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左右，里面全是文字和一些表格及表格修饰代码，有什么方法可以解决吗？

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

...全文

51 点赞收藏 6

写回复

6 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

苍白之月 2008-04-04

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

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

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

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

回复赞

Netcean 2008-04-03

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

回复赞

Netcean 2008-04-03

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

回复赞

Anlige 2008-04-03

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

回复赞

文盲老顾 2008-04-03

<%

	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



%>