无组件实现文件上传/下载

' 用ASP实现无组件上传/下载文件 
' 
' 功能简介  
' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况 
' 适用于各种数据库,使用ADO的方法连接数据库 
' 本示例中使用的是ACCESS数据库:zj.mdb 
' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录 
' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型 
' ,img ole对象 保存上传的文件内容 
' 
'  
'==================================================================

'================================================================== 
' 
' 上传文件的HTML页: zj_up.htm 
' 
'================================================================== 

代码如下:

<html> 
<head> 
<title>文件上传保存到数据库中</title> 
</head> 
<body> 
<form name="form1" enctype="multipart/form-data" method="post" action="zj_up.asp"> 
<p> 
<input type="file" name="file"> 
<input type="submit" name="Submit" value="上传"> 
</p> 
</form> 
</body> 
</html>

'================================================================== 
' 
' 上传文件保存到数据库的ASP页: zj_up.asp 
' 
'================================================================== 

代码如下:

<% 
Response.Expires=0 
Function f_Bin2Str(ByVal sBin) 
Dim iI, iLen, iChr, iRe  
iRe = "" 
If Not IsNull(sBin) Then 
iLen = LenB(sBin) 
For iI = 1 To iLen 
iChr = MidB(sBin, iI, 1) 
If AscB(iChr) > 127 Then 
iRe = iRe & Chr(AscW(MidB(sBin, iI + 1, 1) & iChr)) 
iI = iI + 1 
Else 
iRe = iRe & Chr(AscB(iChr)) 
End If 
Next 
End If  
f_Bin2Str = iRe 
End Function 
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _  
";Data Source=" & server.mappath("zj.mdb") 
iSql="tb_img" 
set iRe=Server.CreateObject("ADODB.Recordset") 
iRe.Open iSql,iConcStr,1,3 
iLen=Request.TotalBytes 
sBin=Request.BinaryRead(iLen) 
iCrlf1 = ChrB(13) & ChrB(10) 
iCrlf2 = iCrlf1 & iCrlf1 
iLen = InStrB(1, sBin, iCrlf1) - 1 
iSpc = LeftB(sBin, iLen) 
sBin = MidB(sBin, iLen + 34) 
iPos1 = InStrB(sBin, iCrlf2) - 1 
While iPos1 > 0 
iStr = f_Bin2Str(LeftB(sBin, iPos1)) 
iPos1 = iPos1 + 5 
iPos2 = InStrB(iPos1, sBin, iSpc)

