为什么 提交的文本内容太长 就会出现意外错误?

时间:2022-11-06 10:59:55
事件是这样的,我从数据库读取一篇小说,如果字数太多,如5、6万字,在保存的时候调用下面的程序就会出错,无论去掉哪行都还是出错,这是什么问题?

字段NTEXT

'###############文本编辑框处理开始#####################
Function ReplaceText(fString,patrn, replStr)
Dim regEx
Set regEx = New RegExp  ' 建立正则表达式。
regEx.Pattern = patrn   ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True     ' 设置全局可用性。 
ReplaceText = regEx.Replace(fString, replStr) ' 作替换。
End Function
''''''''''替换模块END''''''''''''
function ContentEncode(fString)
fString=replace(fString,vbCrlf, "")
fString=replace(fString,"\","\")
fString=replace(fString,"'","'")
fString=replace(fString,"<P></P>","") '临时加的,似乎经常会有这个多余代码出现
fString=replace(fString,"</P><P>   <BR>","")'专门针对抓来的小说的,完成后去掉
fString=ReplaceText(fString,"<(.[^>]*)(&#|cookie|window.|Document.|javascript:|js:|vbs:|about:|file:|on(blur|click|change|Exit|error|focus|finish|key|load|mouse))", "&lt;$1$2$3")
fString=ReplaceText(fString,"<(\/|)(iframe|object|SCRIPT|form|style|meta)", "&lt;$1$2")
ContentEncode=fString
end function

12 个解决方案

#1


没人知道吗?

#2


因为一个form提交数据的大小是有限制的!~~~
如果太大,可能

#3


对,form提交的数据是有限制的!具体多少忘记了  :(

#4


post好像是64K?

#5


是的,支持

#6


哦,又知道一些

#7


那我要修改数据库里的数据该如何做呢,
我已经不用这个技术了,但想了解,我想也有很多人想知道吧

#8


你是怎么写到数据库的呢??
能写就能读出来,然后修改不就得了

#9


mark

#10


我程序自动抓的,然后直接加入数据库,没有表单过程

#11


textarea里最多65535个字符

#12


我也遇到过这个问题,现在我知道原因了
原因是使用MS操作系统的服务器,接受输入框最大数据量是200k
在iis里面可以调

#1


没人知道吗?

#2


因为一个form提交数据的大小是有限制的!~~~
如果太大,可能

#3


对,form提交的数据是有限制的!具体多少忘记了  :(

#4


post好像是64K?

#5


是的,支持

#6


哦,又知道一些

#7


那我要修改数据库里的数据该如何做呢,
我已经不用这个技术了,但想了解,我想也有很多人想知道吧

#8


你是怎么写到数据库的呢??
能写就能读出来,然后修改不就得了

#9


mark

#10


我程序自动抓的,然后直接加入数据库,没有表单过程

#11


textarea里最多65535个字符

#12


我也遇到过这个问题,现在我知道原因了
原因是使用MS操作系统的服务器,接受输入框最大数据量是200k
在iis里面可以调