【正文】 。)。/script) Case 0 : (scriptjavascript:alert(39。此書不在書架上！??！39。)。/script) Return End If Dim state As Integer = GetBookState(BookID) If state = 1 Then LendBook(, BookID) Else Select Case state Case 2 : (scriptjavascript:alert(39。借書數(shù)已滿！??！39。 + UserID + 39。 + + 39。 + + 39。 + UserID + 39。 + BookID + 39。 + UserID + 39。 + UserID + 39。 + + 39。 + + 39。pwd=123456。Database=library。 BindDBGrd(sqlstr, DataGrid1) End SubEnd Class點(diǎn)擊圖書借閱登記：Imports Public Class lendbook Inherits Private connectingstring As String Private myConn As SqlConnection Private ds As DataSet Private myAdapter As SqlDataAdapter Private myCmd As SqlCommand Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。 myConn = New SqlConnection(connectingstring) BindDBGrid() End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid) If = Then () End If Fill(sqlstr) = (0).DefaultView () End Sub Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object) If = Then () End If Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () End Sub Private Sub BindDBGrid() Dim sqlstr As String = select * from BookInfo,LendInfo where = and UserID=39。uid=sa。在此處放置初始化頁(yè)的用戶代碼 connectingstring = data source=(local)。 + UserID + 39。pwd=123456。Database=library。) End If End SubEnd Class登錄成功后：Imports Public Class userlist Inherits Dim myConn As SqlConnection Private myCmd As SqlCommand Private connectingstring As String Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。/script) (javascript:=39。登陸失?。。?！39。 + Pwdstr + 39。 + + 39。 + + 39。pwd=123456。Database=library。/script) End SubEnd Class點(diǎn)擊用戶登錄后：Imports Imports Public Class WebForm1 Inherits Private connectingstring As String Private myConn As SqlConnection Private ds As DataSet Private myAdapter As SqlDataAdapter Protected WithEvents Button2 As Private myCmd As SqlCommand Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。刪除成功?。?！39。 + uid + 39。pwd=123456。Database=library。) End If End SubEnd Class登陸成功后：點(diǎn)擊刪除后：再次查詢時(shí)：Imports Public Class delete Inherits Dim myconn As SqlConnection Private connectingstring As String Private ds As DataSet Private myAdapter As SqlDataAdapter Private myCmd As SqlCommand Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid) If = Then () End If Fill(sqlstr) = (0).DefaultView () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Public Sub BindDBGrd(ByVal sqlstr As String, ByVal myDBGrd As DataGrid, ByVal SortExp As Object) If = Then () End If Fill(sqlstr) Dim dv As DataView = (0).DefaultView = SortExp = dv () End Sub Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。/script) (javascript:=39。登陸失?。。。?9。 + Pwdstr + 39。 + + 39。 + + 39。pwd=123456。Database=library。 Session(sqlstr) = sqlstr BindGrid() End Sub Private Sub ResultGrid_PageIndexChanged(ByVal source As Object, ByVal e As ) Handles = BindGrid() End Sub Private Sub ResultGrid_SortCommand(ByVal source As Object, ByVal e As ) Handles Dim sqlstr As String If viewstate(sortexp) Is Nothing Then viewstate(sortexp) = ElseIf viewstate(sortexp) = Then viewstate(sortexp) += desc Else viewstate(sortexp) = End If If Not Session(sqlstr) Is Nothing Then sqlstr = CType(Session(sqlstr), String) BindDBGrd(sqlstr, ResultGrid, Viewstate(sortexp)) End If End Sub Public Sub ExecNonSql(ByVal sqlstr As String) If = Then () End If myCmd = New SqlCommand(sqlstr, myConn) () () Close() End SubEnd Class可以根據(jù)書名，內(nèi)容進(jìn)行查詢，我們選取任意匹配：如上圖所示最上方為自定義用戶控件：bar點(diǎn)擊權(quán)限維護(hù)：Imports Public Class user Inherits Private connectingstring As String P