＋设为首页 ＋添加到收藏夹
if CheckFileExt(strType)=true then
if file.FileSize<10485760 and file.FileSize>0 then 如果 FileSize > 0 说明有文件数据
sqlReg="select * from lesson_list where lesson_name=" & strName & ""
set rsReg=server.createobject("adodb.recordset")
rsReg.open sqlReg,conn,3,3
if not(rsReg.bof and rsReg.eof) then
response.write "您上传的文件已经存在!请改名后上传!"
Htmend "文件上传失败!"
else
FileName=md5(strName)&"."&strType
file.SaveAs Server.mappath(formPath&FileName) 保存文件
response.write file.FilePath&file.FileName&" ("&file.FileSize&") => "&formPath&FileName&" 成功!<br>"
response.write "主讲老师: "&upload.form("teacher")
写数据库
rsReg.addnew
rsReg("lesson_name")=strName
rsReg("lesson_md5")=FileName
rsReg("lesson_content")=upload.form("content")
rsReg("lesson_datetime")=Date()
rsReg("lesson_teacher")=upload.form("teacher")
rsReg.update
end if
else
response.write "文件大小不能为0或大于10M! [ <a href=# onclick=history.go(-1)>重新上传</a> ]"
response.end
end if
rsReg.close
set rsReg=nothing
iCount=iCount+1
Htmend "文件上传成功!"
else
response.write "文件格式不正确!只能是DOC或者TXT文件! [ <a href=# onclick=history.go(-1)>返回</a> ]"
response.end
end if
在我看来，不符合条件就应该结束程序了，怎么还是要等很久，文件越大等的时间越长。
文件大当然会慢了，网速问题，出错就是慢引起的超时问题。
学习下
你都没有判断文件格式，当然出错了。
CheckFileExt函数代码贴出来看一下！
rsReg.close
set rsReg=nothing
位置不对，应该放在
rsReg.update
end if
rsReg.close
set rsReg=nothing
我觉得你要调整一下你的思路，把判断是否符合格式的文件放在选择文件的web页面使用Javascript来判断，你使用现在的方式，无论文件大小，都要等着文件预上载完了才作判断，必然文件大就慢了
