<html> <center><title>广告条演示</title></center> <head> <link rel="stylesheet"href="intro.css"> </head> <body> <center> <form action="intro.aspx" method="post" runat="server"> <h2>广告条演示</h2> <asp:adrotator AdvertisementFile="intro.xml" BorderColor="black" BorderWidth=1 runat="server"/> </form> </center> </body> </html> intro.xml的 代码如下: <Advertisements> <Ad> <ImageUrl>./hp1.gif</ImageUrl> <NavigateUrl>http://www.yesky.com</NavigateUrl> <AlternateText>欢迎访问!</AlternateText> <Keyword>Computers</Keyword> <Impressions>80</Impressions> </Ad> <Ad> <ImageUrl>./hp2.gif</ImageUrl> <NavigateUrl>http://www.yesky.com</NavigateUrl> <AlternateText>欢迎访问</AlternateText> <Keyword>Computers</Keyword> <Impressions>80</Impressions> </Ad> </Advertisements> |
Function getdata() as DataView Dim sComm as SQLDataSetCommand Dim sDS as DataSet Dim sStr as String dbl = New SQLConnection("server=localhost;uid=sa;password=;database=howff") sStr = "select * from color" sComm = new SQLDataSetCommand(sStr,dbl) sDS = new DataSet() sComm.FillDataSet(sDS,"color") Return sDS.Table["color"].DefaultView End Function |
Imports System Imports System.Data Imports System.Data.SQL '创建名字空间 Namespace db '创建一个类 Public Class dblink '建立数据库的连接 Dim dbl As SQLConnection '方法 Public Function getdata() As DataView Dim sComm As SQLDataSetCommand Dim sDS As DataSet dbl = New SQLConnection("server=localhost;uid=sa;password=;database=howff") Dim sStr As String sStr = "select * from color" sComm = New SQLDataSetCommand(sStr, dbl) '填充数据 sDS = New DataSet() sComm.FillDataSet(sDS, "color") '返回 Return sDS.Tables("color").DefaultView End Function End Class End Namespace 我们再写一个前端掉用页面saidy.aspx,我们首先要引入我们创建的名字空间: <%@ Import Namespace="db" %> 在页面装入的时候,我们用此方法: Sub Page_Load(Sender As Object, E As EventArgs) '建立一个新的对象 Dim newdb As dblink newdb = new dblink() '数据来源 Products.DataSource = newdb.getdata() '数据绑定 Products.DataBind() End Sub 下面看看我们完整的代码(advanceappdblink.aspx): <%@ Import Namespace="db" %> <html> <script language="VB" runat="server"> Sub Page_Load(Sender As Object, E As EventArgs) '建立一个新的对象 Dim newdb As dblink newdb = new dblink() '数据来源 Products.DataSource = newdb.getdata() '数据绑定 Products.DataBind() End Sub </script> <body style="font: 10pt verdana" bgcolor="CCCCFF"> <BR><BR><BR> <CENTER> <h3>.NET->三层架构!</h3> </CENTER> <BR><BR> <CENTER> <ASP:DataList id="Products" ShowHeader=false ShowFooter=false RepeatColumns="2" RepeatDirection="horizontal" BorderWidth=0 runat="server"> <template name="itemtemplate"> <table> <tr> <td width="150" style="text-align:center; font-size:8pt; vertical-align:top; height:50"> <p> <%# DataBinder.Eval(Container.DataItem, "id") %> <br> <%# DataBinder.Eval(Container.DataItem, "name", "{0:C}").ToString() %> </td> </tr> </table> </template> </ASP:DataList> </CENTER> </body> </html> |
我们看到,在这个页面当中,没有出现与数据库交互的语句,这样我们就很好的把数据操作封装起来了
一起学吧部分文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与一起学吧进行文章共享合作。