<script Language="VB" runat="server">
Sub Login(sender As Object,e As Eventargs)
Dim objConn As New OleDbConnection()
objConn.connectionString = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("wwwlink.mdb"))
objConn.Open()
Dim objCmd As New OleDbCommand()
objCmd.Connection=objConn
objCmd.CommandText="Select * from admin where username='"& userID.Text & "' and password='"& userPwd.Text &"'"
'创建dataReader对象
Dim objReader As OleDbDataReader = objCmd.ExecuteReader()
'判断是否通过验证
If objReader.Read()=True Then
FormsAuthentication.RedirectFromLoginPage(userId.Text,savePwd.Checked)
Response.Redirect("default.aspx")
Else
errMessage.Text="帐号或密码错误,请重新输入"
End If
'关闭DataReader对象及数据连接
objReader.Close()
objConn.Close()
End Sub
</script>