网上购物.txt

（1）为客户提供24小时方便快捷的在线订购服务。 （2）商品信息的维护与管理,包括价格的调整、现有商品信息的修改、新商品信息的加入、过时商品信息的删除等。 （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"))%