使用化境无组件上传文件，提示错误

Request 对象 错误 'ASP 0101 : 80004005' 

意外错误 

/upload_5xsoft.asp，行 41 

函数返回 |。 您所上传的视频文件： 上传成功！


upload_5xsoft.asp 的第41行是：Data_5xsoft.Write  Request.BinaryRead(Request.TotalBytes)


我已经将服务器上面的C:\WINDOWS\system32\inetsrv\MetaBase.xml文件中的AspMaxRequestEntityAllowed的数值更改为：AspMaxRequestEntityAllowed="102400000"，限制为100M，当我上传50M左右的文件的时候，没有问题，可是，当我上传80M大小的文件的时候，还是提示上述的错误。请问大家还要如何更改，才能上传大文件呢？
我的上传部分代码如下：


<% 
set upload=new upload_5xsoft 
formPath="video/"
videomemo=upload.form("videomemo")



set file=upload.file("vdpath") 
Dim fso
Set fso = server.CreateObject("Scripting.FileSystemObject")
IF (fso.FileExists(server.mappath(formPath&file.FileName))) Then
  response.Write"您所上传的视频文件： "&file.FileName& " 已经存在，此次并未上传！<br>"
Else  


  file.SaveAs (Server.mappath(formPath&file.FileName)) 
  response.Write"您所上传的视频文件： "&file.FileName& " 上传成功！<br>"
  
  set rs=server.CreateObject("adodb.recordset")
  sql="select * from videomessage where videoname='"&file.FileName&"'"
  rs.open sql,conn,1,3
  if rs.eof and rs.bof then
  rs.addnew
  rs("videoname")=file.FileName
  rs("videoauthor")=session("username")
  rs("videotime")=now()
  rs("videourl")=formPath&file.FileName
  rs("videomemo")=videomemo
  rs.update
  rs.close
  set conn=nothing
  end if 
  
End IF




'response.write "上传成功" 
set file=nothing 
set upload=nothing 

response.write "<br><center>[<a href=""javascript:history.back();"">返回</a>]</center></body></html>"

%>