📄 array.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<%
'***********************************
'功能：实现购物车的原理
'调用方法：call cart(购买商品的ID号,购买数量)
'输出arr数组中的商品信息
'call cart("spid","spsl")
'arr=session("arr")
'For I = 0 To ubound(arr,1)
' For J = 0 To 1
'response.Write(arr(I, J)&"|")
' Next
'response.Write("<br>")
'Next
'开发时间：2005-09-16 11：25
'开发者：王国辉
'***********************************
function cart(buyID,buynumber)
if not isarray(session("arr")) then
dim arr(0,1)
arr(0,0)=buyID
arr(0,1)=buynumber
session("arr")=arr
else
arr=session("arr")
UB=ubound(arr,1)+1
redim arr(UB,1)
sessionarr=session("arr")
'将新添加的商品信息保存
arr(UB,0)=buyID
arr(UB,1)=buynumber
'应用循环将保存在seesion("arr")数组中的商品信息添加到arr中
For I = 0 To ubound(sessionarr,1)
For J = 0 To 1
arr(I, J)=sessionarr(I,J)
Next
Next
session("arr")=arr
end if
end function
'调用购物车函数并显示购物车中的数据
call cart("spid","spsl")
arr=session("arr")
For I = 0 To ubound(arr,1)
For J = 0 To 1
response.Write(arr(I, J)&"|")
Next
response.Write("<br>")
Next
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -