- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5眼萌app怎么色弱測試 眼萌app色弱測試圖文說明教程
- 6蘋果iphone自動時間不準確的多種校正方法
- 7百度安全衛士好用么_百度安全衛士技巧說明
- 8PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 9Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 10Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 11ipad版office如何激活? office365激活的圖文說明教程
- 12最新的Adobe Illustrator CS4序列號大全
[摘要]login.ascx由于在頁面上很頻繁使用登陸，把它做成一個控件是很有必要的，下面就是我寫的一個簡單的登陸控件，大家可以根據的需要完善一下。<%@ Import Namespace="System.Data" %><%@ Import Namespace=&q...
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>"
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></td></tr>"
'返回成功登陸信息
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>"
'返回登陸失敗信息
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>
<td width="63" align="center">用戶名：</td>
<td colspan="2" align="left">
<asp:textbox BorderStyle="Groove" Height="20" Width="90px" runat="server" ID="txtUserID" />
<asp:requiredfieldvalidator ControlToValidate="txtUserID" Display="Dynamic" ID="rfdUserID" runat="server" ErrorMessage="<font color=red>*</font>" />
</td>
</tr>
<tr>
<td align="center">密 碼：</td>
<td colspan="2" align="left">
<asp:textbox BorderStyle="Groove" Height="20" Width="90px" runat="server" TextMode="Password" ID="txtUserPassword" />
<asp:requiredfieldvalidator ControlToValidate="txtUserPassword" Display="Dynamic" ID="rfdPassword" runat="server" ErrorMessage="<font color=red>*</font>" />
</td>
</tr>
<tr align="center">
<td colspan="3"><input name="image" type="image" src=http://cfan.net.cn/info/"images/form_login.gif" width="40" height="18" border="0">
<img src=http://cfan.net.cn/info/"images/form_reg.gif" width="40" height="18" border="0">
<img src=http://cfan.net.cn/info/"images/form_lost.gif" width="60" height="18" border="0"></td>
</tr>
</asp:label>
<asp:label ID="lblMessage" runat="server">
<table width="100%">
<tr>
<td> </td>
</tr>
</asp:label>
</td>
</tr>
標簽：寫一個容易的登陸控件
推薦資訊 總人氣榜
相關文章
