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

原创 2003年12月29日 17:29:00

'==================================================================--
'
'  用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
%>

 

文件上传与下载的功能实现

1、文件上传 1.1、文件上传原理 1.2、文件上传核心api 1.3、文件上传代码实现 2、文件下载案例实现...
  • shuaicihai
  • shuaicihai
  • 2016年12月26日 13:22
  • 2079

采用艾恩asp上传的角本

最近因一个小开发的需求,进行了Asp的文件上,在网上也看了不少的文章,多数都是将文件写入与文件上分开,另一方面就是写的不是很明确。而最终,我采用了艾恩asp上传的角本。这一点非常感谢艾恩的大力贡献,有...
  • qiushuisen
  • qiushuisen
  • 2015年10月25日 19:46
  • 1070

ASP.NET网站 文件的上传与下载(一)知识准备

在网站的开发中,经常涉及到对文件的操作。以前呢,在Web应用程序中实现文件的上传是件很麻烦的事情,而后在ASP.NET 4.0,可以容易的实现文件的上传。这周的主要内容即为网站上文件的上传与下载,今天...
  • SmallXianNotImmortal
  • SmallXianNotImmortal
  • 2016年02月22日 16:37
  • 468

使用jsp/servlet简单实现文件上传与下载

使用JSP/Servlet简单实现文件上传与下载    通过学习黑马jsp教学视频,我学会了使用jsp与servlet简单地实现web的文件的上传与下载,首先感谢黑马。好了,下面来简单了解如何通过使用...
  • Wetsion
  • Wetsion
  • 2016年03月14日 22:02
  • 5842

Jsp 实现文件上传下载

JavaWeb学习总结——文件上传和下载 在Web应用系统开发中,文件上传和下载功能是非常常用的功能,今天上课老师讲了文件上传和下载功能的实现,为了便于以后使用做个总结。对于文件上传,浏览器在上传...
  • sxc1414749109
  • sxc1414749109
  • 2017年05月08日 22:03
  • 556

python实现文件上传下载

创建自己的ftp类 myftp.py #!/usr/bin/python #coding:utf-8 #author:zhj #info:数据传输平台 import ftplib, socket, ...
  • tustzhoujian
  • tustzhoujian
  • 2017年04月19日 17:18
  • 3556

java实现文件的上传和下载

java关于文件上传和下载功能的实现 文件的上传和下载在日常工作开发中被经常使用到,所有在这里总结一下具体的代码实现,我会通过一套完整的操作流程来实现所有功能(文件可以是文本文件,也可以是音频文件)...
  • u014316026
  • u014316026
  • 2015年08月14日 10:20
  • 4810

纯servlet实现文件上传和下载文件

servlet实现上传和下载文件
  • high2011
  • high2011
  • 2015年11月06日 10:24
  • 5032

用JSP+servlet实现文件的上传与下载

现在看来使用JSP+Servlet实现文件的上传与下载已经是有些落后了,现在能很方便实现文件的上传与下载插件和工具有很多,常用的有SmartUpload插件、Struts2框架以及富文本编辑器等等。但...
  • weixian52034
  • weixian52034
  • 2016年08月06日 13:51
  • 6389

asp实现无组件上传文件原理

一、上传网页       上传页面代码:       action="upload.asp"   method="post"   enctype="multipart/form-...
  • wkj001
  • wkj001
  • 2016年11月25日 13:05
  • 1131
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:无组件实现文件上传/下载
举报原因:
原因补充:

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