qq_35195481
2016-08-04 12:32
采纳率: 0%
浏览 1.1k

asp网站上传文件自动生成对应文件夹

新人求教
我在用asp上传文件,数据库为sqlserver。在上传文件时,我想上传的文件存在各自对应的文件夹里,比如id为1的账号上传文件后,文件保存在名字为1的文件夹里。现在我只能保存在对应的月份文件夹里,无法读取数据库当前id并把它命名为文件夹名字。求帮忙。
代码
<%OPTION EXPLICIT%>

<%

dim zfs,fs,f,y,a,x

dim qsqh
qsqh=request.QueryString("SQH")

set zfs=Server.CreateObject("Scripting.FileSystemObject")
if zfs.FolderExists("D:\Miao\20160728\ISOAPdemo\files\"&a)=true then '判断文件夹是否存在。
response.write("文件夹存在!")

else
set fs=Server.CreateObject("Scripting.FileSystemObject")
set f=nothing
set fs=nothing

end if
set zfs=nothing

%>
<%
dim upfile,formPath,ServerPath,FSPath,formName,FileName,oFile,upfilecount
upfilecount=0
session("uwjm1")=""
set upfile=new clsUp ''建立上传对象
upfile.NoAllowExt="asp;exe;html;aspx;cs;vb;js;aspx;" '设置上传类型的黑名单
upfile.GetData (51200000) '取得上传数据,限制最大上传5M
%>


文件上传 <!-- .p9{ font-size: 9pt; font-family: 宋体 } -->



 

<%
if upfile.isErr then '如果出错
select case upfile.isErr
case 1
Response.Write "你没有上传数据呀???是不是搞错了??"
case 2
Response.Write "你上传的文件超出我们的限制,最大5MB"
end select
else
%>

<%
dim FileExt,getid,getsqh,gettype,fileallname
dim getd,geth,getm,gets
geth=hour(now())
getm=minute(now())
gets=second(now())
FSPath=GetFilePath(Server.mappath("upfile.asp"),"\")'取得当前文件在服务器路径
ServerPath=GetFilePath(Request.ServerVariables("HTTP_REFERER"),"/")'取得在网站上的位置
for each formName in upfile.file '列出所有上传了的文件

   set oFile=upfile.file(formname)
   FileName=upfile.form(formName)'取得文本域的值
   getid=upfile.form("uploadid")
    getsqh=upfile.form("uploadsqh")
     gettype=upfile.form("types2")

    FileExt=LCase(upfile.file(formname).FileExt)'小写后缀名
   if not FileName>"" then  FileName=oFile.filename。。。。。。。
  • 写回答
  • 好问题 提建议
  • 关注问题
  • 收藏
  • 邀请回答

2条回答 默认 最新

  • threenewbee 2016-08-04 16:19
    评论
    解决 无用
    打赏 举报
  • id你不直接登录系统的时候用session存储就行了,就不需要经过数据库

    评论
    解决 无用
    打赏 举报

相关推荐 更多相似问题