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

%>
回复
Netcean 2008-04-03
自己顶下。。
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-04-03 05:39
社区公告
暂无公告