最贵消防车多少钱:asp无组件上传如何实现上传pdf文件

我使用无组件上传PDF文件的时候包含的INC文件的这一行出问题：
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)提示不允许操作！有知道高手请帮个忙！
这个是上传前的判断
if filelx="doc" then
if fileext<>"doc" or fileext<>"exl" or fileext<>"pdf" then
response.write "<span style=""font-family: 宋体; font-size: 9pt"">只能上传doc/exl/pdf格式的文件！ [ <a href=# onclick=history.go(-1)>重新上传</a> ]</span>"
response.end
这个是包含的INC文件的部分：
dim oUpFileStream
Class upload_file
dim Form,File,Version
Private Sub Class_Initialize
Version="无组件上传类 Version 0.96"
set Form = Server.CreateObject("Scripting.Dictionary")
set File = Server.CreateObject("Scripting.Dictionary")
if Request.TotalBytes < 1 then Exit Sub
set tStream = Server.CreateObject("adodb.stream")
set oUpFileStream = Server.CreateObject("adodb.stream")
oUpFileStream.Type = 1
oUpFileStream.Mode = 3
oUpFileStream.Open
oUpFileStream.Write Request.BinaryRead(Request.TotalBytes)//错误
oUpFileStream.Position=0
RequestBinDate = oUpFileStream.Read
iFormEnd = oUpFileStream.Size