📄 shop.asp

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

💻 ASP

字号:

<HTML>
  <BODY BGCOLOR="LightYellow">
    <TABLE BORDER="0" ALIGN="Center"> 
      <CAPTION align=center><A HREF="ShoppingCar.asp">查看购物车</A></CAPTION>
      <TR BGCOLOR="#BABA76" HEIGHT="30" ALIGN="Center">
<%
     ' 使用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
     ' 读取数据表的字段名称以作为表格的标题
   For I = 0 To objRS.Fields.Count - 1
     Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
   Next
   Response.Write "<TD>数量</TD>"
   Response.Write "<TD>订购</TD>"
     ' 读取各个字段的数据并显示在表格内
   Do While Not objRS.EOF
     Data = "<TR HEIGHT='30' BGCOLOR='#EDEAB1'>"
     For I = 0 To objRS.Fields.Count - 1
       Data = Data & "<TD>" & objRS.Fields(I).Value & "</TD>"
     Next
     Response.Write Data
     f1="<FORM METHOD='POST' ACTION='AddToCar.asp?uid="
     f2= objRS("商品编号") & "&name=" & objRS("名称")
     f3= "&company=" & objRS("生产商") & "&Price=" & objRS("定价") & "'>"
     f4="<INPUT TYPE='text' NAME='Quantity' SIZE='5'></TD>"
     f5="<INPUT TYPE=SUBMIT VALUE=放入购物车></TD></FORM>"
     Response.Write "<TD ALIGN=Center>" & f1 & f2 & f3 & f4
     Response.Write "<TD ALIGN=Center>" & f5
     objRS.MoveNext
   Loop
     ' 关闭数据库连接并释放对象
   objRS.Close
   Set objRS = Nothing
   objConn.Close
   Set objConn = Nothing
%>
    </TABLE>
  </BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -