28,390
社区成员
发帖
与我相关
我的任务
分享
id=request.QueryString("id")
if instr(session("goods"),id)=0 then
session("goods")=session("goods")&id&","&"1,"
else
goodsArr=split(session("goods"),",")
for i=0 to ubound(goodsArr)-1
if goodsArr(i)=id then
exit for
end if
next
goodsArr(i+1)=goodsArr(i+1)+1
session("goods")=join(goodsArr,",")
end if
response.Write(session("goods"))
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<style type="text/css">
#a{
background:#CCCCCC
}
#b{
background:#FFFFCC
}
</style>
</head>
<body>
<%
''a,1,b,1,c,1,d,1,
'
'id=request.QueryString("id")
'if instr(session("goods"),id)=0 then
' session("goods")=session("goods")&id&","&"1,"
'else
' goodsArr=split(session("goods"),",")
' for i=0 to ubound(goodsArr)-1
' if goodsArr(i)=id then
' exit for
' end if
' next
' goodsArr(i+1)=goodsArr(i+1)+1
' session("goods")=join(goodsArr,",")
'end if
'response.Write(session("goods"))
%>
<div id="main">
<div id="a">
<%
'a,1,b,1, c,1,a,1 z1=a z2=1 z3=b a1b1c1
id=request.QueryString("id")
if instr(session("goods"),id)=0 then
session("goods")=session("goods")&id&","&"1,"
else
goodsArr=split(session("goods"),",")
for i=0 to ubound(goodsArr)-1
if goodsArr(i)=id then
exit for
end if
next
goodsArr(i+1)=goodsArr(i+1)+1
session("goods")=join(goodsArr,",")
end if
response.Write(session("goods"))
%>
</div>
</div>
<br />
<a href="index.asp">[返回]</a>
</body>
</html>