[会员中心]    [设为主页][加入收藏夹]  [发布文章][发布软件]  [中文繁體] 
文章
资料
电脑
软件
手机
软件
网站
源码
    本 站 搜 索
[选项]
    推 荐 文 章       More...
华硕易电脑(ASUS Eee PC 1025C)驱动程序(Windows XP)安装参考(图) 华硕易电脑(ASUS Eee PC 1025C..
  先来段开场白:为了外出携..
Acronis True Image 使用说明 Acronis True Image 使用说明
  一款可以在Windows下使用..
Windows 2000/XP/2003 系统封装参考及工具 Windows 2000/XP/2003 系统封..
  一直以来,安装操作系统和..
Norton Ghost 使用详解 Norton Ghost 使用详解
一、分区备份   使用Ghost..
    阅 读 排 行
电脑机箱(主板)前面板 USB 数据线的接线参考(图) 电脑机箱(主板)前面板 USB 数据..
  一、概述   因为每个 US..
中国电信的家庭宽带设置“端口映射”及获取公网IP地址 中国电信的家庭宽带设置“端口映..
  现在有些家庭/店铺安装了视..
夏普(SHARP) AR-1808S 以 A4 尺寸纸张扫描 夏普(SHARP) AR-1808S 以 A4 尺..
  新装的夏普(SHARP) AR-1808S..
网站(域名)价值评估参考(附:21个在线域名/网站价值评估系统) 网站(域名)价值评估参考(附:21个..
  如果你拥有一家网站,那么你..
打造属于自己的字体(图) 打造属于自己的字体(图)
  不少做平面的朋友可能都有过..
腾讯QQ宠物2018年9月15日关停 腾讯QQ宠物2018年9月15日关停
2005年2月16日,腾讯QQ同时在线人..
域名价值评估参考 域名价值评估参考
  域名的价值是一个很抽象的概..
Intel GMA 3600 V1.15 for Windows XP 驱动程序配置过程图解 Intel GMA 3600 V1.15 for Window..
Intel GMA 3600 V1.15 for Window..
  文 章 信 息
    无组件实现文件上传/下载
[评论()][留言][收藏]
[文章分类:电脑系统·网络 / 网站设计·开发·优化[阅读选项]

'==================================================================
'
'  用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, "; 200412213005.htm=""") + 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.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
%>


文章作者:未知  更新日期:2005-10-09
[文章浏览:][打印文章][发送文章
阅读说明
·本站大部分文章转载于网络,如有侵权请留言告知,本站即做删除处理。
·本站法律法规类文章转载自[中国政府网(www.org.cn)],相关法律法规如有修订,请浏览[中国政府网]网站。
·本站转载的文章,不为其有效性,实效性,安全性,可用性等做保证。
·如果有什么问题,或者意见建议,请联系[网站管理员]
  原“浪人文章”和“浪人下载”网站已合并为“老若尔文章软件站”,域名:http://www.lre.cn
  本站使用【啊估文章软件站】网站系统    [联系网站管理员]         闽ICP备08009617号