End Sub
Public Sub Fill(ByVal sqlstr As String)
myAdapter = New SqlDataAdapter(sqlstr, myConn)
ds = New DataSet
myAdapter.Fill(ds)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If CheckUserberInfo(TextBox1.Text, TextBox2.Text) = 1 Then
Session("UserID") = TextBox1.Text.ToString
Response.Redirect("userlist.aspx")
Else
Response.Write("<script>javascript:alert('登陆失败！！！');</script>")
Response.Write("javascript:window.location='Login.aspx'")
End If
End Sub
End Class
登录成功后：
Imports System.Data.SqlClient
Public Class userlist
Inherits System.Web.UI.Page
Dim myConn As SqlConnection
Private myCmd As SqlCommand
Private connectingstring As String
<< 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] [20] ... 下一页 >>