为什么采用了Request.BinaryRead函数后，偶尔会出现“意外错误，函数返回 |”的错误呢？

[taozhiyi]

为什么采用了Request.BinaryRead函数后，偶尔会出现“意外错误，函数返回 |”的错误呢？

[yeno]

你是上传文件吧，用无组件上传吧
<%
''文件名称：page.inc
''功能：处理数据翻页的函数
''作者：阿军

Sub ShowPageBar(TotalPage,CurPage,ipagesize,irecordcount,strUrl)
''参数TotalPage：整个页数
''参数CurPage：当前页数
''ipagesize:每页显示记录数
''irecordcount:记录总数
''参数strUrl：翻页使用的连接地址

'==============================计算显示参数======================
DIM strPage,currecordcount,page_start,page_end
if curpage+1>totalpage then '计算当前显示条数
currecordcount=irecordcount-ipagesize*(curpage-1)
else
currecordcount=ipagesize*curpage
end if

if totalpage=1 then '计算开始和结束记录
page_start=1
page_end=irecordcount
else
page_start=(curpage-1)*ipagesize+1
if curpage=1 then page_start=1 end if
page_end=ipagesize*curpage
if curpage*ipagesize=>irecordcount then page_end=irecordcount end if
end if
'==============================导航条开始=======================
CurPage=GetValidPageNO(TotalPage,CurPage)
Response.Write "<TABLE WIDTH=''100%''>"
Response.Write "<TR><td width=''80%'' align=''right''><font size=2>"
Response.Write "共<font color=red>" & irecordcount & "</font>条 <font color=red>" & ipagesize & "</font>条/页 共<font color=red>" & TotalPage & "</font>页 "
if CInt(inStr(strUrl,"?"))=0 then
strPage="?Page="
else
strPage="&Page="
end if
IF Curpage>1 THEN
Response.Write "<a href=" &strUrl&strPage&"1>首页</a> "
ELSE
Response.Write "首页 "
END IF

IF CurPage>=2 THEN
Response.Write "<a href=" & strUrl &strPage&CurPage-1&">上页</a> "
ELSE
Response.Write "上页 "
END IF

IF cInt(CurPage)<cInt(TotalPage) THEN
Response.Write "<a href=" & strUrl &strPage&CurPage+1&">下页</a> "
ELSE
Response.Write "下页 "
END IF

IF cInt(CurPage) <>cInt(TotalPage) THEN
'if len(totalpage)<>0 then
Response.Write "<a href=" &strUrl&strPage&TotalPage&">末页</a> "
'end if
ELSE
Response.Write "末页"
END IF
Response.Write " 第</font></td><td width=''20%''><font size=2> "
Response.Write "<select name=pageno1 onchange=window.open('"&strUrl&strPage&"'+this.options[this.selectedIndex].value,'_self') style='font-size: 9pt; color:#00006A; position: relative; height: 16'>"
dim i
for i=1 to cint(totalpage)
if i=cint(curpage) then
Response.Write "<option value="&i&" selected>"&i&"</option>"
else
Response.Write "<option value="&i&">"&i&"</option>"
end if
next
Response.Write "</select>页 </font></td></tr></table>"
'==============================导航条结束=======================
END SUB

Function GetValidPageNo(PageCount,CurPage)
Dim iPage
iPage=CurPage
IF cInt(CurPage)<1 THEN
iPage= 1
END IF
IF cInt(iPage)>cInt(PageCount) THEN
iPage=1
END IF
GetValidPageNo=iPage
END Function
%>

[taozhiyi]

谢谢，但是我现在想知道的就是用了Request.BinaryRead后，为什么会出现意外错误，返回|，有高手知道吗？

[yangsm]

这个问题没有遇到过！UP

[taozhiyi]

错误内容：
错误类型： 请求对象
ASP错误代码： ASP 0101
服务器错误代码： 0x80004005
简要内容： 意外错误
详细内容： 函数返回 |。
请求方式： POST
GET数据：
POST字节： POST4352029 bytes to /xxx/xxx.asp
POST数据：
-----------------------------------------------
高手请明示，写ASP多年了，还就这个问题解决不了……