<CJJERGUESTBOOK:copyright id="ccopyright1" runat="server"/>

用户登陆控件

我这个是稍微花了点时间搞的，这个控件把验证用户数据全部集成到控件本身,专门写了一个类：
BookAdminSpace: AdminUserLogin

代码拷贝框
option explicit 'option strict Imports System Imports System.Web Imports System.Web.UI Imports System.Web.UI.WebControls imports Microsoft.VisualBasic 'Imports AdminBase Imports CJJERGUESTBOOK namespace BookAdminSpace Public Class AdminUserLogin Inherits Control Implements INamingContainer const session_user as string = "5do8" Sub CheckPassword( s As Object, e As EventArgs ) Dim strUsername, strPassword,strck As string Dim lblLabel As Label strUsername = CTYPE( Controls( 1 ), TextBox ).Text strPassword = CTYPE( Controls( 4 ), TextBox ).Text strck = CTYPE( Controls( 7 ), TextBox ).Text lblLabel = CTYPE( Controls( 10 ), Label ) Dim imgckstr as string = "imgcheck" if len(strck) <> 4 or HttpContext.Current.session(imgckstr) <> strck then lblLabel.Text = " 验证码不正确 " exit Sub End if if len(strUsername) < 2 or len(strPassword) < 2 then lblLabel.Text = " 用户名或者密码太短或太长，或不合规则 " else Dim code_password as string = Fundmental.CodeString( strPassword ) Dim sql as string = " select [user_level] from [szd_user] where [user_name] = '" & strUsername & "' and " & _ " [user_password] = '" & code_password & "' " Dim conn as new CJJERGUESTBOOK.conn() Dim connstr as string = conn.GetFirstInRow(sql) Dim user_level as integer = CType (connstr,integer) If user_level > 0 Then Fundmental.CreateUser(strUsername,session_user) if user_level >=3 ' System.Web.HttpServerUtility.Transfer("index.aspx") HttpContext.Current.server.Transfer("index.aspx") End if lblLabel.Text = "登陆成功,级别是 :" & user_level & sql Else lblLabel.Text = " 用户名或者密码不正确 " End if End if End Sub Protected Overrides Sub CreateChildControls() 'Protected '' Me.Controls.Add( New LiteralControl( "<div class=""code"">" ) ) ' Me.Controls.Add( New LiteralControl( "<form runat=""server"">" ) ) ' Add Username Me.Controls.Add( New LiteralControl( "<b>用户:</b> " ) ) Me.Controls.Add( New TextBox ) Me.Controls.Add( New LiteralControl( "<br/>" ) ) ' Add Password Dim txtPass As New TextBox Me.Controls.Add( New LiteralControl( "<b>密码:</b> " ) ) txtPass.TextMode = TextBoxMode.Password Me.Controls.Add( txtPass ) Me.Controls.Add( New LiteralControl( "<br/>" ) ) 'Add image check Dim txtchk As New TextBox Me.Controls.Add( New LiteralControl( "<b>验证:</b> " ) ) ' txtchk.TextMode = TextBoxMode.Password Me.Controls.Add( txtchk ) Me.Controls.Add( New LiteralControl( "<img src= '../inc/imgcheck.aspx' alt='验证' /><br/>" ) ) ' Add Submit Button Dim btnButton As New Button btnButton.Text = " 登陆 " AddHandler btnButton.Click, AddressOf checkPassword Me.Controls.Add( btnButton ) ' Me.Controls.Add( New LiteralControl( "</div>" ) ) ' Me.Controls.Add( New LiteralControl( "</form>" ) ) ' Add Label Control Dim lblLabel As New Label lblLabel.EnableViewState = False Me.Controls.Add( lblLabel ) '完毕 End Sub End Class End Namespace
[Ctrl+A 全部选择 然后拷贝]

继承Control基类，使用接口INamingContainer，主要是获得用户提交的信息。

创建控件的时候;Protected Overrides Sub CreateChildControls() 'Protected

这是必须的。

验证的时候:

  strUsername = CTYPE( Controls( 1 ), TextBox ).Text
[code]

这适合单页面的检测，如果用户控件多的话，这种编号的方式可能出错（超出本教程，以后谈）。

使用的时候：

[code]
 <%@ Register TagPrefix="BookAdmin" Namespace="BookAdminSpace" Assembly="AdminUserLogin"%>
<form runat="server"><BookAdmin:Ad

此新闻共有3页 上一页 1 2 3 下一页