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
%>