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

2008-11-24 05:54:40 217 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

3.Ant Design Pro V2 文件上传准备控件的资料可以查看ant desgin的文档：https://ant.design/components/upload-cn/ 选一个自己喜欢的上传控件类型，然后开始吧开始我选的是拖拽式的上传文件方式可以点底部的按钮来查看代码额，代码有点长看起来不方便，但是人家很人性化的提供了几种查看方式我喜欢CodeSandbox，因为它会把头部的引用部分也显示出来，方便我... 阅读详情

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