📄 shoppingcar.asp

📁 ASP 网页数据库短训教程源码

💻 ASP

字号:

<HTML>
  <BODY BGCOLOR="LightYellow">
<%
    ' 使用Connection对象打开数据库文件
  Set objConn = Server.CreateObject("ADODB.Connection")
  objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" & Server.MapPath("store.mdb")
  objConn.Open
    ' 从数据表中读取符合SQL语句的记录并存放在Recordset对象中
  Set objRS = Server.CreateObject("ADODB.Recordset") 
  time0 = session("time0")
  gukename = session("gukename")
  strSQL = "SELECT * FROM 购物单  where (时间=#" & TimeValue(time0) & "#)"
  strSQL = strSQL & " and (顾客名='" & gukename & "')"
  objRS.Open strSQL, objConn, 1, 1
  If objRS.EOF Then
    Response.Write "<CENTER>目前购物车内没有任何商品！</P>"
    Response.Write "<P><A HREF='Shop.asp'>返回网上超市</A></P></CENTER>" 
  Else
%>
    <P ALIGN="Center"><A HREF='Shop.asp'>返回网上超市</A>
    <TABLE BORDER="0" ALIGN="Center">
      <TR BGCOLOR="#ACACFF" HEIGHT="30" ALIGN="Center">
<%
        ' 读取数据表的字段名称以作为表格的标题
    For I = 0 To objRS.Fields.Count - 1
      Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
    Next
    Response.Write "<TD>&nbsp;</TD></TR>"
    Total = 0   '这个变量用来统计总金额
    Do While Not objRS.EOF
      Data = "<TR HEIGHT='30' BGCOLOR='#EAEAFF'>"
      For I = 0 To objRS.Fields.Count - 1
        Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
      Next
      Response.Write Data
      dele="<TD><A HREF='Delete.asp?No=" & objRS("编号")
      Response.Write dele & "'>删除</A></TD></TR>"
      Total = Total + objRS("金额")  '将金额累计以得出总金额
      objRS.MoveNext
    Loop
      ' 关闭数据库连接并释放对象
    objRS.Close         
    Set objRS = Nothing
    objConn.Close
    Set objConn = Nothing
%>
      <CAPTION ALIGN=left VALIGN=bottom>购物车中商品的总金额：
         <%= Total %></CAPTION>
    </TABLE>
<% End If %>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -