view.aspx.vb

vb2005电子书籍——vb.net项目开发宝典源码

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


Namespace wsbgxt


Partial Class view2
    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

        If Session("jybz") Is Nothing Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_yessxx")
        ElseIf CType(Session("jybz"), Boolean) = True Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_yessxx")
            Return
        End If

        Dim Number As Integer = Request.QueryString("ArticleId")
        Dim Display As Boolean = True
        Dim myConn As New SqlConnection()
            myConn.ConnectionString = SQL_CONNECTION_STRING '"user id=secs;password=sces;initial catalog=secs;data source=localhost;Connect Timeout=30"
        Try
            myConn.Open()
            Dim myCmdStr As String
            myCmdStr = "SELECT n_bmdmb_ent.bmhdwmc,n_yhjbxx_ent.xm,n_xxdjb_ent.fbsj,n_xxdjb_ent.xxbt,n_xxdjb_ent.wbnr,n_xxdjb_ent.xxnrlxbz,n_xxdjb_ent.tpwjlx,n_xxdjb_ent.tpnr FROM n_bmdmb_ent,n_yhjbxx_ent,n_xxdjb_ent "
            myCmdStr = myCmdStr + "WHERE n_bmdmb_ent.id=n_xxdjb_ent.bmhdwid and n_yhjbxx_ent.id=n_xxdjb_ent.fbyhid and n_xxdjb_ent.id= "
            myCmdStr = myCmdStr + "'" + Trim(CType(Number, String)) + "'"
            Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
            Dim reader As SqlDataReader = myCmd.ExecuteReader()

            While reader.Read() 'if语句中格式控制
                If Display = reader("xxnrlxbz") Then
                  

                    Response.Clear()
                    Response.ContentType = reader("tpwjlx").ToString()
                    Response.AppendHeader("Content-Disposition", "inline;filename=" + "[ReadOnly]Temp" + ";UrlEncode=true")
                    Response.BinaryWrite((CType(reader("tpnr"), Byte())))
                    Response.End()
                Else
                 
                    Title.Text = Trim(reader.Item("xxbt"))
                  
                    DeptName.Text = Trim(reader.Item("bmhdwmc"))
                   
                    penple.Text = Trim(reader.Item("xm"))
                   
                    lbTime.Text = Trim(CType(reader.Item("fbsj"), String))
                   
                    lbFile.Text = Trim(reader.Item("wbnr"))
                   
                    Display = False
                End If
            End While
            reader.Close()
            If Display = False Then
                Photo.ImageUrl = "displayphoto.aspx?PhotoId=" + Trim(CType(Number, String))
            End If

        Catch ex As SqlException
            Status.Text = ex.Message
        Finally

            myConn.Close()
        End Try
    End Sub

End Class

End Namespace