国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

保存圖片流到數據庫之后固定顯示新法

2019-11-18 19:31:36
字體:
來源:轉載
供稿:網友

在sqlserver中的圖片類型是image
然后,通過dataset保存到數據庫中,通過showimg.aspx文件來讀出圖片,即顯示圖片,代碼如下:
    Dim image As Byte() = IssueQuestionRow.QuestionImage
                '/轉換為支持存儲區為內存的流
                Dim memStream As New System.IO.MemoryStream(image)
                '/定義并實例化Bitmap對象
                Dim bm As New Bitmap(memStream)
                '/根據不同的條件進行輸出或者下載;
                Response.Clear()
                '/如果請求字符串指定下載,就下載該文件;
                '/否則,就顯示在瀏覽器中。
                If Request.QueryString("Download") = "1" Then
                    Response.Buffer = True
                    Response.ContentType = "application/octet-stream"
                    '/這里下載輸出的文件名字 ok.jpg 為例子,你實際中可以根據情況動態決定。
                    Response.AddHeader("Content-Disposition", "attachment;filename=ok.jpg")
                Else

                    Response.ContentType = "image/jpg"
                End If
                Response.BinaryWrite(image)

                Response.End()


然后通過需要調用顯示圖片的頁面,加入 <img src=”./showimg.aspx” wigth=”100px” height=”50”>
來固定圖片的顯示位置、大小等。
當然也可以通過一個頁面的不同參數來獲得不同的圖片,如下代碼:
Showimg.aspx文件:
  Public QuestionID As String
    Public ChapterID As String
    PRivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此處放置初始化頁的用戶代碼
        If Not IsPostBack Then
            QuestionID = Request.QueryString("QID")
            ChapterID = Request.QueryString("ChapterID")
            Exercise = EXH.GetExercise(ChapterID)
            Dim dv As New DataView(Exercise.Ex_IssueQuestion)
            dv.RowFilter = "QuestionID='" + QuestionID + "'"
            If dv.Count > 0 Then
                IssueQuestionRow = dv.Item(0).Row
                Dim image As Byte() = IssueQuestionRow.QuestionImage
                '/轉換為支持存儲區為內存的流
                Dim memStream As New System.IO.MemoryStream(image)
                '/定義并實例化Bitmap對象
                Dim bm As New Bitmap(memStream)
                '/根據不同的條件進行輸出或者下載;

               Response.BinaryWrite(image)
            End If
        End If
    End Sub

在其他需要調用的地方的aspx頁面里只需寫:<img src=”./showimg.aspx?QuestionID=222&ChapterID=3” wigth=”100px” height=”50”>即可


 


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 临沧市| 泰来县| 保山市| 文昌市| 宁远县| 庆城县| 遵义县| 长春市| 马公市| 东至县| 普格县| 甘德县| 长海县| 驻马店市| 和田县| 罗甸县| 墨脱县| 株洲市| 赣州市| 阜宁县| 从江县| 麻江县| 张北县| 景德镇市| 日喀则市| 卢湾区| 道孚县| 行唐县| 千阳县| 元朗区| 东台市| 商城县| 越西县| 临澧县| 岳阳市| 石柱| 禹城市| 黑山县| 平果县| 抚顺市| 肥西县|