[]关于LeadBBS无组件上传文件的一大有关问题

[求助]关于LeadBBS无组件上传文件的一大问题？
上传功能在07年2月1号还是可以用的，但从2月2号一直到现在都不能进行文件上传！

然后找到了一定的原因！原因是当提交上传后，一直无法获取到文件名！

For   Each   formName   in   FileUp.file  

Next

程序始终没法执行到循环内部，就说明文件名无法获取到！
请问各位这是什么原因导致的！
我想这好比是提交表单时，无法用Request获取到表单值一样！

[em10][COLOR=red]声明：[/COLOR]上传表单设置是正确的，向来都未曾改过
enctype= "multipart/form-data "   method= "post "  


[COLOR=red]以下是无组上传的从获取文件到文件上传的过程：[/COLOR]

Function   Upload_NoComponent
On   Error   Resume   Next
Dim   formName,file
set   FileUp   =   new   UpFile_Class
If   CheckSupervisorUserName   =   1   and   DEF_FileMaxBytes   <   1024000   Then
FileUp.GetData   (DEF_FileMaxBytes)
Else
FileUp.GetData   (DEF_FileMaxBytes)
End   If

If   FileUp.err   >   0   then
        Select   Case   FileUp.err
Case   1  
Response.Write   "请先选择你要上传的文件　[   <a   href=#3234   onclick=history.go(-1)> 重新上传 </a>   ] "
Case   2
Response.Write   "图片大小超过了限制   "   &   DEF_FileMaxBytes   &   "K　[   <a   href=#   onclick=history.go(-1)> 重新上传 </a>   ] "
End   Select
Exit   Function
Else
For   Each   formName   in   FileUp.file       ' '列出所有上传了的文件
Set   file   =   FileUp.file(formName)     ' '生成一个文件对象
If   file.filesize <1   then
Response.write   "请先选择你要上传的文件　[   <a   href=#s334   onclick=history.go(-1)> 重新上传 </a>   ] "
Response.End
  End   if

  NewFileName= ". "   &   LCase(file.FileExt)
If   inStr( ":.jpg:.gif:.jpeg:.png: ", ": "   &   NewFileName   &   ": ")   =   0   then
  Response.Write   "文件格式不正确　[   <a   href=#3333   onclick=history.go(-1)> 重新上传 </a>   ] "
Response.End
End   If

Pic_Name1   =   GetSaveFileName(NewFileName)
UploadPhotoUrl2   =   UploadPhotoUrl   &   Pic_Name2
UploadPhotoUrl   =   UploadPhotoUrl   &   Pic_Name1
Pic_Name   =   Pic_Name1

If   file.FileSize> 0   then
file.SaveToFile   PhotoDir   &   Pic_Name
End   If
Set   File   =   Nothing
Next
Set   FileUp   =   Nothing
End   If
End   Function

------解决方案--------------------
调试时，请lz先注释on error resume next，再看出现什么错误提示。