📄 shoppingcar.asp.txt

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

💻 TXT

字号:

<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") 
    strSQL = "SELECT * FROM 购物单"
    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 + -