📄 shop.asp

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

💻 ASP

字号:

<%
  gukename1=Session("gukename")
  gukename2=Request("gukename")
  if gukename1 & gukename2="" then
    Response.Write "<CENTER>请正确登录网上超市</P>"
    Response.Write "<P><A HREF='login.asp'>登录</A></P></CENTER>"
  else
    if gukename1 ="" then
      Session("gukename") = Request("gukename")		' 读取顾客名称
      Session("time0") = time()						' 读取登录时间
    end if
%>
<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">
<%
   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>
<%end if%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -