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

《实验八 商品分类显示功能的实现 - 实验八商品分类显示功能的实现》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、实验八商品分类显示功能的实现【实验目的与要求】通过ASP.NET和SQLSERVER相结合实现商品分类显示功能。【实验环境与方法】1、WindowsXP操作系统2、装有Dreamweaver软件3、安装了IIS组件及.NET框架4、安装了SQLSERVER【实验内容与步骤】实现商品分类显示功能【实验注意事项】1．注意各种网页制作方法之间的配合使用。2．实验报告中要包括原代码及程序运行的截图。【实验报告】代码：ImportsSystem.DataImportsSystem.Data.SqlClientPublicClassxpxsInheritsSystem.Web.UI.Page

2、#Region"Web窗体设计器生成的代码"'该调用是Web窗体设计器所必需的。PrivateSubInitializeComponent()EndSubProtectedWithEventsMylistAsSystem.Web.UI.WebControls.DataListProtectedWithEventslblStatusAsSystem.Web.UI.WebControls.LabelProtectedWithEventsintPageSizeAsSystem.Web.UI.WebCon

3、trols.LabelProtectedWithEventsintRecordCountAsSystem.Web.UI.WebControls.LabelProtectedWithEventsintCurrIndexAsSystem.Web.UI.WebControls.LabelProtectedWithEventshrefFirstAsSystem.Web.UI.HtmlControls.HtmlAnchorProtectedWithEventshrefPreviousAsSystem.Web.UI.HtmlControls.HtmlAnchorProtectedWithEv

4、entshrefNextAsSystem.Web.UI.HtmlControls.HtmlAnchorProtectedWithEventshrefLastAsSystem.Web.UI.HtmlControls.HtmlAnchor'注意:以下占位符声明是Web窗体设计器所必需的。'不要删除或移动它。PrivatedesignerPlaceholderDeclarationAsSystem.ObjectPrivateSubPage_Init(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Ini

5、t'CODEGEN:此方法调用是Web窗体设计器所必需的'不要使用代码编辑器修改它。InitializeComponent()EndSub#EndRegionPrivateSubPage_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadIfNotIsPostBackThenintPageSize.Text="5"intCurrIndex.Text="0"CallBindData()EndIfEndSubSubBindData()DimconnAsNewSqlConnection(

6、"server=(local);database=data;uid=lib;pwd=123456;")Dimsqlstr="select*fromProd"DimadpAsNewSqlDataAdapter(sqlstr,conn)DimdsAsNewDataSetIfNotPage.IsPostBack()Thenadp.Fill(ds)intRecordCount.Text=CStr(ds.Tables(0).Rows.Count)ds=Nothingds=NewDataSetEndIfadp.Fill(ds,CInt(intCurrIndex.Text),CInt(intP

7、ageSize.Text),"Document")Mylist.DataSource=ds.Tables(0).DefaultViewMylist.DataBind()conn.Close()PrintStatus()EndSubPublicSubShowFirst_click(ByValsAsObject,ByValeAsEventArgs)HandleshrefFirst.ServerClickintCurrIndex.Text="0"BindData()EndSubPubl