发表时间：2010-2-10    浏览次数：895

　　当表单发送的数据量很大时，就会报错。查阅MSDN了解到，原因是微软对用Request.Form()可接收的最大数据限制为100K字节。

　　微软建议用Request.BinaryRead()读取表单数据，但由于这种方法读出的是二进制数据，需要对读出的数据逐字节进行分析，生成有意义的字符串（MSDN上的一段程序就是这样写的，但它并没有考虑诸如标点符号等转义字符需要进行特殊分析）。如果说这种方法对于纯英文系统勉强可用的话，则对于中文系统来说就有极大的麻烦，因为汉字是用两个字节表示的，而读出的二进制数据本身并不能判断是英文还是汉字（否则就不是二进制数据，而是字符串了^-^）。这样的话就必须了解汉字的编码规律才能进行分析。最后，即使算法上能把这些都分析出来，大家想想对于一个MB级的巨型字符串逐字节进行分析，其效率何如？所以，此路不通！

　　不过，办法总是有的。一开始我以为是整个表单数据的总和不能超过100KB，后来发现这是对表单内每个域的限制。问题的解决办法是，对于一个需要发送大数据的域，在提交表单前将数据拆分为小于限额的数份，分别放在数个hidden域中，同时把原有域清空，再正式提交表单。服务器端还是用Request.Form()读取各hidden域的数据，再按照顺序把他们拼接起来就行了。主要代码如下：

注意：需要在Form中的HTML代码内指定一个DIV,以便向其中动态插入hidden域。

1. <SCRIPT language=javascript>    
2. 　　//数据拆分，并放到相应的hidden域中，在Form的onSubmit事件中激发    
3. 　　function fnPreHandle()    
4. 　　{    
5. 　　var iCount; //拆分为多少个域    
6. 　　var strData; //原始数据    
7. 　　var iMaxChars = 50000;//考虑到汉字为双字节，域的最大字符数限制为50K    
8. 　　var iBottleNeck = 2000000;//如果文章超过2M字，需要提示用户    
9. 　　var strHTML;//原始数据    
10. 　　strData = frmTest.BigField.value;//如果文章实在太长，需要提醒用户    
11. 　　if (strData.length > iBottleNeck)    
12. 　　{    
13. 　　if (confirm("您要发布的文章太长，建议您拆分为几部分分别发布。\n如果您坚持提交，注意需要较长时间才能提交成功。\n\n是否坚持提交？") == false)    
14. 　　return false;    
15. 　　}iCount = parseInt(strData.length / iMaxChars) + 1;//hdnCount记录原数据域拆分为多少个子域    
16. 　　strHTML = "<input type=hidden name=hdnCount value=" + iCount + ">";//生成各子域的HTML代码    
17. 　　for (var i = 1; i <= iCount; i++)    
18. 　　{    
19. 　　strHTML = strHTML + "\n" + "<input type=hidden name=hdnBigField" + i + ">";    
20. 　　}//在Form中DIV(divHidden)内动态插入各hidden域的HTML代码    
21. 　　document.all.divHidden.innerHTML = strHTML;//给各子域赋值    
22. 　　for (var i = 1; i <= iCount; i++)    
23. 　　{    
24. 　　frmTest.elements["hdnBigField" + i].value = strData.substring((i - 1) * iMaxChars, i * iMaxChars);    
25. 　　}//原数据域清空    
26. 　　frmTest.BigField.value = "";    
27. 　　}    
28. 　　</SCRIPT>    

服务端代码:

1. <%    
2. 　　Dim strData    
3. 　　Dim intFieldCount    
4. 　　Dim iintFieldCount = Request.Form("hdnCount")For i=1 To intFieldCount    
5. 　　strData = strData & Request.Form("hdnBigfield" & i)    
6. 　　NextResponse.Write strData    
7. %>