cordhome.aspx.vb

来自「Website for Training and Palcement Offic」· VB 代码 · 共 23 行

Imports System.Data
Imports System.Data.SqlClient
Partial Class co_ordinator_CordHome
    Inherits System.Web.UI.Page
    Dim cs As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Database.mdf;Integrated Security=True;User Instance=True"


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As SqlConnection = New SqlConnection(cs)
        Dim cmd As SqlCommand = New SqlCommand("select NAME from CORDTAB where(UID=@uid)", con)
        cmd.Parameters.AddWithValue("@uid", Request.QueryString("ID").ToString())
        Try
            con.Open()
            Dim dr As SqlDataReader = cmd.ExecuteReader()
            If Not dr.Read() Then
                Response.Redirect("~/co-ordinator/CoordAcc.aspx?ID=" + Request.QueryString("ID").ToString())
            End If
        Catch ex As Exception

        End Try
    End Sub
End Class