iPos3 = InStr(iStr, "; filename=""") + 12 
If iPos3 > 12 Then 
iStr = Mid(iStr, iPos3) 
iPos3 = InStr(iStr, Chr(13) & Chr(10) & "Content-Type: ") - 2 
iFn = Left(iStr, iPos3) 
If iFn <> "" Then 
iRe.AddNew 
ire("path")=left(iFn,instrrev(iFn,"\"))  
iRe("fname") = mid(iFn,instrrev(iFn,"\")+1) 
iRe("type") = Mid(iStr, iPos3 + 18) 
iRe("img").AppendChunk MidB(sBin, iPos1, iPos2 - iPos1) 
iRe.Update 
End If 
End If

sBin = MidB(sBin, iPos2 + iLen + 34) 
iPos1 = InStrB(sBin, iCrlf2) - 1 
Wend 
iRe.close 
set iRe=Nothing 
%>

'================================================================== 
' 
' 下载数据的ASP页: zj_down.asp 
' 
'================================================================== 

代码如下:

<% 
Response.Buffer=true 
Response.Clear 
iConcStr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False" & _  
";Data Source=" & server.mappath("zj.mdb") 
set iRe=server.createobject("adodb.recordset") 
iSql="tb_img" 
iRe.open iSql,iconcstr,1,1 
Response.ContentType=ire("type") 
Response.BinaryWrite iRe("img") 
iRe.close 
set iRe=Nothing 
%>

赞 (0)

相关推荐

  • 无组件生成缩略图

    网上有不少生成缩略图的ASP组件.若你的虚拟空间不支持注册新组件,可能会感觉自己的网站失色不少.心晴不才,结合网上资源写了个无组件生成缩略图程序,仅供参考. 还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,heigh

  • 在无组件的情况下，如何上传图片？

    <html> <head> <title>星河影动</title> </head> <body> <tr> <td height="69"><p align="center">撼雪喷云之无组件上传图片</font></td> </tr> <tr> <td height="9"> &

  • Asp无组件上传进度条解决方案

    一.无组件上传的原理我还是一点一点用一个实例来说明的吧,客户端HTML如下.要浏览上传附件,我们通过<input type="file">元素,但是一定要注意必须设置form的enctype属性为"multipart/form-data": <form method="post" action="upload.asp" enctype="multipart/form-data">&l

  • ASP无组件分页实现思路及代码

    ASP无组件分页实现思路及代码

    MVC下: 后台代码: 复制代码 代码如下: public ActionResult sys(string page) { if (page == null) { string sql = "select top 15 * from dingdinfo ORDER BY dingdh desc"; ViewData["ds"] = dr.resultSet(sql, "dingdinfo"); } if (page != null) { int

  • asp无组件生成验证码 GIF图片格式

    复制代码 代码如下: <% Option Explicit ' 显示声明 Class Com_GifCode_Class ''''''''''''''''''''''''''''''''''''''''''''' ' Author: Layen support@ssaw.net 84815733(QQ) ' Thanks: Laomi, Laomiao, NetRube ' 2006-01-02 ''''''''''''''''''''''''''''''''''''''''''''' Publ

  • Asp无组件生成缩略图的代码

    还是先看看基础部分吧.首先,我们知道在页面中显示图片是如下代码: <img src="pic.gif" border="0" width="300" height="260"> src是图片路径,border控制图片边缘宽度,width是图片的长度,height是图片的高度.缩略图的生成其实就是在原始尺寸上缩放.但一般为了尽量少失真,我们都会按比例缩放.于是,获取图片的长宽尺寸也就成了生成缩略图的重点. 下面便是编

  • 无组件上传图片之文件采用方案

    首先,图片在页面中能查找选择.设计表单页面index.asp和上传选择页upload.asp,upload.asp在index.asp中以iframe包含. 其次,所选图片应能上传到某文件夹.建立一文件夹uploadimg 最后,传上去的图片应如何引用?很显然,采用UBB立即显示.upload.asp的指向对象upfile.asp具有写入UBB标签的功能. 无组件上传调试文件夹    -- index.asp    -- upload.asp    -- upfile.asp    -- upl

  • 无组件实现文件上传/下载

    ' 用ASP实现无组件上传/下载文件  '  ' 功能简介   ' 将上传的文件数据保存到数据库中,可以处理表单中的多个上传文件的情况  ' 适用于各种数据库,使用ADO的方法连接数据库  ' 本示例中使用的是ACCESS数据库:zj.mdb  ' 表:tb_img(id int(自增列),path text(255) 保存上传文件的目录  ' ,fname text(250) 保存上传的文件名,type test(250) 保存上传文件的类型  ' ,img ole对象 保存上传的文件内容 

  • java使用smartupload组件实现文件上传的方法

    本文实例讲述了java使用smartupload组件实现文件上传的方法.分享给大家供大家参考.具体分析如下: 文件上传几乎是所有网站都具有的功能,用户可以将文件上传到服务器的指定文件夹中,也可以保存在数据库中,这里主要说明smartupload组件上传. 在讲解smartupload上传前,我们先来看看不使用组件是怎么完成上传的原理的? 废话不多说直接上代码: 复制代码 代码如下: import java.io.*; import java.util.*; import javax.servle

  • Java实现FTP批量大文件上传下载篇2

    Java实现FTP批量大文件上传下载篇2

    接着上一篇进行学习java文件上传下载1. 五.断点续传 对于熟用QQ的程序员,QQ的断点续传功能应该是印象很深刻的.因为它很实用也很方面.因此,在我们的上传下载过程中,很实现了断点续传的功能. 其实断点续传的原理很简单,就在上传的过程中,先去服务上进行查找,是否存在此文件,如果存在些文件,则比较服务器上文件的大小与本地文件的大小,如果服务器上的文件比本地的要小,则认为此文件上传过程中应该可以进行断点续传. 在实现的过程中,RandomAccessFile类变得很有用.此类的实例支持对随机存取文

  • SpringMVC实现文件上传下载功能

    SpringMVC实现文件上传下载功能

    目录 导入需要的依赖包 一.单个文件上传 二.多个文件上传 三.上传文件列表显示 四.文件下载 今天遇到文件上传的问题,使用Ajax方式进行提交,服务器一直报错The current request is not a multipart request,看了网上很多方法,最后才找到,我在表单提交的时候使用了序列化$('#postForm').serialize(),但是这种方式,只能传递一般的参数,上传文件的文件流是无法被序列化并传递的.所以一直在报错.后来就直接使用submint(),放弃使用

  • JavaWeb实现文件上传下载功能实例解析

    JavaWeb实现文件上传下载功能实例解析

    在Web应用系统开发中,文件上传和下载功能是非常常用的功能,今天来讲一下JavaWeb中的文件上传和下载功能的实现. 对于文件上传,浏览器在上传的过程中是将文件以流的形式提交到服务器端的,如果直接使用Servlet获取上传文件的输入流然后再解析里面的请求参数是比较麻烦,所以一般选择采用apache的开源工具common-fileupload这个文件上传组件.这个common-fileupload上传组件的jar包可以去apache官网上面下载,也可以在struts的lib文件夹下面找到,stru

  • java组件commons-fileupload文件上传示例

    java组件commons-fileupload文件上传示例

    文件上传在Web应用中非常普遍,要在Java Web环境中实现文件上传功能非常容易,因为网上已经有许多用Java开发的组件用于文件上传,本文以使用最普遍的commons-fileupload组件为例,演示如何为Java Web应用添加文件上传功能. commons-fileupload组件是Apache的一个开源项目之一,可以从http://commons.apache.org/fileupload/下载.该组件简单易用,可实现一次上传一个或多个文件,并可限制文件大小. 下载后解压zip包,将c

  • 利用ssh实现服务器文件上传下载

    通过ssh实现服务器文件上传下载 写在前面的话 之前记录过一篇使用apache的FTP开源组件实现服务器文件上传下载的方法,但是后来发现在删除的时候会有些权限问题,导致无法删除服务器上的文件.虽然在Windows上使用FileZilla Server设置读写权限后没问题,但是在服务器端还是有些不好用. 因为自己需要实现资源管理功能,除了单文件的FastDFS存储之外,一些特定资源的存储还是打算暂时存放服务器上,项目组同事说后面不会专门在服务器上开FTP服务,于是改成了sftp方式进行操作. 这个

  • JavaEE中struts2实现文件上传下载功能实例解析

    JavaEE中struts2实现文件上传下载功能实例解析

    本文实例为大家分享了struts2实现文件上传下载的具体实现代码,供大家参考,具体内容如下 一.文件上传 struts提交的文件组件上传, 前台: 1).提交方式POST 2).表单类型 multipart/form-data 3).input type=file 后台: Apache提供的FileUpload组件 核心类: FileItemFactory FileItem的工厂 ServletFileUpload servlet 中的文件上传的核心类 FileItem 封装了上传的表单文件项的

  • JavaWeb文件上传下载实例讲解(酷炫的文件上传技术)

    JavaWeb文件上传下载实例讲解(酷炫的文件上传技术)

    一.课程概述 在Web应用系统开发中,文件上传功能是非常常用的功能,今天来主要讲讲JavaWeb中的文件上传功能的相关技术实现,并且随着互联网技术的飞速发展,用户对网站的体验要求越来越高,在文件上传功能的技术上也出现许多创新点,例如异步上传文件,拖拽式上传,黏贴上传,上传进度监控,文件缩略图,大文件断点续传,大文件秒传等等. 本课程需要的基础知识: 了解基本的Http协议内容 基本IO流操作技术 Servlet基础知识 javascript/jQuery技术基础知识 二.文件上传的基础 对于文件

  • JavaWeb中struts2实现文件上传下载功能实例解析

    在做B/S系统时,通常会涉及到上传文件和下载文件,在没接struts2框架之前,我们都是使用apache下面的commons子项目的FileUpload组件来进行文件的上传,但是那样做的话,代码看起来比较繁琐,而且不灵活,在学习了struts2后,struts2为文件上传下载提供了更好的实现机制,在这里我分别就单文件上传和多文件上传的源代码进行一下讲解,这里需要导入文件下载上传的两个jar文件,一个是commons-fileupload-1.2.2.jar,另一个是commons-io-2.0.

随机推荐