无惧上传类v2.2的上传问题

实现上传自定义头像功能，相关代码如下：
运行没有错误提示，点击上传后 显示上传成功字样，及保存路径:
“路径：E:\www\baspub\userheadpic\2008112417364516.gif 上传成功！”
路径也没问题，但是对应文件夹内并未增加文件...
到底是什么原因？

<!--#include file="upfile_class.asp"-->

<%

const SaveUpFilesPath="userheadpic"       '上传保存路径(当前文件夹下的文件夹名)

   set upfile=new upfile_class ''建立上传对象

   upfile.NoAllowExt="asp;asa;exe;htm;html;aspx;cs;vb;js;cer;cdx;"	'设置上传类型的黑名单

   upfile.GetData (10240000)   '取得上传数据,限制最大上传10M

   if upfile.iserr > 0 then  '如果出错

      select case upfile.iserr

         case 1

            response.write "请先选择你要上传的文件！"

         case 2

            response.write "你上传的文件总大小超出了最大限制（10M）"

      end select

      response.end

   end if



   SavePath = Server.mappath(".") & "\" & SaveUpFilesPath

   if right(SavePath,1)<>"\" then SavePath=SavePath&"\"     '在目录后加(\)



   for each formName in upfile.file '列出所有上传了的文件



      set ofile=upfile.file(formName)  '生成一个文件对象

      fileExt=lcase(ofile.FileExt)

      strJS="<SCRIPT language=javascript>" & vbcrlf

      if FoundErr<>true then

         randomize

         ranNum=int(900*rnd)+100

         filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

         upfile.SaveToFile formname,SavePath & filename   '保存文件

		 response.write "路径：" & SavePath & filename

		 response.write " 上传成功！"

         strJS=strJS & "parent.document.uploadpic.UserPhoto.value='"& SaveUpFilesPath & "\" & fileName & "';" & vbcrlf

      else

         strJS=strJS & "alert('" & msg & "');" & vbcrlf

         strJS=strJS & "history.go(-1);" & vbcrlf

      end if

      strJS=strJS & "</script>" & vbcrlf

      response.write strJS

      set ofile=nothing

   next

   set upfile=nothing