无组件多文件上传系统(二)

原创 2006年05月18日 20:35:00

第二部分:写入数据库(这是修改的主要内容)upload.asp页内容

<%
'----------------------------------------------------------
'***************** 风声无组件上传类 2.0 *****************
'用法举例:批量上传
'该例主要说明默认模式下FileItem在批量上传中的应用
'以上传附件为例
'下面是上传程序(upload.asp)的代码和注释
'**********************************************************
'----------------------------------------------------------
OPTION EXPLICIT
Server.ScriptTimeOut=5000
%>
<!--#include FILE="UpLoadClass.asp"-->
<!--#include file="conn.asp" -->
<%
dim request2,formPath,formName,intCount,intTemp,protitle,protext,showindex,proclass,upfile,rs,sql
'建立上传对象
set request2=new UpLoadClass
 '设置文件允许的附件类型为gif/jpg/rar/zip
 request2.FileType="gif/jpg"
 '设置服务器文件保存路径
 request2.SavePath="../UpLoadFile/"
 '打开对象
 request2.open()
%>
<html>
<head>
<title>批量上传——风声无组件上传类</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="db_sc8.css" rel="stylesheet" type="text/css">
</head>

<body>
<br>
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td class="text12">
 <%
 '显示类版本
 'response.Write("<br>"&request2.version&"<br>")
 
 '显示文章标题
 response.Write("<br>文章标题:"&request2.Form("proTitle"))
 
 '----列出所有上传了的文件开始----
   '将记录写入数据库,此为自己新增部分
    Set Rs =Server.CreateObject("Adodb.RecordSet")
    Sql="select * from product"
    rs.open sql,conn,1,3
    intCount=0   
   for intTemp=1 to Ubound(request2.FileItem)
  '获取表单文件控件名称,注意FileItem下标从1开始
  formName=request2.FileItem(intTemp)
  
  '显示源文件路径与文件名
  response.write "<br>"&request2.form(formName&"_Path")&request2.form(formName&"_Name")

  '显示文件大小(字节数)
  response.write "("&request2.form(formName&"_Size")&") => "

  '显示目标文件路径与文件名
  response.Write formPath&request2.form(formName)&" "

  '显示文件保存状态
  select case request2.form(formName&"_Err")
   case -1:
    response.write "没有文件上传<br>"
   case 0:
    response.write "上传文件成功<br>"
    intCount=intCount+1
   case 1:
    response.write "文件太大,拒绝上传<br>"
   case 2:
    response.write "文件格式不对,拒绝上传<br>"
   case 3:
    response.write "文件太大且格式不对,拒绝上传<br>"
  end select
        upfile=request2.form(formName)
        protitle=request2.Form("protitle")
        rs.addnew
        rs("propic")=upfile
        rs("protitle")=protitle
        rs.update
 next
 '----列出所有上传了的文件结束----
 rs.close
    set rs=nothing
 response.write "<br>"&intCount&" 张图片上传成功! "
 response.write "[<a href=""javascript:history.back();"">返回</a>]"
 %> </td>
  </tr>
</table>
</body>
</html>
<%
'释放上传对象
set request2=nothing
%>

无组件多文件上传系统(三)

第三部分:风声文件上传类文件 uploadclass.asp 这个未动过,咱也不懂----------------------------------------------------------*...
  • zhuizhu
  • zhuizhu
  • 2006年05月18日 20:38
  • 600

无组件多文件上传系统(一)

根据风声文件上传系统修改了部分代码:第一部分:提交表单页function setFileFileds(num){  for(var i=0,str="";i  str+=""; } objFiles....
  • zhuizhu
  • zhuizhu
  • 2006年05月18日 20:29
  • 622

jquery uploadify for asp 批量文件上传程序 整合风声asp无组件上传

jquery 上传插件 uploadify (官网:http://www.uploadify.com/) uploadify功能强大,支持多文件、批量上传、状态进度条等,提供前端文件限制相关...
  • engling
  • engling
  • 2011年10月27日 23:57
  • 1864

asp无组件上传的原理 (转)

 出处:宝玉BLOG一、无组件上传的原理我还是一点一点用一个实例来说明的吧,客户端HTML如下。要浏览上传附件,我们通过元素,但是一定要注意必须设置form的enctype属性为"multipart/...
  • faintbear
  • faintbear
  • 2004年10月15日 16:30
  • 16110

ASP无组件上传文件到服务器

        最近参与了一个网站开发的项目,在做后台管理时用到了文件上传,因为客户要求数据库保存的是文件路径,文件就得直接上传到服务器,而且麻烦的是需要把其他表单信息和上传的图片一起进行数据处理,这...
  • Milanello_tyfor
  • Milanello_tyfor
  • 2007年11月21日 11:06
  • 1025

艾恩ASP无组件上传最新更新说明

利用周末的时间,对上传组件进行了比较大的更新,优化了上传代码,尽可能的降低上传的内存消耗同时提高上传的速度。具体修改及增加的功能如下:1.文件上传类改用jscript2.文件上传类增加几个属性    ...
  • Anlige
  • Anlige
  • 2009年11月02日 20:46
  • 1059

最快的ASP无组件上传类(4M只需10秒)0.96版

 ----------------------------------------------------------------------转发时请保留此声明信息,这段声明不并会影响你的速度!***...
  • feng2375
  • feng2375
  • 2007年08月15日 16:52
  • 3066

asp无组件上传图片文件

最近要写一个asp 无组件上传图片文件的代码,感觉asp中真是麻烦,不像asp.net与jsp中有那么强大的文件读写和图片处理的类做支持!从网上找了一个代码,但目前只能上传和按原样输出,内部处理有待研...
  • trueman2008
  • trueman2008
  • 2007年12月14日 09:59
  • 1500

解决asp无组件文件上传及下载大小限制

IIS里Asp无组件上传默认文件大小为200K,当文件超过200k时无法正常上传。解决办法:1、先在服务里关闭 iis admin service 服务。2、找到 windows/system32/i...
  • CityBird
  • CityBird
  • 2009年08月24日 17:28
  • 4541

最短的无组件上传代码(仅9行)

我研究了一下无组件上传,并作出了一个最简单可行的方法----用9行代码真正实现无组件上传,怎么说来花了才半天就写了9行代码算是有点效率和成果。于是就写了这篇文章。formSize=Request.To...
  • Leonard76
  • Leonard76
  • 2004年02月25日 10:21
  • 686
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:无组件多文件上传系统(二)
举报原因:
原因补充:

(最多只允许输入30个字)