objrs.open strsql ,objcon1,1,1
if keyword <> empty then
do while not objrs.eof
data="<tr hight='20'>"
for I=0to objrs.fields.count-1
data=data&"<td>"&objrs.fields(I).value&"</td>"
next
response.Write data
response.Write "<td><form method=post target=bottom action='addtocar.asp?"&"tname="&objRS("玩具名称")&"&price="&objRS("玩具价格")&"'><input type='text' name='quantity' size='10'></td>"
response.write "<td><input type=submit value='放入购物车'></td></form></tr>"
objrs.movenext
loop
objrs.close
set objrs = nothing
objcon1.close
set objcon1 = nothing
end if
%>
5.2.3 玩具交易
（1）购物车
① 放入购物车
判断输入商品数量是否为空，再判断用户是否登录，确定后才将商品放入购物车，并且更新订单细节表。主要代码如下：
<%
member_name=session("member_name")
tname = Request("tname")
price = Request("price")
quantity = Request("quantity")
subTotal = price * quantity
%>
<!--#include file="ADOFunctions.asp"-->
<%
dim objcon1
set objcon1=server.createobject("ADODB.Connection")
objcon1.ConnectionString=_
"driver={SQL Server};server=(local);database=ToyUniverse;uid=sa;pwd=1234;"
objcon1.open
dim objrs
set objrs=GetRecordset("ToyUniverse.mdf","Register")
do while not objrs.eof
if member_name=empty then
member_name="未登陆"
objrs.movelast
end if
objrs.movenext
loop
objrs.close
set objrs=nothing
dim strsql
strsql="insert into OrderDetail (用户帐号,玩具名称,玩具价格,数量,金额,时间)_
values('"& session("member_name")&"','"&tname&"','"&price&"','"&quantity&"','"&subTotal&"','"&date()&"')"
objcon1.execute(strsql)
objcon1.Close
Set objcon1 = Nothing
%>
② 查看购物车
从数据库中找到对应的订单细节显示出来，并且统计总金额。主要代码如下：
<!-- #include file="ADOFunctions.asp" -->
<%
strSQL = "SELECT * from OrderDetail WHERE 用户帐号='" & Session("member_name") & "'"
Set objRS = GetSQLRecordset(strSQL, "ToyUniverse.mdf", "OrderDetail")
If objRS.EOF Then
Response.Write "<CENTER><IMG SRC='../image/BG6.GIF'><P>目前购物车内没有任何商品及数量！</P>" & "<P><A HREF='shopping.asp'>返回商品表</A></P></CENTER>"
Else
For I = 0 To objRS.Fields.Count - 1
Response.Write "<TD>" & objRS.Fields(I).Name & "</TD>"
Next
Response.Write "<TD> </TD>"
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.