ASP中从数据库读取二进制文件数据代码

2016-01-29 18:47 104 1 收藏

ASP中从数据库读取二进制文件数据代码,ASP中从数据库读取二进制文件数据代码

【 tulaoshi.com - ASP 】

 

<%
driver_name1="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:数据库TREE.MDB"    '根目录下数据库打开语句

  dim search,rs,j
  search="select * from Files where ID=" & request.querystring("ID")
  set my_conn=server.CreateObject ("adodb.connection")
  my_conn.open driver_name1
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.Open search,my_conn,1,3
  if rs.bof or rs.eof then
    response.write "错误:找不到该文件"
    response.end
  end if

'设置文件的大小及MIME类型
Function SetForDisplay(field, contentType)
contentType = LCase(trim(contentType))
nFieldSize = field.ActualSize
bytes = field.GetChunk(nFieldSize)
Session("Bytes") = bytes
Session("Type") = contentType
End Function

   SetForDisplay RS("File"),rs("FileType")
   'Response.AddHeader "Content-Disposition", "attachment; filename=" & rs("FileName")
   response.contentType = Session("Type")
   response.BinaryWrite Session("Bytes")
   Session("Type") = ""
   Session("Bytes") = ""

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/)

  set rs=nothing
  my_conn.close
  set my_conn=nothing
%

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com/asp/) 

来源:https://www.tulaoshi.com/n/20160129/1507318.html

延伸阅读
标签: ASP
  ASP是一个Web服务器端的开发环境,它提供了一种简单易学的脚本(VBScript或Jscript),并带有许多内置的对象,从而提供了一条简捷的编程之路。更为重要的是,ASP中提供了ADO对象,让程序员可以轻松操作各种数据库,从而可以产生和运行动态的、交互的Web服务应用程序。 目前,国内很多电子商务站点都采用了ASP技术来与数据库交互,为用...
标签: ASP
上述代码中函数名称为:GetSQLRecordset,文件名为ADOSQLFunctions.asp。 现在,利用该文件就可以调用任何Access数据库的连接,同时对表记录进行筛选的操作。以Friend.mdb文件为例,列出表data中所有的记录,程序代码如下: <HTML><BODY> <!--#include file="adovbs.inc"--> <!--#include file="ADOSQLFunctions.asp"--> <%...
标签: ASP
数据库文件调用的技巧 (1)事实上,无论换成哪个Access数据库,打开数据库连接与读取表记录的步骤是相同的,其中的变量在于数据库文件的名称及表的名称,所以可以将上述程序的第3~13行改写成函数的形式,并存成一个文件如:ADOFunctions.asp,日后要打开某个数据库文件的话,就把该文件ADOFunctions.asp 装(include)进来,代码如下...
《二进制领域》详细流程攻略 游戏详细流程攻略,包含剧情说明和关卡要点 第一章 边打边跑 一上来主角(名字叫蛋,不,是丹,音译都一样)出现很突兀,和他在一起的是个老黑(代号大波,这作的名字都这么直接?!)。老黑会和你对话,你的选择会影响友好度,对结局走向会有影响...
标签: ASP
  <% dim fso,f1 Const ForReading = 1 set fso=createobject("Scripting.FileSystemObject") ''使用fso对象读取信息。 set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading) ''打开要读取的文件 dim conn,rst set conn=server.createobject("adodb.connection") ''建立数据库连接,执行操作 ...

经验教程

847

收藏

34
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部