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

[erdong988]

实现上传自定义头像功能，相关代码如下：
运行没有错误提示，点击上传后 显示上传成功字样，及保存路径:
“路径：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

[sy_binbin]

upfile.SaveToFile Server.MapPath(SavePath & filename) '保存文件

[erdong988]

更正：
“路径：E:\www.xxx.com\baspub\userheadpic\2008112417364516.gif 上传成功！”
在根目录下发现文件，估计是这个“.”的问题。。。

[erdong988]

问题已解决，确实是那个"."的问题
之前文件夹名为“www.xxx.com”时，发现根目录下多出个 www.jpg 文件。。。
这也该算该上传类的一个小bug吧