.aspx.vb:
Imports System.Web.Security
Imports System.Data
Imports System.Data.SqlClient
Public Class WebForm11
Inherits System.Web.UI.Page
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents ErrorMessage As System.Web.UI.HtmlControls.HtmlGenericControl
Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
Protected WithEvents Label3 As System.Web.UI.WebControls.Label
Protected WithEvents CheckBox1 As System.Web.UI.WebControls.CheckBox
#Region " Web 窗体设计器生成的代码 "
'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
'
'SqlConnection1
'
Me.SqlConnection1.ConnectionString = "data source=JIANG;initial catalog=PoliceNet;persist security info=False;user id=s" & _
"a;workstation id=JIANG;packet size=4096"
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
End Sub
Function Verify(ByVal 用户 As String, ByVal 密码 As String)
Dim rd As SqlDataReader
SqlConnection1.Open()
Dim cmd As SqlCommand
cmd = New SqlCommand("SELECT * FROM GLY WHERE GLYId='" & 用户 & "' AND Password=" & 密码, SqlConnection1)
rd = cmd.ExecuteReader
If rd.Read() Then
SqlConnection1.Close()
Return True
Else
SqlConnection1.Close()
Label3.Text = "帐号或密码错误,请重新输入!"
Return False
End If
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Verify(TextBox1.Text, TextBox2.Text) Then
FormsAuthentication.RedirectFromLoginPage(TextBox1.Text, CheckBox1.Checked)
Else
Label3.Text = "帐号或密码错误,请重新输入!"
End If