1. 求解一段ASP代码（是购物车的）
'rs.Open sql,conn,1,1无法看到其他用户添加的新数据，但被其他用户删除的数据将变为不可访问，同时可以看到其他用户所作的修改。
'rs.Open sql,conn,1,3静态打开方式。在你使用数据是其他用户无法访问该数据
'rs.Open sql,conn,1,2动态的数据库打开方式，其他用户所进行的修改、删除和新建等工作都会立即在数据对象中体现出来，并且支持全部类型的数据移动方式，除非提供者不支持，否则也可以进行书签操作
'rs.Open sql,conn,-1不指定打开方式
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#incl
ude file="manage/inc/config.asp"-->
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/chk.asp"-->
<%
dim id,username,action
action=request.QueryString("action") '取得前页面传来的参数action和id以及从cookies中去的用户名分别存入变量aciton，id，name中
username=trim(request.cookies(cookieName)("username"))
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset") '建立数据库连接，创建一个recordset对象rs
select case action '以下分情况对action进行判断
case "del" '当为del时候，表示删除执行语句delete from orders where actionid=前页面的参数actionid
conn.execute "delete from orders where actionid="&request.QueryString("actionid")
response.redirect "car.asp" '然后页面跳转到car.asp这一页面
case "add" '当为add时候，表示增加。执行语句 select id,username from orders where username='"&username&"' and id="&id&" and state=6
rs.open "select id,username from orders where username='"&username&"' and id="&id&" and state=6",conn,1,1 '先检查购物车中是否已经存在这件货物，如果否，就添加到数据库
if not rs.eof and not rs.bof then '如果已经添加过了就弹出提示框 提示对不起，此商品已存在于您的购物车中，不可以重复添加
call MsgBox("对不起，此商品已存在于您的购物车中，不可以重复添加！","Close","None")
response.end
rs.close '关闭连接
else '当购物车中没有刚才要添加的记录的时候，进行添加
rs.close
rs.open "select id,username,state,paid from orders",conn,1,3
rs.addnew '添加一个新行，在recordset中
rs("id")=id '设置这一行各对应列的值
rs("username")=username
rs("state")=6
rs("paid")=0
rs.update '然后执行update操作将这一行插入到数据库中去
rs.close '关闭连接
set rs=nothing '清空对象，注意随时关闭连接和清空对象，否则很容易出错
call MsgBox("商品成功添加到你的购物篮！","Close","None") '弹出添加成功提示
response.end '返回
end if
end select
'选择此用户购物车里所有物品 ，可能要显示
rs.open "select orders.actionid,orders.id,proct.name,proct.price1,proct.price2,proct.discount from proct inner join orders on proct.id=orders.id where orders.username='"&request.cookies(cookieName)("username")&"' and orders.state=6",conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上书店</title>
<link href="style.css" rel="stylesheet" type="text/css">
2. asp实现购物车功能
这个怎么说呢。你首先要把购物车的流程写出来,无论什么程序都是需要业务流专程才能做出来的。你把流属程写出来了，代码就很简单了。既然你已经用cookie写出来了，那么你就不能做一个临时表来存储这些数据，用户登录就记录用户，用户没登录在他结帐的时候提醒登录。。（PS：这只是一个思路，授人以鱼，比如授人以渔。）代码给你了，你也只是交差，你可以自己先思考一下。确实写不了。。在Q我。
3. 帮忙翻译asp购物车相关代码!
Sub PutToShopBag( hw_ID,basket_count, proctList ,quantityList) '定义函数PutToShopBag()并传入接受4个参数值分别安顺序赋值给4个变量hw_ID,basket_count, proctList ,quantityList
If Len(proctList) = 0 Then ’如果proctList变量的长度为0 条件成立则执行如下语句
proctList = "" & hw_ID & "" ‘proctList的值就等于hw_ID变量的值
quantityList="" & basket_count & "" ’quantityList变量的值就为basket_count变量的值
ElseIf InStr( proctList&",", hw_ID&"," ) <= 0 Then '否则 判断proctList的值连接上字符"，"后是否包含hw_ID变量连接上字符","的值 <=0表示不包含 条件成立则执行如下语句
proctList = hw_ID & ""& ", " &proctList '为hw_ID变量连接上字符", "在连接上proctList变量的值后赋值给proctList变量
quantityList = basket_count & ", " &quantityList '同上
End If '结束条件选择语句if
session("proctList")=proctList '定义名为proctList的session变量 值为proctList变量的值
session("quantityList")=quantityList '同上
End Sub
Sub PutToShopBagsecond( hw_ID,basket_count, proctList ,quantityList)
If Len(proctList) = 0 Then
proctList = "" & hw_ID & ""
quantityList="" & basket_count & ""
ElseIf InStr( proctList&",", hw_ID&"," ) <= 0 Then
proctList = hw_ID & ""& ", " &proctList
quantityList = basket_count & ", " &quantityList
End If
session("proctList")=proctList
session("quantityList")=quantityList
End Sub
proctList = session("proctList")
quantityList = session("quantityList")
if Request("hw_ID")<>"" then
PutToShopBag Request("hw_ID"), "1",proctList,quantityList
end if
session("proctList")=proctList
session("quantityList")=quantityList
Head="以下是您所选购的物品清单" '为Head变量赋值
If Request("clear") = "yes" Then '如果上一页传递过来的参数clear的值yes
proctList = "" 'proctList 变量的值为空
quantityList = "" '同上
session("proctList") = proctList'同上
session("quantityList") = quantityList '同上
End If
If Request("MySelf") = "Yes" Then
proctList = ""
quantityList = ""
procts = Split(Request("hwID"), ", ") '把 上一页传递过来的参数hwID的值以", "为分隔符 用split函数遍历为数组赋值给procts
For I=0 To UBound(procts) ' for 循环 Ubound(procts)获取procts数组的最大下标
j=UBound(procts)-i 'procts的最大下表减去i的值赋值给j变量 (下面应该是按照倒叙取值)
tempQuantity=Request("basket_count"&procts(j)) '获取同名的basket_count参数的第j+1个的值并复制给tempQuantity
if tempQuantity="" then tempQuantity=1 '如果tempQuantity的值为空则重新为tempQuantity变量赋值为1
' j=i
PutToShopBagsecond procts(j), tempQuantity,proctList,quantityList '函数中调用函数puToShopBagsecond 并传递4个参数procts(j), tempQuantity,proctList,quantityList(这句我也不太清楚调用函数应该是call 函数名(参数))
Next
session("proctList") = proctList ‘赋值语句
session("quantityList") = quantityList ‘赋值语句
End If
4. 请问asp网页购物车代码中<a href="Payment.aspProct_Id=<%=rs("Proct_Id")%>",target="_blank">是什么
第一个页面
<a href="Payment.asp?Proct_Id=<%=rs("Proct_Id")%>",target="_blank">
意思是传值把产品的唯一主键值传给另一个页面接收
在新页面打开文件Payment.asp，并传递参数变量Proct_Id的值为rs("Proct_Id")
-----------------------------------------
第二个页面：
Session("ProctList") = ProctList 把ProctList 赋值给session
'判断购物车是否为空
if Proctlist<>"''" then ’如果proctlist不是空值那么执行下面的语句
sql="select * from Proct where Proct_Id in ("&ProctList&") order by Proct_Id" ‘sql查询语句赋值给变量sql
Set rs_price = conn.Execute(sql) ’执行sql查询
else ‘如果proctlist是空值
response.redirect "error.asp?error=007" ’输出error参数=707的错误页面
response.end ‘结束执行后面的代码
end if ’结束if条件判断
if语句格式
if 条件 then
************** 符合条件的执行代码
else
************** 不符合条件的执行代码
end if 结束if条件语句
5. 想求一个完整的ASP购物车代码
示用户信息
首先登陆： 就是判断数据库里的记录 是否存在用户名字段=帐号 and 密码字段=密码 如果有这条记录 那么就是登陆成功 用session记住他的帐号 这就是登陆
购物车： 就是有个表 记录商品的唯一值的字段（一般是id字段）和用户的唯一字段（一般是帐号） 这样这个商就属于这个人购物车内的商品了 一般有个商品个数字段 记录这个人买了多少件这个商品
显示：（select * from [表] where 条件）这个是查询sql 你应该会用吧 如果是查询某人的购物车 就这样写（select * from [购物车表] where [用户名字段] = 用户）上面已经说了 购物车表里要有个用户名字段 来记录是哪个用户存放的物品
删除：（delete from [购物车表] where [id]=记录id and [用户名字段]=用户）上面显示里已经获取到记录的id和其他信息 在这里只需要id和用户名 其实只需要id就可以要用户名是为了更保险 有了用户名字段的限制 就只样自己删除自己的记录
显示用户信息:如果你不会显示用户信息的话 那你还是去看看sql吧 （select * from [会员表] where [用户名]=用户名）获取这个sql的记录集
response.write(rs.("用户名"))这样就能在屏幕上打印出用户名字段的内容 其他字段同上
6. 求一个ASP的完整的购物车代码，用cookies实现的
网络搜白，很多的这样的源代码！
7. 求asp购物车代码
我发个经典的，建议你去文库找下
<td><input type="button" onclick="javascript:document.form1.action='update.asp?rowcount=<%=i%>&pid=<%=rs(1)%>&pcount=<%=rs(3)%>';document.form1.submit();"value="确认修改"></td>
改为
<td><input type="button" onclick="javascript:document.form1.action='update.asp?id=<%=rs("Id")%>&rowcount=<%=i%>';document.form1.submit();"value="确认修改"></td>
<%
'这里需要注意在上个页面，有个i值，在这里就用到了，你要指明修改的是哪一行记录
......
response.redirect("mycar.asp")'执行完之后重新跳转到mycar.asp
%>
改为
<%
'只需商品id和修改后的数量值
dim id
id=request.querystring("id")
pcount=request.querystring("pcount")
sql="update buy set pcount ='"&pcount&"' where Id="&id
conn.execute sql
conn.close
set conn=nothing
response.redirect("mycar.asp")'执行完之后重新跳转到mycar.asp
%>
8. 网上购物系统里面的购物车部分代码怎么写（要求用ASP）
这个是很复杂的东西，没法给你三言两语讲清楚。
可以去 aspx类的学习论坛看下，一般都有现成的代码！
9. asp的添加购物车代码。。执行不了。。高手指点下。。
按照你的说法,它应该没转跳到go_login.asp页面吧.
验证登陆那也没写上response.end()
'***************************
<%if session("MM_username")="" then
response.write "<script>alert('很抱歉,您还没有登录,您需要先登陆后才能进入您的购物车！');window.location.href='go_login.asp';</script>"
response.end()
end if%>
'就执行到这，我登录后进入该页就没有反应了，下面的代码始终没有执行
<%
if session("cart")="" or (not IsObject(session("cart"))) then
set Session("cart")=server.CreateObject("Scripting.Dictionary")
end if
Set cart=Session("cart")
proctID=Cstr(Request("Proct_ID"))
dim detail(1)
detail(0)=1
if Request("Proct_ID")<>"" then
if cart.Exists(proctID) then
Response.Write("<script>alert('对不起，您已经购买了该产品！');location='proct.asp';<script>")
Response.End
end if
cart.add proctID,detail
Response.Write("<script>alert('成功添加该产品！');location='proct.asp';<script>")
end if
%>
'*****************
如果还不行,就设置
on error resume next查错语句,再配和在某个点设置response.write(变量a)
response.end()
'这样可以在那个点可以追踪到那个变量a的值,一步步查,看那里有问题
10. asp 购物车代码问题
<td><input type="button" onclick="javascript:document.form1.action='update.asp?rowcount=<%=i%>&pid=<%=rs(1)%>&pcount=<%=rs(3)%>';document.form1.submit();"value="确认修改"></td>
改为
<td><input type="button" onclick="javascript:document.form1.action='update.asp?id=<%=rs("Id")%>&rowcount=<%=i%>';document.form1.submit();"value="确认修改"></td>
<%
'这里需要注意在上个页面，有个i值，在这里就用到了，你要指明修改的是哪一行记录
......
response.redirect("mycar.asp")'执行完之后重新跳转到mycar.asp
%>
改为
<%
'只需商品id和修改后的数量值
dim id
id=request.querystring("id")
pcount=request.querystring("pcount")
sql="update buy set pcount ='"&pcount&"' where Id="&id
conn.execute sql
conn.close
set conn=nothing
response.redirect("mycar.asp")'执行完之后重新跳转到mycar.asp
%>