ASP怎样无组件上传文件到指定文件夹，并且将路径写入数据库？？如题 谢谢了
ASP怎样无组件上传文件到指定文件夹，并且将路径写入数据库？？哪个有源码的发到我的QQEmail好吗？！谢谢。。。...
ASP怎样无组件上传文件到指定文件夹，并且将路径写入数据库？？ 哪个有源码的发到我的QQEmail好吗？！谢谢。。。
展开
展开全部
<head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>示例结果</title> <link href="../style.css" rel="stylesheet" type="升大慎text/css"> </head> <body style="font-size:12px"> <% Dim Upload,successful '=============================================================================== set Upload=new AnUpload '创建类实例 Upload.SingleSize=1024*1024 '设置单个文件最大上传限制,按字节计；默认为不限制 Upload.MaxSize=4096*1024 '设置最大上传限制,按字节计；默认为不限制 Upload.Exe="rar|jpg|bmp|gif|doc|xls|ppt|txt" '设置合法扩展名,以|分割,忽略大小写 Upload.GetData() '获取并保存数据,必须调用本方法 '=============================================================================== if Upload.Err>0 then '判断错误号,如果myupload.Err<=0表示正常 response.write Upload.Description '如果出现错误,获取错仿漏误描述 else response.Write "表单text1的值为: " & Upload.Forms("text1") & "<br />" if Upload.forms("file1")<>"" then '这里判断你file1是否选择了文件 path=server.mappath("files") '文件保存路径(这里是files文件夹) set tempCls=Upload.files("file1") successful=tempCls.SaveToFile(path,0) '以时间+随机数字为文件名保存 'successful=tempCls.SaveToFile(path,1) '如果想以原文件名保存,请使用本句 if successful then response.write tempCls.FileName & "上传完毕,大小为" & Upload.getsize(tempCls.Size) & ";<br />本地路吵敬径" & Upload.forms("file1") & "!<br />" Response.Redirect "InsertDatabase.asp?FileName="&Upload.Forms("text1")&"&FilePath="&tempCls.FileName else response.write "上传失败" end if set tempCls=nothing end if end if set Upload=nothing '销毁类实例 %> </body> </html>
采纳哦
采纳哦
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
