写一个简单的登陆控件
日期：2009-10-20 浏览次数：20539 次
login.ascx
由于在页面上很频繁使用登陆，把它做成一个控件是很有必要的，下面就是我写的一个简单的登陆控件，大家可以根据的需要完善一下。
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>
<script language="VB" runat="server">
Sub Page_Load(sender As Object,e As EventArgs)
session("Accessed")=false
If session("UserName")="" And Not IsPassLogin() then
lblLogin.visible=true
lblMessage.visible=false
IsPassLogin()
else
lblMessage.Text=ShowPrompt(True)
lblMessage.visible=true
lblLogin.visible=false
End If
End Sub
'用户登陆验证
Public Function IsPassLogin() As Boolean
Dim MyConnection As OledbConnection
Dim strConnection As String="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DataBase/popmarry.mdb")
MyConnection=New OledbConnection(strConnection)
Dim sqlCommand="SELECT * FROM InMember WHERE MemberID='" & UserID & "'" & " AND Pwd='" & UserPassword & "'"
Dim MyAdapter As New OleDbDataAdapter(sqlCommand,MyConnection)
Dim ds As DataSet=New DataSet()
MyAdapter.Fill(ds,"InMember")
Dim dt As DataTable=ds.Tables("InMember")
If dt.Rows.Count>0 Then
Session("UserName")=UserID
Return(true)
Else
Return(false)
End If
End Function
'显示登陆信息
Public Function ShowPrompt(bolInfo As Boolean) As String
If bolInfo Then
Dim strWelcome As String
strWelcome="<table width='165' cellpadding='3' border='0' align='center'><tr><td align='center'>欢迎您,<font color='#FF0000'>" & Session("UserName") & "</font></td></tr><tr><td align='center'>"
strWelcome &="<table width='150' border='0'><tr><td align='center'>状态: <font color='#FF3300'>新婚网会员</font></td></tr></table>"
strWelcome &="<table width='110' border='0'><tr><td align='center'>控制面板</td><td align='center'><a onclick='return LOGOutConfirm()' href='login/LOGOut.ASPx'>退出登录</a></td></tr></table></td></tr></table>"
'返回成功登陆信息
Return(strWelcome)
Else
Dim strError As String
strError="<table width='130'align='center'><tr><td>登录失败：<br>1.用户名或密码错误<br>2.此帐号被锁定<br>3.未<a href='../../../register/Register.ASP' target='_blank'>注册</td></tr>"
strError &="<tr><td height='20'><center><a href='javascript:onclick=history.go(-1)'>【返回】</a></center></td></tr></td></tr></table>"
'返回登陆失败信息
Return(strError)
End If
End Function
Public Property UserID As String
Get
UserID=txtUserID.Text
End Get
Set
txtUserID.Text=value
End Set
End Property
'定义UserPassword的属性
Public Property UserPassword As String
Get
UserPassword=txtUserPassword.Text
End Get
Set
txtUserPassword.Text=value
End Set
End property
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="168">
<tr>
<td>
<ASP:label ID="lblLogin" runat="server">
<table width="168" height="60">
<tr>
<
由于在页面上很频繁使用登陆，把它做成一个控件是很有必要的，下面就是我写的一个简单的登陆控件，大家可以根据的需要完善一下。
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Oledb" %>
<script language="VB" runat="server">
Sub Page_Load(sender As Object,e As EventArgs)
session("Accessed")=false
If session("UserName")="" And Not IsPassLogin() then
lblLogin.visible=true
lblMessage.visible=false
IsPassLogin()
else
lblMessage.Text=ShowPrompt(True)
lblMessage.visible=true
lblLogin.visible=false
End If
End Sub
'用户登陆验证
Public Function IsPassLogin() As Boolean
Dim MyConnection As OledbConnection
Dim strConnection As String="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("DataBase/popmarry.mdb")
MyConnection=New OledbConnection(strConnection)
Dim sqlCommand="SELECT * FROM InMember WHERE MemberID='" & UserID & "'" & " AND Pwd='" & UserPassword & "'"
Dim MyAdapter As New OleDbDataAdapter(sqlCommand,MyConnection)
Dim ds As DataSet=New DataSet()
MyAdapter.Fill(ds,"InMember")
Dim dt As DataTable=ds.Tables("InMember")
If dt.Rows.Count>0 Then
Session("UserName")=UserID
Return(true)
Else
Return(false)
End If
End Function
'显示登陆信息
Public Function ShowPrompt(bolInfo As Boolean) As String
If bolInfo Then
Dim strWelcome As String
strWelcome="<table width='165' cellpadding='3' border='0' align='center'><tr><td align='center'>欢迎您,<font color='#FF0000'>" & Session("UserName") & "</font></td></tr><tr><td align='center'>"
strWelcome &="<table width='150' border='0'><tr><td align='center'>状态: <font color='#FF3300'>新婚网会员</font></td></tr></table>"
strWelcome &="<table width='110' border='0'><tr><td align='center'>控制面板</td><td align='center'><a onclick='return LOGOutConfirm()' href='login/LOGOut.ASPx'>退出登录</a></td></tr></table></td></tr></table>"
'返回成功登陆信息
Return(strWelcome)
Else
Dim strError As String
strError="<table width='130'align='center'><tr><td>登录失败：<br>1.用户名或密码错误<br>2.此帐号被锁定<br>3.未<a href='../../../register/Register.ASP' target='_blank'>注册</td></tr>"
strError &="<tr><td height='20'><center><a href='javascript:onclick=history.go(-1)'>【返回】</a></center></td></tr></td></tr></table>"
'返回登陆失败信息
Return(strError)
End If
End Function
Public Property UserID As String
Get
UserID=txtUserID.Text
End Get
Set
txtUserID.Text=value
End Set
End Property
'定义UserPassword的属性
Public Property UserPassword As String
Get
UserPassword=txtUserPassword.Text
End Get
Set
txtUserPassword.Text=value
End Set
End property
</script>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="168">
<tr>
<td>
<ASP:label ID="lblLogin" runat="server">
<table width="168" height="60">
<tr>
<
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
