在线购物商城系统.docx

在线购物商城系统.docx

《在线购物商城系统.docx》由会员分享，可在线阅读，更多相关《在线购物商城系统.docx（73页珍藏版）》请在冰豆网上搜索。

在线购物商城系统

在线购物商城系统

15.3.1Admin_Login.htm和Admin_Login.aspx的设计与编码

根据我们的设计，Admin_Login.htm作为页面框架，用来集成后台管理功能。

它的HTML代码如下：

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.01Frameset//EN">

</p><p><preid="p2"></p><p>================================================================</p><p>关于完成此页眉框架集的说明</p><p>1.为“header”框架添加src=""页的URL。</p><p>2.为“main”框架添加src=""页的URL。</p><p>3.将BASEtarget="main"元素添加到“header”页的</p><p>HEAD，以将“main”设置为默认框架，“header”页的链接将</p><p>在该框架中显示其他页。</p><p>================================================================</p><p></pre></p><p><pid="p1"></p><p>此HTML框架集显示多个Web页。</p><p>若要查看此框架集，请使用支持HTML4.0及更高版本的Web浏览器。</p></p><p>

Admin_Login.aspx是管理员的登录页面。

前台HTML代码如下：

<%@PageLanguage="vb"AutoEventWireup="false"Codebehind="Admin_Login.aspx.vb"Inherits="ShoppingOnLine.Admin_Login"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

Admin_Login.aspx.vb的逻辑代码如下：

'---codebegin--

'由于我们采用了类的完全应用声明，所以，不用引入命名空间也可以

PublicClassAdmin_Login

InheritsSystem.Web.UI.Page

#Region"Web窗体设计器生成的代码"

'此处省略了设计器生成的无关代码，以节省篇幅

#EndRegion

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

IfTextBox1.Text=ConfigurationSettings.AppSettings（"AdminID"）Then

IfTextBox2.Text=ConfigurationSettings.AppSettings（"PassWord"）Then

Session（"admin"）="admin"

Response.Write（""）

Panel1.Visible=True

login.Visible=False

Else

Response.Write（""）

EndIf

Else

Response.Write（""）

EndIf

EndSub

PrivateSubout_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）Handlesout.Click

Session（"admin"）=""

Response.Redirect（"index.aspx"）

EndSub

EndClass

'---codeend---

运行效果如图15.8所示。

图15.8管理员登录窗口

15.3.2Pkinds_Management.aspx的设计与编码

Pkinds_Management.aspx为管理员提供了商品分类管理的功能，前台HTML代码如下：

<%@PageLanguage="vb"AutoEventWireup="false"Codebehind="Pkinds_Management.aspx.vb"Inherits="ShoppingOnLine.pkinds_management"%>

DOCTYPEHTMLPUBLIC"-//W3C//DTDHTML4.0Transitional//EN">

#0000991pxsolid;PADDING-RIGHT:

0px;BORDER-TOP:

#0000991pxsolid;PADDING-LEFT:

0px;FONT-SIZE:

12pt;PADDING-BOTTOM:

0px;MARGIN:

0px;BORDER-LEFT:

#0000991pxsolid;WIDTH:

762px;PADDING-TOP:

0px;BORDER-BOTTOM:

#0000991pxsolid;BACKGROUND-COLOR:

white"

cellSpacing="0"cellPadding="0"width="300"align="center">

datagridid="mygd"runat="server"BorderColor="#3366CC"BorderStyle="None"BorderWidth="1px"

BackColor="White"CellPadding="4"AutoGenerateColumns="False"Width="745px">

BoundColumnDataField="id"ReadOnly="True"HeaderText="编号">

BoundColumn>

BoundColumnDataField="pkinds"HeaderText="列别名称">

BoundColumn>

ButtonColumnText="删除"HeaderText="删除"CommandName="Delete">

ButtonColumn>

datagrid>

11pt;HEIGHT:

24px">新增商品大类名称

TextBoxid="TextBox1"runat="server"Height="19px"Width="80px">

TextBox>

Buttonid="Button1"runat="server"Text="增加">

Button>

Pkinds_Management.aspx.vb中的逻辑代码如下：

ImportsSystem.Data

ImportsSystem.Web.Configuration

PublicClasspkinds_management

InheritsSystem.Web.UI.Page

#Region"Web窗体设计器生成的代码"

'此处省略了设计器生成的无关代码，以节省篇幅

#EndRegion

PrivateSubPage_Load（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesMyBase.Load

'在此处放置初始化页的用户代码

'判断用户身份是否为管理员

IfNotPage.IsPostBackThen

IfSession（"admin"）=""Then

Response.Redirect（"Admin_Login.htm"）:

ExitSub

EndIf

getdata（）

EndIf

EndSub

'读取数据库中的商品类别信息

Subgetdata（）

DimmyconAsOleDb.OleDbConnection=NewOleDb.OleDbConnection（constr）

DimmysqlAsString="selectid,pkindsfromPkindsorderbyid"

DimmycmdAsOleDb.OleDbDataAdapter

mycmd=NewOleDb.OleDbDataAdapter（mysql,mycon）

DimdtAsDataSet=NewDataSet

mycmd.Fill（dt）

mygd.DataSource=dt.Tables（0）.DefaultView

mygd.DataBind（）

EndSub

'添加新的商品类别

PrivateSubButton1_Click（ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs）HandlesButton1.Click

DimmysqlAsString="insertintoPkinds（pkinds）values（'"+Trim（TextBox1.Text）.Replace（"'",""）.Replace（">",""）+"'）"

Try

mycon.Open（）

DimmycmdAsOleDb.OleDbCommand=NewOleDb.OleDbCommand（mysql,mycon）

mycmd.ExecuteNonQuery（）

CatchexAsException

Response.Write（""）

mycon.Close（）

Finally

mycon.Close（）

EndTry

Response.Write（""）

getdata（）

EndSub

'商品类别的删除

PrivateSubmygd_DeleteCommand（ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridCommandEventArgs）Handlesmygd.DeleteCommand

DimmysqlAsString

mysql="deletefrompkindswhereid="&e.Item.Cells（0）.Text

mycon.Open（）

DimmycmdAsOleDb.OleDbCommand=NewOleDb.OleDbCommand（mysql,mycon）

mycmd.ExecuteNonQuery（）

Response.Write（""）

mycon.Close（）

getdata（）

EndSub

PrivateSubmygd_PageIndexChanged（ByValsourceAsObject,ByValeAsSystem.Web.UI.WebControls.DataGridPageChangedEventArgs）Handlesmygd.PageIndexChanged

mygd.CurrentPageIndex=e.NewPageIndex

getdata（）

EndSub

EndClass

保存编译后，运行结果如图15.9所示

图15.9Pkinds_Management.aspx运行结果

15.3.3Pinfor_Management.aspx的设计与编码

Pinfor_Management.aspx为管理员提供了商品信息管理的功能，在该页面内可以修改商品的市价和折扣价等信息。

Pinfor_Management.aspx