下载了无组件上传带真实进度条的源码,上传时出现错误,请帮忙

下载了无组件上传带真实进度条的源码,上传时出现如下错误,请帮帮忙


试图访问的网页出现问题，无法显示。

---

请尝试执行下列操作：

• 单击刷新按钮，或稍后重试。
  
  


• 打开
  localhost
  主页，然后查找与所需信息相关的链接。

HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务

---

技术信息（用于支持人员）

• 错误类型：
  
  ADODB.Stream (0x800A0BBC)
  写入文件失败。
  /upload/Upload.asp, 第 549 行
  
  






• 浏览器类型：
  
  Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
  






• 网页：
  
  POST 86455 ??? /upload/Example_Progress.asp
• POST Data:
  错误 '80020009'
  

  
  发生意外。
  
  

  
  /iisHelp/common/500-100.asp，行 219

把549附近的代码发上来看看

是不是路径不对呢
我想问一下如何限定扩展名呢，修改了好长时间也没修改正确

取到文件名后，判断一下.后面的字母时不时你想要的扩展名

' 如果是附件
If InStr (Header,"filename=""") > 0 Then
Set File = New FileInfo
' 获取文件相关信息
Dim clientPath
clientPath = GetFileName(Header)
File.FileName = GetFileNameByPath(clientPath)
File.FileExt = GetFileExt(clientPath)
File.FileExt = GetFileExt(clientPath) 是在这个地方取得文件名的吗

FileName属性是取文件名的，而FileExt属性则是扩展名的
然后你就可以根据FileExt属性来判断了

' 获取文件相关信息
Dim clientPath
clientPath = GetFileName(Header)
File.FileName = GetFileNameByPath(clientPath)
File.FileExt = GetFileExt(clientPath)
File.FilePath = clientPath
File.FileType = GetFileType(Header)
File.FileStart = PosEndOfHeader + 3
File.FileSize = BoundaryEnd - (PosEndOfHeader + 4) - 2
File.FormName = FieldName
' 如果该文件不为空并不存在该表单项保存之
If Not Files.Exists(FieldName) And File.FileSize > 0 Then
Files.Add FieldName, File
End If
'==========
'这样写吗？好像这样不正确，能不能再提示一下呢。
If File.FileExt<>"gif" Then
Raise("文件类型不正确")
Exit Sub
End If
谢谢

不要直接修改upload.asp这个
而是你在调用的时候，例如demo.asp中：
for each File in Upload.Files.Items
Response.Write("文件名: " & File.FileName & "
")
Response.Write("文件大小: " & File.FileSize/1024 & " KB
")
Response.Write("文件类型: " & File.FileType & "
")
Response.Write("客户端路径: " & File.FilePath & "
")
Response.Write("

---

")
next

不懂

我在
for each File in Upload.Files.Items
'If File.FileExt<>".gif" Then
'Response.Write("文件类型错误")
'Exit For
'End If
File.SaveAs(File.FileName) ''如果要保存，则去掉前面的注释
加上了注释掉的部分，虽然是在demo.htm也的iframe里面提示类型错误，但是还是弹出了对话框，提示上传成功的。
还是在upload.asp文件里面修改的
If File.FileExt<>".gif" Then
Raise("文件类型错误！")
Exit Sub
End If
和上面相同的部分。已经通过了。
谢谢~~~~
不早了，早点休息~~~呵呵

顶

一楼的
技术信息（用于支持人员）
错误类型：
ADODB.Stream (0x800A0BBC)
写入文件失败。
/upload/Upload.asp, 第 549 行
浏览器类型：
Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6
网页：
POST 86455 ??? /upload/Example_Progress.asp
POST Data:
错误 '80020009'
发生意外。
/iisHelp/common/500-100.asp，行 219
发生以外，我输出了一下保存目录是uploadfiles文件夹，在目录下建立uploadfiles文件夹 就没有问题了 第555行代码为：
Set dr = CreateObject("Adodb.Stream")
dr.Mode = 3
dr.Type = 1
dr.Open
DoteyUpload_SourceData.position = FileStart
DoteyUpload_SourceData.copyto dr, FileSize
'Response.Write(FullPath)
'Response.end
dr.SaveToFile MapPath(FullPath), 2
dr.Close
set dr = nothing
SaveAs = true