在线购物商城系统.docx

1、在线购物商城系统在线购物商城系统15.3.1 Admin_Login.htm 和Admin_Login.aspx的设计与编码根据我们的设计，Admin_Login.htm作为页面框架，用来集成后台管理功能。它的HTML代码如下： 欢迎管理员!-嘀哒购物商城 =关于完成此页眉框架集的说明1. 为“header”框架添加 src= 页的 URL。2. 为“main”框架添加 src= 页的 URL。3. 将 BASE target=main 元素添加到“header”页的 HEAD，以将“main”设置为默认框架，“header”页的链接将 在该框架中显示其他页。= 此 HTML 框架集显示多个

2、Web 页。若要查看此框架集，请使用支持 HTML 4.0 及更高版本的 Web 浏览器。 Admin_Login.aspx是管理员的登录页面。前台HTML代码如下： Admin_Login 管 理 员 登 窗 口 管理员ID 管理员密码 商品大类管理    商品信息管理    订单管理 注销    Admin_Login.aspx.vb的逻辑代码如下：-code begin-由于我们采用了类的完全应用声明，所以，不用引入命名空间也可以Public Class Admin_Login Inherits System.Web.

3、UI.Page#Region Web 窗体设计器生成的代码 此处省略了设计器生成的无关代码，以节省篇幅#End RegionPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = ConfigurationSettings.AppSettings(AdminID) Then If TextBox2.Text = ConfigurationSettings.AppSettings(PassWord)

4、Then Session(admin) = admin Response.Write(alert(恭喜您,您已经成功登录后台管理系统!);) Panel1.Visible = True login.Visible = False Else Response.Write(alert(对不起,您的密码有误,请核实后重试!);) End If Else Response.Write(alert(对不起,您的ID有误,请核实后重试!);) End IfEnd SubPrivate Sub out_Click(ByVal sender As System.Object, ByVal e As Syste

5、m.EventArgs) Handles out.Click Session(admin) = Response.Redirect(index.aspx)End SubEnd Class-code end-运行效果如图15.8所示。图 15.8 管理员登录窗口15.3.2 Pkinds_Management.aspx的设计与编码Pkinds_Management.aspx为管理员提供了商品分类管理的功能，前台HTML代码如下： pkinds_management 新增商品大类名称 Pkinds_Management.aspx.vb中的逻辑代码如下：Imports System.DataImpo

6、rts System.Web.ConfigurationPublic Class pkinds_management Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 此处省略了设计器生成的无关代码，以节省篇幅#End RegionPrivate Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 判断用户身份是否为管理员 If Not Page.IsPostBack Then I

7、f Session(admin) = Then Response.Redirect(Admin_Login.htm) : Exit Sub End If getdata() End IfEnd Sub 读取数据库中的商品类别信息 Sub getdata() Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(constr) Dim mysql As String = select id ,pkinds from Pkinds order by id Dim mycmd As OleDb.OleDbDataAdapter

8、mycmd = New OleDb.OleDbDataAdapter(mysql, mycon) Dim dt As DataSet = New DataSet mycmd.Fill(dt) mygd.DataSource = dt.Tables(0).DefaultView mygd.DataBind()End Sub 添加新的商品类别Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim mysql As String =

9、insert into Pkinds(pkinds) values( + Trim(TextBox1.Text).Replace(, ).Replace(, ) + ) Try mycon.Open() Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(mysql, mycon) mycmd.ExecuteNonQuery() Catch ex As Exception Response.Write(alert(程序出错 + ex.Message + );) mycon.Close() Finally mycon.Close()

10、End Try Response.Write(alert(恭喜您,成功添加了 + TextBox1.Text + 商品n);) getdata()End Sub 商品类别的删除Private Sub mygd_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles mygd.DeleteCommand Dim mysql As String mysql = delete from pkinds where id= & e.Item.C

11、ells(0).Text mycon.Open() Dim mycmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(mysql, mycon) mycmd.ExecuteNonQuery() Response.Write(alert(恭喜您！您已经成功删除了 & e.Item.Cells(1).Text & 的记录！);) mycon.Close() getdata()End SubPrivate Sub mygd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI

12、.WebControls.DataGridPageChangedEventArgs) Handles mygd.PageIndexChanged mygd.CurrentPageIndex = e.NewPageIndex getdata()End SubEnd Class保存编译后，运行结果如图15.9所示图15.9 Pkinds_Management.aspx 运行结果15.3.3 Pinfor_Management.aspx的设计与编码Pinfor_Management.aspx为管理员提供了商品信息管理的功能，在该页面内可以修改商品的市价和折扣价等信息。Pinfor_Management.aspx