person_result.aspx.vb

用VB.NET在VS.NET 2003下开发的完整的设备管理系统,后台数据库为SQL SERVER 2000,解压缩后请先阅读"说明"文件来部署此系统.

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

Public Class person_result
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents myDataList As System.Web.UI.WebControls.DataList
    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object

    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 Not IsPostBack Then
            If Session("login_name") Is Nothing Then
                Response.Redirect("../login.aspx")
            End If
            Dim person_id As String
            Dim SQLstr As String
            Dim myDataView As DataView
            '将上页的记录带入本页
            person_id = Trim(Request("person_id")) '去上页的记录主键”用户编号“
            SQLstr = "select * from person where person_id='" & person_id & "'"
            myDataView = Global.CreateDataView(SQLstr)
            myDataList.DataSource = myDataView
            myDataList.DataBind()
            Dim labelStr() As String = New String(5) {"Label1", "Label2", "Label3", "Label4", "Label5", "Label6"}
            For i As Integer = 0 To 5
                Dim label As Label = myDataList.Items(0).FindControl(labelStr(i))
                If Trim(label.Text) = "" Then
                    label.Text = "无"
                End If
            Next
        End If
    End Sub

End Class