如上图所示最上方为自定义用户控件：bar

点击权限维护：

Imports System.Data.SqlClient

Public Class user

    Inherits System.Web.UI.Page

    Private connectingstring As String

    Private myConn As SqlConnection

    Private ds As DataSet

    Private myAdapter As SqlDataAdapter

    Protected WithEvents Button2 As System.Web.UI.WebControls.Button

    Protected WithEvents Label1 As System.Web.UI.WebControls.Label

    Protected WithEvents Label2 As System.Web.UI.WebControls.Label

    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox

    Protected WithEvents Label3 As System.Web.UI.WebControls.Label

    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox

    Protected WithEvents Login_trname As System.Web.UI.HtmlControls.HtmlTableRow

    Protected WithEvents Login_trpassword As System.Web.UI.HtmlControls.HtmlTableRow

    Private myCmd As SqlCommand

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '在此处放置初始化页的用户代码

        connectingstring = "data source=(local);Database=library;uid=sa;pwd=123456;"

        myConn = New SqlConnection(connectingstring)

    End Sub

    Public Function CheckUserberInfo(ByVal Userstr As String, ByVal Pwdstr As String) As Integer

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>