返回列表 发帖
呵呵,看看吧

TOP

顾客满意。购物结束后,进行提交,点击“order”,完成购物。
此外顾客还得进行身份信息的填写,包括姓名,年龄,住址,联系方式和选择的支付方式或使用的支付卡等等。个人身份信息的填写是为了方便顾客所购买的货物准确及时送达。而所有这些信息也将保存在系统数据库中,顾客以后再次购买时就无需重新输入个人身份,可以直接登陆到页面中。
3.3  程序设计
管理员在进入网上购物系统主页后点击“管理员”按钮就会进入管理员登陆界面

只有管理员才有权限进入后台修改数据库,其部分代码如下:
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="用户名或者密码错误!<br>"
                              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><font  face=arial  size=2  color="#0080c0">
<b>此页面仅供管理员使用</b></font></center><br>
</font></font>
<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>
<font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2  color=white><b>高级用户登陆</b></font>
</font></font></td>
</tr>
<tr>
<td  width=50  align=left  valign=top>
<font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2><b>用户名:</b>
</font></font></font></td>
<td  align=left  valign=top>
<font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<input  type=text  name="username"  value="<%=request("username")  %>">
</font></font></td>
</tr>
<tr>
<td  width=50  align=left  valign=top>
<font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2><b>密码:
</b></font></font></font></td>
                                <td  align=left  valign=top>
<font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<input  type=password  name="password">
</tr>
其用来登陆的用户名、密码、及登陆后的权限都与系统数据库相连

如过用户名、密码错误将来到以下界面

输入管理员用户名、密码后来到以下界面

进入后台数据库管理系统,其部分代码如下:
%>
<p  align="center">选择相应的项可以进行管理编辑</p>
<p>
<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%">
                <p  align="center"><b><font  face="verdana">功能</font></b></td>
            <td  width="50%">
                <p  align="center"><b><font  face="verdana">描述</font></b></td>
        </tr>
<%
end  sub
sub  formatrow  (objrec)
dim  name,url,comment
name  =  objrec("fldname")
url  =  objrec("fldurl")
comment=objrec("fldcomment")
%>
其中网页上所显示的“功能”及“描述”选项都与系统数据库相连,点击“显示订单”按钮,

其中部分代码如下:
%>
<td><font  face="arial,  arial,  helvetica"><b>订单号</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>用户号</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>订单日期</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>购物费用</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>姓名</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>国家</b></font></td>
<td><font  face="arial,  arial,  helvetica"><b>是否删除</b></font></td>
<%
其中网页上所显示的“删除记录”及“标记已经交易成功”等选项都与系统数据库相连,点击“显示产品”按钮,  网页将会把所有的商品都一一列举出来,方便管理员管理、查询、修改。
  
其中部分代码如下:
response.write  "<font  size=4>
<a  href=shopa_addgeneral.asp?database="  &  dbname  &
  "&table="  &  dbtable  &  ">增加新记录</a></font><br>"
response.write  "<br>page  "  &  mypage  &  "  of  "  &  maxpages  &  "<br>"
%>
<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></font></td>"
>                    response.write("</table></font>")
%>
                    <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></font>
<%
                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><font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2  color=navy>
<%=objrec("fldusername")%></font></font></font></td>
<td><font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2  color=navy>
<%=objrec("fldtime")%></font></font></font></td>
<td><font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2  color=navy>
<%=objrec("flddate")%></font></font></font></td>
<td><font  face="trebuchet  ms,  arial,  helvetica">
<font  face="arial,  arial,  helvetica">
<font  face="arial"  size=2  color=navy>
<%=ucase(objrec("fldinout"))%
其中网页上所显示的“删除”选项都与系统数据库相连,

TOP

我要看看啊

TOP

ding  ding ding

TOP

啊 哈哈 我能回了!
3132

TOP

haode xiexie

TOP

好东西
谢谢了!

TOP

非常感谢你的所作!!!!!

TOP

TOP

dddddddddddddddd

TOP

返回列表

Powered by Discuz! 7.2   论坛QQ群:逐梦论坛群

© 2001-2021 Comsenz Inc. 鲁公网安备 37120302000001号