实验八 商品分类显示功能的实现 - 实验八商品分类显示功能的实现.doc

实验八 商品分类显示功能的实现【实验目的与要求】 通过ASP.NET和SQL SERVER相结合实现商品分类显示功能。【实验环境与方法】1、 Windows XP操作系统2、 装有Dreamweaver软件3、 安装了IIS组件及.NET框架4、 安装了SQL SERVER【实验内容与步骤】实现商品分类显示功能【实验注意事项】1 注意各种网页制作方法之间的配合使用。2 实验报告中要包括原代码及程序运行的截图。【实验报告】代码：Imports System.DataImports System.Data.SqlClientPublic Class xpxs Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub Protected WithEvents Mylist As System.Web.UI.WebControls.DataList Protected WithEvents lblStatus As System.Web.UI.WebControls.Label Protected WithEvents intPageSize As System.Web.UI.WebControls.Label Protected WithEvents intRecordCount As System.Web.UI.WebControls.Label Protected WithEvents intCurrIndex As System.Web.UI.WebControls.Label Protected WithEvents hrefFirst As System.Web.UI.HtmlControls.HtmlAnchor Protected WithEvents hrefPrevious As System.Web.UI.HtmlControls.HtmlAnchor Protected WithEvents hrefNext As System.Web.UI.HtmlControls.HtmlAnchor Protected WithEvents hrefLast As System.Web.UI.HtmlControls.HtmlAnchor 注意: 以下占位符声明是 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 intPageSize.Text = 5 intCurrIndex.Text = 0 Call BindData() End If End Sub Sub BindData() Dim conn As New SqlConnection(server=(local);database=data;uid=lib;pwd=123456;) Dim sqlstr = select * from Prod Dim adp As New SqlDataAdapter(sqlstr, conn) Dim ds As New DataSet If Not Page.IsPostBack() Then adp.Fill(ds) intRecordCount.Text = CStr(ds.Tables(0).Rows.Count) ds = Nothing ds = New DataSet End If adp.Fill(ds, CInt(intCurrIndex.Text), CInt(intPageSize.Text), Document) Mylist.DataSource = ds.Tables(0).DefaultView Mylist.DataBind() conn.Close() PrintStatus() End Sub Public Sub ShowFirst_click(ByVal s As Object, ByVal e As EventArgs) Handles hrefFirst.ServerClick intCurrIndex.Text = 0 BindData() End Sub Public Sub ShowPrevious_click(ByVal s As Object, ByVal e As EventArgs) Handles hrefPrevious.ServerClick intCurrIndex.Text = CStr(CInt(intCurrIndex.Text) - CInt(intPageSize.Text) If CInt(intCurrIndex.Text) 0 Then intCurrIndex.Text = 0 End If BindData() End Sub Public Sub ShowNext_click(ByVal s As Object, ByVal e As EventArgs) Handles hrefNext.ServerClick If CInt(CInt(intCurrIndex.Text) + CInt(intPageSize.Text) 0 Then intCurrIndex.Text = CStr(CInt(intRecordCount.Text) - tmpInt) Else intCurrIndex.Text = CStr(CInt(intRecordCount.Text) - CInt(intPageSize.Text) End If BindData() End Sub Private Sub PrintStatus() lblStatus.Text = 总记录数： & intRecordCount.Text lblStatus.Text += 当前： lblStatus.Text += CStr(CInt(CInt(intCurrIndex.Text) CInt(intPageSize.Text) + 1) lblStatus.Text += / If (CInt(intRecordCount.Text) Mod CInt(intPageSize.Text) 0 And CInt(intRecordCount.Text) CInt(intPageSize.Text) Then lblStatus.Text += CStr(CInt(CInt(intRecordCount.Text) CInt(intPageSize.Text) + 1) ElseIf CInt(intRecordCount.Text) CInt(intPageSize.Text) Then lblStatus.Text += 1 Else lblStatus.Text += CStr(CInt(intRecordCount.Text) CInt(intPageSize.Text) End If lblSta