fbxt_right_fbxx.aspx.vb

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

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


Namespace wsbgxt


Partial Class fbwbxx
    Inherits System.Web.UI.Page
    Protected sss As Integer

#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_fbxx")
        ElseIf CType(Session("jybz"), Boolean) = True Then
            Response.Redirect("../NotLogin.aspx?FromPageName=fbxt/fbxt_right_fbxx")
        End If

        If Not IsPostBack Then
            Dim myConn As New SqlConnection()
                myConn.ConnectionString = SQL_CONNECTION_STRING ' 
            Try
                myConn.Open()

                '信息类型列表
                Dim MyDataAD As SqlDataAdapter = New SqlDataAdapter("Select * from n_xxlxdmb_ent", myConn)
                Dim myDataSet As DataSet = New DataSet
                MyDataAD.Fill(myDataSet, "n_xxlxdmb_ent")
                ddltXxlx.DataSource = myDataSet.Tables("n_xxlxdmb_ent")
                ddltXxlx.DataBind()

                ' 权限列表
                Dim MyDataAD1 As SqlDataAdapter = New SqlDataAdapter("Select * from n_dqxdmb_ent", myConn)
                Dim myDataSet1 As DataSet = New DataSet
                MyDataAD1.Fill(myDataSet1, "n_dqxdmb_ent")
                ddltDqx.DataSource = myDataSet1.Tables("n_dqxdmb_ent")
                ddltDqx.DataBind()

                '根据信息类型控制控件的可见性
                Dim iXxlxid As Integer = ddltXxlx.SelectedItem.Value
                Dim myCmdStr As String
                    myCmdStr = "SELECT n_xxlxdmb_ent.djbbz FROM n_xxlxdmb_ent" + _
                            " where n_xxlxdmb_ent.id = '" + Trim(CStr(iXxlxid)) + "'"

                Dim myCmd As SqlCommand = New SqlCommand(myCmdStr, myConn)
                Dim reader As SqlDataReader = myCmd.ExecuteReader()

                If reader.Read() Then
                    If CInt(reader.Item("djbbz")) = 0 Then
                        lblDxz.Visible = True
                        cbDxz.Visible = True
                        lblDqx.Visible = True
                        ddltDqx.Visible = True
                        If Not cbDxz.Checked Then
                            lblBm.Visible = True
                            clbBm.Visible = True
                        End If
                    Else
                        lblDxz.Visible = False
                        cbDxz.Visible = False
                        lblBm.Visible = False
                        clbBm.Visible = False
                        lblDqx.Visible = False
                        ddltDqx.Visible = False
                    End If
                End If
                reader.Close()
            Catch ex As SqlException
                Status.Text = ex.Message
            Finally
                myConn.Close()
            End Try

        End If
    End Sub


        Public Sub fbxxButton_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles fbxxButton.Click
            '当用户选择第一种信息发布时触发，应该分为一种，另外修改一下各个变量，当用户发布时某些项为确定时
            '使用默认值，如图片：做一个没有图片的示意图。标题不能为空，文本内容默认为如图。

            Dim iXxid As Integer = 0
            Dim myCmdStr As String
            Dim myCmd As SqlCommand

            '其它类型数据定义(发布部门，发布人员，发布时间，所属类型，信息标题，内容类型，文本内容)
            '发布部门：由session记录
            '发布人员：由session记录

            '发布时间：
            Dim tFbsj As DateTime = Now()
            '信息类型id：
            Dim iXxlxid As Integer = ddltXxlx.SelectedItem.Value
            '读限制标志：
            Dim bDxzbz As Integer = cbDxz.Checked
            '读权限id：
            Dim iDqxid As Integer
            If Not bDxzbz Then
                If clbBm.SelectedIndex = -1 Then
                    Status.Text = "请选择可以阅读该信息的部门！至少应选择一个部门！"
                    Return
                End If
                iDqxid = ddltDqx.SelectedItem.Value

                '如果选择了全部部门，就将读限制标志设为true
                Dim i As Integer
                Dim iSelCount As Integer = 0
                For i = 0 To clbBm.Items.Count - 1
                    If clbBm.Items(i).Selected Then
                        iSelCount += 1
                    End If
                Next
                If iSelCount = clbBm.Items.Count Then
                    bDxzbz = True
                End If
            Else
                iDqxid = 7
            End If
            '信息标题：
            Dim sXxbt As String = Trim(tbXxbt.Text)
            If sXxbt.Length = 0 Then
                Status.Text = "信息标题不能为空！请输入！"
                Return
            End If

            '文本内容：
            Dim sWbnr As String
            If rbXxgs1.Checked Then
                sWbnr = Trim(tbWbnr.Text)
                If sWbnr.Length = 0 Then
                    sWbnr = " "
                Else
                    sWbnr = Replace(sWbnr, CStr(Chr(10)), "<br>")
                End If
            Else
                '文本内容：（因为不想多写一个存储过程，所以设一个默认值）
                sWbnr = " "
            End If

            '图片数据：
            '未选中图片文件文件（该段暂时保留） 
            If Not rbXxgs1.Checked Then
                If upLoadImg.PostedFile.FileName = "" Then
                    Status.Text = "请先选择一个图片文件!"
                    Return
                End If
            End If

            Dim myStream As Stream = upLoadImg.PostedFile.InputStream
            Dim imageDataLen As Integer = upLoadImg.PostedFile.ContentLength
            Dim imageType As String = upLoadImg.PostedFile.ContentType
            If Not rbXxgs1.Checked Then
                imageType = "application/octet-stream"
            End If

            '假如有图片，则对图片类型进行判别，这能存储常见类型图片（待）
            Dim imageData(imageDataLen) As Byte
            Dim n As Integer = myStream.Read(imageData, 0, imageDataLen)

            '插入实现
            Dim myConn As New SqlConnection
            myConn.ConnectionString = SQL_CONNECTION_STRING '
            Try
                myConn.Open()

                myCmd = New SqlCommand("sp_upload_image", myConn)
                myCmd.CommandType = CommandType.StoredProcedure
                myCmd.Parameters.Add("@Ret", SqlDbType.Int)
                myCmd.Parameters.Item(0).Direction = ParameterDirection.ReturnValue

                '信息编号
                Dim prmXxbh As New SqlParameter("@xxbh", SqlDbType.Char)
                prmXxbh.Value = ""
                myCmd.Parameters.Add(prmXxbh)