类文件里代码:
Dim lngRequestSize,lngReadSize,binRequestData,strFormItem,strFileItem,p_ChunkByte,intTemp,strTemp
Const strSplit="'"">"
lngRequestSize=Request.TotalBytes
if lngRequestSize>p_TotalSize then
p_Error=4
Exit Sub
end if

upload.asp
<%
'显示类版本
response.Write("<br>"&request2.version&"<br>")

if request2.Error=4 then
response.Write("<br>文件大小超过限制，上传失败")
else
response.Write("<br>文件大小没超过限制")
end if

'显示源文件路径与名称
response.Write("<br>上传文件："&request2.Form("strFile1_Path")&request2.Form("strFile1_Name"))
response.Write("=>")

'显示目标文件路径与名称
response.Write(request2.SavePath&request2.Form("strFile1"))


' 上传处理完成
' 开始数据库处理
dim datePost
dim strFile1 : strFile1=request2.Form("strFile1")
dim oriFile1 : oriFile1=request2.Form("strFile1_Name")
dim strIp : strIp=GetIp()
datePost=now()

if strFile1 <> "" or oriFile1 <> "" then

dim sql,conn
set conn=Server.CreateObject("ADODB.Connection")
conn.Open strDconn
sql="Insert Into book"&_
"(strFile1,oriFile1,datePost,strIp) "&_
"values"&_
"('"&strFile1&"','"&oriFile1&"','"&datePost&"','"&strIp&"')"
conn.Execute(sql)
conn.Close()
set conn=nothing
else
response.Write"<script>alert('没选择上传文件,上传失败');location.replace('index.htm')</script>"
end if
%>

问题是:总大小超过限制,为何不在 <iframe name="up" width="670" marginwidth="0" height="160" marginheight="0" scrolling="yes" frameborder="1"></iframe>里显示"文件大小超过限制，上传失败"
不超过则正常显示:文件大小没超过限制及文件名\路径什么的.
即错误判断实现不了.

[此贴子已经被作者于2007-10-11 14:00:08编辑过]