displayphoto.aspx.vb

来自「vb2005电子书籍——vb.net项目开发宝典源码」· VB 代码 · 共 58 行

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Imports System.Drawing


Namespace wsbgxt



Partial Class displayphtoto
    Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region


        Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            Dim Number As Integer = Request.QueryString("PhotoId")
            Dim myConn As New SqlConnection()
            myConn.ConnectionString = SQL_CONNECTION_STRING ' 
            Try
                myConn.Open()
                Dim myCmdStr As String
                myCmdStr = "SELECT tpwjlx,tpnr FROM n_xxdjb_ent "
                myCmdStr = myCmdStr + "WHERE n_xxdjb_ent.id = "
                myCmdStr = myCmdStr + "'" + Trim(CType(Number, String)) + "'"
                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim reader As SqlDataReader = myCmd.ExecuteReader()
                Do While reader.Read()
                    'Notice: here can not be inserted other chars
                    Response.ContentType = reader("tpwjlx").ToString()
                    Response.BinaryWrite(reader("tpnr"))
                Loop
                reader.Close()
            Catch ex As SqlException
            Finally
                myConn.Close()
            End Try
        End Sub

End Class

End Namespace