功能实现了用控件中的Datalis在t前台页面 UserControls.aspx显示数据
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="UserControls_.aspx.vb" Inherits="Data.UserControls_"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><HTML> <HEAD> <title>UserControls_</title> <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> <meta name="vs_defaultClientScript" content="JavaScript"> <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5"> </HEAD> <body MS_POSITIONING="GridLayout"> <form id="Form1" method="post" runat="server"> <table><tr><td> <!-- begin --> <%@ Register TagPrefix="My" tagname="user" Src="MyControl_.ascx" %> <My:user id="tt111" runat="server"></My:user> <!--end new --></td></tr></table> <FONT face="宋体"></FONT> </form> </body></HTML>
用户控件页MyControl_.ascx
Public Class MyControl
Inherits System.Web.UI.UserControl#Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList '注意: 以下占位符声明是 Web 窗体设计器所必需的。 '不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object 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 If Not IsPostBack Then DataList1.DataSource = Databind_(0).Tables("user_login") DataList1.DataBind() End If End Sub Function Databind_(ByVal StartIndex) As System.Data.DataSet Dim Sqlstr As String = "server=(local);database=Achem56;uid=sa;pwd=" Dim Sql As String = "select id,uname from user_login " Dim Sqlconn As New System.Data.SqlClient.SqlConnection(Sqlstr) Dim Sqlcmd As New System.Data.SqlClient.SqlDataAdapter(Sql, Sqlconn) Dim SqlDataSet As New DataSet Sqlcmd.Fill(SqlDataSet, StartIndex, 10, "user_login") Return SqlDataSet End Function
end class
用户控件很管有用的，你可以封装一些操作，增加主件的的重复使用性
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。