【正文】 ql, myconn) () () () () (scriptjavascript:alert(39。刪除成功?。?！39。)。/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。在此處放置初始化頁的用戶代碼 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 If = Then () End If Dim sqlstr As String If Pwdstr = Then sqlstr = select * from Users where UserID=39。 + + 39。 and Pass is null Else sqlstr = select * from Users where UserID=39。 + + 39。 and Pass=39。 + Pwdstr + 39。 End If Fill(sqlstr) If (0). = 0 Then Close() Return 1 End If () Close() Return 1 End Function Public Sub Open() () End Sub Public Sub Close() () End Sub Public Sub Fill(ByVal sqlstr As String) myAdapter = New SqlDataAdapter(sqlstr, myConn) ds = New DataSet (ds) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If CheckUserberInfo(, ) = 1 Then Session(UserID) = () Else (scriptjavascript:alert(39。登陸失?。。。?9。)。/script) (javascript:=39。39。) 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。在此處放置初始化頁的用戶代碼 connectingstring = data source=(local)。Database=library。uid=sa。pwd=123456。 myConn = New SqlConnection(connectingstring) If Session(UserID) = Then () Else LoadUserInfo(Session(UserID)) End If End Sub Public Function ExecReaderSql(ByVal sqlstr As String) As SqlDataReader If = Then () End If myCmd = New SqlCommand(sqlstr, myConn) Dim reader As SqlDataReader reader = () Return reader End Function Public Sub LoadUserInfo(ByVal UserID As String) Dim sqlstr As String = select * from Users where UserID=39。 + UserID + 39。 Dim myreader As SqlDataReader = ExecReaderSql(sqlstr) If Then = myreader(UserID) = myreader(username) = myreader(Phone) = myreader(address) = myreader(EMail) End If () End SubEnd Class點(diǎn)擊查閱信息：Imports Public Class Lend Inherits Dim myConn As SqlConnection Dim ds As DataSet Private myAdapter As SqlDataAdapter Private connectingstring As String Private Sub Page_Load(ByVal sender As , ByVal e As ) Handles 39。在此處放置初始化頁的用戶代碼 connectingstring = data source=(local)。Database=library。uid=sa。pwd=123456。 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。 + Session(UserID) + 39。 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。在此處放置初始化頁的用戶代碼 connectingstring = data source=(local)。Database=library。uid=sa。pwd=123456。 myConn = New SqlConnection(connectingstring) If Then End If End Sub Public Sub Exe