form表单提交文本，有20万字符，用asp提交报错，堆栈益出，超出允许的范围。
100分求解。
---------------------------------------------------------------
那就直接用上传组件上传吧。
---------------------------------------------------------------
当表单发送的数据量很大时，就会报错。原因是微软对用Request.Form()可接收的最大数据限制为100K字节。
微软建议用Request.BinaryRead()读取表单数据，但由于这种方法读出的是二进制数据，需要对读出的数据逐字节进行分析，生成有意义的字符串（MSDN上的一段程序就是这样写的，但它并没有考虑诸如标点符号等转义字符需要进行特殊分析）。如果说这种方法对于纯英文系统勉强可用的话，则对于中文系统来说就有极大的麻烦，因为汉字是用两个字节表示的，而读出的二进制数据本身并不能判断是英文还是汉字（否则就不是二进制数据，而是字符串了^-^）。这样的话就必须了解汉字的编码规律才能进行分析。最后，即使算法上能把这些都分析出来，大家想想对于一个MB级的巨型字符串逐字节进行分析，其效率何如？所以，此路不通！
不过，办法总是有的。一开始我以为是整个表单数据的总和不能超过100KB，后来发现这是对表单内每个域的限制。问题的解决办法是，对于一个需要发送大数据的域，在提交表单前将数据拆分为小于限额的数份，分别放在数个hidden域中，同时把原有域清空，再正式提交表单。服务器端还是用Request.Form()读取各hidden域的数据，再按照顺序把他们拼接起来就行了。主要代码如下：
注意：需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域。
====客户端示例代码====
1<script language="javascript">
2//数据拆分，并放到相应的hidden域中，在Form的onSubmit事件中激发
3function fnPreHandle()
4{
5var iCount; //拆分为多少个域
6var strData; //原始数据
7var iMaxChars = 50000;//考虑到汉字为双字节，域的最大字符数限制为50K
8var iBottleNeck = 2000000;//如果文章超过2M字，需要提示用户
9var strHTML;
10
11//原始数据
12strData = frmTest.BigField.value;
13
14//如果文章实在太长，需要提醒用户
15if (strData.length > iBottleNeck)
16{
17if (confirm("您要发布的文章太长，建议您拆分为几部分分别发布。\n如果您坚持提交，注意需要较长时间才能提交成功。\n\n是否坚持提交？") == false)
18return false;
19}
20
21iCount = parseInt(strData.length / iMaxChars) + 1;
22
23//hdnCount记录原数据域拆分为多少个子域
24strHTML = "<input type=hidden name=hdnCount value=" + iCount + ">";
25
26//生成各子域的HTML代码
27for (var i = 1; i <= iCount; i++)
28{
29strHTML = strHTML + "\n" + "<input type=hidden name=hdnBigField" + i + ">";
30}
31
32//在Form中DIV(divHidden)内动态插入各hidden域的HTML代码
33document.all.divHidden.innerHTML = strHTML;
34
35//给各子域赋值
36for (var i = 1; i <= iCount; i++)
37{
38frmTest.elements["hdnBigField" + i].value = strData.substring((i - 1) * iMaxChars, i * iMaxChars);
39}
40
41//原数据域清空
42frmTest.BigField.value = "";
43}
44</script>
====服务器端示例代码====
1
2Dim strData
3Dim intFieldCount
4Dim i
5
6intFieldCount = Request.Form("hdnCount")
7
8For i=1 To intFieldCount
9strData = strData & Request.Form("hdnBigfield" & i)
10Next
11
12Response.Write strData