管理メニュー

プログラムのメモ置き場 @ ウィキ

asp006

最終更新：

chaka-poko

- view
管理者のみ編集可

バイナリ・データを表示する

テーブルのレイアウト

フィールド名 データ型
id int ID（主キー 連番）
subject varchar(300) 件名
title varchar(100) ファイル名
type varchar(50) MIMEタイプ
idata varbinary(MAX) バイナリ・データ
last_modified datetime 最終更新日

ImageShow.aspx

  1. <html xmlns="http://www.w3.org/1999/xhtml" >
  2. <head runat="server">
  3.  <title>イメージの表示</title>
  4. </head>
  5. <body>
  6.  <form id="form1" runat="server">
  7.   <h3>
  8.    データベースに登録したバイナリデータを表示する</h3>
  9.   <asp:DropDownList ID="DropDownList1" runat="server" DataSourceID="SqlDataSource1"
  10.    DataTextField="title" DataValueField="id">
  11.   </asp:DropDownList>
  12.   <asp:Button ID="Button1" runat="server" Text="表示" />
  13.   <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:NetWorks01ConnectionString %>"
  14.    SelectCommand="SELECT [id], [title] FROM [d_Image]"></asp:SqlDataSource>
  15.  </form>
  16. </body>
  17. </html>

ImageShow.aspx.vb

  1. Imports System.Data.SqlClient
  2. Imports System.Data
  3.  
  4. Partial Class ImageShow_ImageShow
  5.  Inherits System.Web.UI.Page
  6.  
  7.  Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  8.  
  9.   Dim id As Integer
  10.   id = Me.DropDownList1.SelectedValue
  11.  
  12.   Dim db As New SqlConnection(ConfigurationManager.AppSettings("dbstr"))
  13.   Dim cmd As SqlCommand = New SqlCommand("SELECT type,idata FROM d_Image WHERE id=@p1", db)
  14.   Dim p1 As SqlParameter = cmd.Parameters.Add("@p1", SqlDbType.Int)
  15.   p1.Value = id
  16.   db.Open()
  17.   Dim rs As SqlDataReader = cmd.ExecuteReader()
  18.   If rs.Read Then
  19.    Response.ContentType = CType(rs("type"), String)
  20.    Response.BinaryWrite(DirectCast(rs("idata"), Byte()))
  21.    Response.End()
  22.   End If
  23.   rs.Close()
  24.   db.Close()
  25.  
  26.  End Sub
  27. End Class

参考にさせていただいたページ


[Counter] Total： -
「asp006」をウィキ内検索
最近更新されたページ
もっと見る
目安箱バナー