📄 shoppingcar.asp

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

💻 ASP

字号:

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

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -