阅读新闻

网上商城系统程序设计

发布者：wangqi

发布日期：2010-06-04

管理员在进入网上商城系统主页后点击“管理员”按钮就会进入管理员登陆界面
　　只有管理员才有权限进入后台修改数据库，其部分代码如下：
　　Session("ShopAdmin")=""
　　Session("INIT")=""
　　Dim myconn
　　msg=""
　　ShopOpenDatabase myconn
　　on error resume next
　　If Request("Submit")<>"" Then
　　SQL = "SELECT * FROM tblUser WHERE fldUserName=“" & Request("UserName")&"“ANDfldPassword=“"&Request("Password")& "“"
　　Set rs = myconn.Execute(SQL)
　　if err.number>0 then
　　msg=Session("Openerror")
　　else
　　If Not rs.EOF Then
　　Session("ShopAdmin") = rs("fldUserName")
　　LogUser Session("ShopAdmin"), "in", myconn
　　Shopclosedatabase myconn
　　response.redirect "shopadmin1.asp"
　　Else
　　msg="用户名或者密码错误！ "
　　end if
　　end if
　　end if
　　shopPageHeader
　　if msg <> "" Then
　　response.write msg
　　end if
　　%>
　　</center>
　　<form action="shopadmin.asp" method="post" name="LoginForm">
　　<center>
　　此页面仅供管理员使用</center> 
　　
　　<TABLE WIDTH=300 BORDER=1 CELLPADDING=3 CELLSPACING=0
　　align="center" bordercolordark="#333399" bordercolorlight="#666699">
　　<TR>
　　<TD BGCOLOR="#0080C0" COLSPAN=2 ALIGN=LEFT VALIGN=TOP>
　　
　　
　　高级用户登陆
　　</TD>
　　</TR>
　　<TR>
　　<TD WIDTH=50 ALIGN=LEFT VALIGN=TOP>
　　
　　
　　用户名：
　　</TD>
　　<TD ALIGN=LEFT VALIGN=TOP>
　　
　　
　　<INPUT TYPE=TEXT NAME="UserName" VALUE="<%=Request("UserName") %>">
　　</TD>
　　</TR>
　　<TR>
　　<TD WIDTH=50 ALIGN=LEFT VALIGN=TOP>
　　
　　
　　密码：
　　</TD>
　　<TD ALIGN=LEFT VALIGN=TOP>
　　
　　
　　<INPUT TYPE=PASSWORD NAME="Password">
　　</TR>
　　其用来登陆的用户名、密码、及登陆后的权限都与系统数据库相连
　　如过用户名、密码错误将来到以下界面
　　输入管理员用户名、密码后来到以下界面
　　进入后台网上商城系统，其部分代码如下：
　　%>
　　选择相应的项可以进行管理编辑
　　
　　<center>
　　<%
　　Dim myconn
　　ShopOpenDatabase myconn
　　FormatHeader
　　list = GetAccess(Session("ShopAdmin"), myconn)
　　ac = Split(list,",")
　　For each item in ac
　　SQL = "SELECT * FROM tblAccess WHERE fldAuto = " & cINT(item)
　　Set objRec = myconn.Execute(SQL)
　　FormatRow objRec
　　Next
　　ShopCloseDatabase myconn
　　FormatTrailer
　　end sub
　　Sub FormatHeader
　　%>
　　<table border="2" cellspacing="1" width="90%" bordercolor="#008080">
　　<tr>
　　<td width="50%">
　　功能</td>
　　<td width="50%">
　　描述</td>
　　</tr>
　　<%
　　end sub
　　Sub FormatRow (objRec)
　　dim name,url,comment
　　name = objRec("fldName")
　　url = objRec("fldURL")
　　Comment=objREC("fldComment")
　　%>
　　其中网页上所显示的“功能”及“描述”选项都与系统数据库相连，点击“显示订单”按钮，
　　其中部分代码如下：
　　%>
　　<td>订单号</td>
　　<td>用户号</td>
　　<td>订单日期</td>
　　<td>购物费用</td>
　　<td>姓名</td>
　　<td>国家</td>
　　<td>是否删除</td>
　　<%
　　其中网页上所显示的“删除记录”及“标记已经交易成功”等选项都与系统数据库相连，点击“显示产品”按钮，网页将会把所有的商品都一一列举出来，方便管理员管理、查询、修改。
　　其中部分代码如下：
　　Response.write "
　　<a href=shopa_addgeneral.asp?database=" & dbname &
　　"&table=" & dbtable & ">增加新记录</a> "
　　response.write " Page " & mypage & " of " & maxpages & " "
　　%>
　　<center>
　　<form action="shopa_editdisplay.asp?table=<%=dbtable%>" method="post">
　　<table border="2" cellpadding="2" cellspacing="3" width="100%">
　　<tr><td></td>
　　<%
　　Response.write "<td align=center>Delete</td></tr>"
　　“ 下面获得所有记录
　　howmanyrecs=0
　　DO UNTIL rstemp.eof OR howmanyrecs=maxrecs
　　my_link=scriptresponder & "?which=" & rstemp(idfield) +
　　& "&idfield=" & idfield & "&table=" & dbtable & "&database=" & dbname
　　response.write "<tr><td valign=""top"">
　　<a HREF=" & my_link & ">编辑</a></td>"
　　> response.write("</table>")
　　%>
　　<input type="hidden" name="database" value="<%=database%>">
　　<input type="hidden" name="table" value="<%=dbtable%>">
　　<input type="hidden" name="idfield" value="<%=idfield%>">
　　<center>
　　<input type="submit" name="Delete" value="删除记录">
　　</center>
　　<%
　　response.write("</form>")
　　其中网页上所显示的“增加新记录”及“删除”等选项都与系统数据库相连，点击“历史记录”按钮，网页将会把所有的进入后台信息都显现出来，方便管理员管理、查询。
　　其中部分代码如下：
　　If Request("Delete")<>"" Then
　　For Each item in Request("DeleteHis")
　　del = "DELETE FROM tblLog WHERE fldAuto=" & CINT(item)
　　con.Execute(del)
　　Next
　　End If
　　AdminPageHeader
　　SQL = "SELECT * FROM tblLog"
　　Set objRec = con.Execute(SQL)
　　%>
　　<td>
　　
　　
　　<%=objRec("fldUserName")%></td>
　　<td>
　　
　　
　　<%=objRec("fldTime")%></td>
　　<td>
　　
　　
　　<%=objRec("fldDate")%></td>
　　<td>
　　
　　
　　<%=UCase(objRec("fldInOut"))%
　　其中网页上所显示的“删除”选项都与系统数据库相连，构建好的网上商城系统。

上一篇：powper B2C商城系统

下一篇：商城系统数据结构