白开心
IT博客
::
首页
:: ::
联系
::
聚合
::
管理
::
9 随笔 :: 76 文章 :: 28 评论 :: 0 Trackbacks
<
2024年12月
>
日
一
二
三
四
五
六
24
25
26
27
28
29
30
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
1
2
3
4
公告
独坐在路边街角,冷风吹醒,默默地伴着我的孤影。
常用链接
我的随笔
我的评论
我参与的随笔
留言簿
(12)
给我留言
查看公开留言
查看私人留言
文章分类
.Net(学习ing...)(39)
(rss)
Asp+vbScript(14)
(rss)
JavaScript(14)
(rss)
T-SQL(8)
(rss)
经典收藏(8)
(rss)
设计模式
(rss)
文章档案
2013年4月 (1)
2013年3月 (1)
2012年7月 (1)
2012年4月 (1)
2011年10月 (1)
2011年8月 (1)
2011年3月 (1)
2011年2月 (1)
2011年1月 (1)
2010年9月 (1)
2010年6月 (1)
2010年4月 (2)
2010年1月 (1)
2009年11月 (1)
2009年10月 (6)
2009年9月 (3)
2009年8月 (2)
2009年5月 (1)
2008年10月 (2)
2008年9月 (2)
2008年7月 (2)
2008年6月 (1)
2008年3月 (1)
2008年2月 (1)
2008年1月 (1)
2007年12月 (5)
2007年11月 (4)
2007年10月 (2)
2007年9月 (2)
2007年7月 (1)
2007年6月 (2)
2007年4月 (2)
2007年1月 (1)
2006年12月 (1)
2006年11月 (2)
2006年8月 (1)
2006年7月 (1)
2006年5月 (2)
2006年4月 (1)
2006年2月 (1)
2006年1月 (1)
2005年12月 (10)
相册
PhotoShop Study For HuangHuaXiang
我的相册
收藏夹
.NET(1)
(rss)
其他类别
(rss)
搜索
最新评论
1. re: JQUERY的表单异步提交[未登录]
1111111
--111
2. re: JQUERY的表单异步提交
eqedqedasd
--123
3. re: 委托和匿名函数
评论内容较长,点击标题查看
--bracelet shopping
4. re: 递归查询
您好!你的在我这里怎么执行不了啊!
--小陈
5. re: JS操作Xml的相关方法[未登录]
不能保丰到服务器上?
--11
阅读排行榜
1. 窦房折返性心动过速(928)
2. ∷∷∷∷男人感悟一百条∷∷∷∷(710)
3. 人生致命的八个经典问题(657)
4. 秋天不回来(570)
5. 圣诞(467)
评论排行榜
1. 圣诞(0)
2. 人生致命的八个经典问题(0)
3. ∷∷∷∷男人感悟一百条∷∷∷∷(0)
4. 窦房折返性心动过速(0)
5. 秋天不回来(0)
asp中Cookies的购物车
<
%
Dim
CartStr
'
购物车相关函数
'
黄杰 2007年1月23号
'
购物车数据定义: 商品ID|数量#颜色*尺寸,商品ID|数量#颜色*尺寸,商品ID|数量#颜色*尺寸,商品ID|数量#颜色*尺寸
Sub
CartAdd(ProductID,Num,ColorID,SizeID)
'
添加某种商品
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
CartStr
=
""
Then
Response.Cookies(
"
SpiderCart
"
)
=
ProductID
&
"
|
"
&
Num
&
"
#
"
&
ColorID
&
"
*
"
&
SizeID
Exit
Sub
end
if
CartStr
=
CartStr
&
"
,
"
&
ProductID
&
"
|
"
&
Num
&
"
#
"
&
ColorID
&
"
*
"
&
SizeID
Response.Cookies(
"
SpiderCart
"
)
=
CartStr
End Sub
Sub
CartEdit(ProductID,Num)
'
编辑某种商品的数量
CartStr
=
"
,
"
&
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
(
InStr
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
=
0
)
Then
Alert(
"
该商品刚刚卖完
"
)
CartDel(ProductID)
Exit
Sub
end
if
Arr
=
Split
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
CartStr
=
Arr(
0
)
&
"
,
"
&
ProductID
&
"
|
"
&
Num
&
"
#
"
&
Right
(Arr(
1
),
Len
(Arr(
1
))
-
InStr
(Arr(
1
),
"
#
"
))
CartStr
=
Right
(CartStr,
Len
(CartStr)
-
1
)
Response.Cookies(
"
SpiderCart
"
)
=
CartStr
End Sub
Sub
CartClear
Response.Cookies(
"
SpiderCart
"
)
=
""
End Sub
Sub
CartDel(ProductID)
'
删除某种商品
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
(CartStr
=
""
)
Then
Exit
Sub
'
Alert(CartStr)
if
(
UBound
(
Split
(CartStr,
"
|
"
))
=
1
)
Then
Response.Cookies(
"
SpiderCart
"
)
=
""
Exit
Sub
end
if
CartStr
=
"
,
"
&
CartStr
ArrCart
=
Split
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
CartStr
=
ArrCart(
0
)
&
Right
(ArrCart(
1
),
Len
(ArrCart(
1
))
-
InStr
(ArrCart(
1
),
"
*
"
))
CartStr
=
Right
(CartStr,
Len
(CartStr)
-
1
)
Response.Cookies(
"
SpiderCart
"
)
=
CartStr
End Sub
Function
GetColorBYProductID(ProductID)
'
返回商品的颜色
CartStr
=
"
,
"
&
Trim
(Request.Cookies(
"
SpiderCart
"
))
ArrCart
=
Split
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
ArrCart(
1
)
=
Right
(ArrCart(
1
),
Len
(ArrCart(
1
))
-
InStr
(ArrCart(
1
),
"
#
"
))
GetColorBYProductID
=
Left
(ArrCart(
1
),
InStr
(ArrCart(
1
),
"
*
"
)
-
1
)
End Function
Function
GetNumBYProductID(ProductID)
'
返回商品的数量
CartStr
=
"
,
"
&
Trim
(Request.Cookies(
"
SpiderCart
"
))
ArrCart
=
Split
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
GetNumBYProductID
=
Left
(ArrCart(
1
),
InStr
(ArrCart(
1
),
"
#
"
)
-
1
)
End Function
Function
GetSizeBYProductID(ProductID)
'
返回商品的尺寸
CartStr
=
"
,
"
&
Trim
(Request.Cookies(
"
SpiderCart
"
))
'
Response.Write(CartStr)
'
Response.End()
ArrCart
=
Split
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
ArrCart(
1
)
=
Right
(ArrCart(
1
),
Len
(ArrCart(
1
))
-
InStr
(ArrCart(
1
),
"
*
"
))
if
(
InStr
(ArrCart(
1
),
"
,
"
)
=
0
)
Then
GetSizeBYProductID
=
ArrCart(
1
)
else
GetSizeBYProductID
=
Left
(ArrCart(
1
),
InStr
(ArrCart(
1
),
"
,
"
)
-
1
)
end
if
End Function
Function
GetIDStr
'
返回购物车中商品由ID组成的字符串
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
(CartStr
=
""
)
Then
GetIDStr
=
""
:
Exit
Function
if
(
InStr
(CartStr,
"
,
"
)
=
0
)
Then
GetIDStr
=
Split
(CartStr,
"
|
"
)(
0
)
Exit
Function
end
if
ArrCart
=
Split
(CartStr,
"
,
"
)
For
i
=
0
to
Ubound
(ArrCart)
if
( i
=
0
)
then
GetIDStr
=
Split
(ArrCart(i),
"
|
"
)(
0
)
else
GetIDStr
=
GetIDStr
&
"
,
"
&
Split
(ArrCart(i),
"
|
"
)(
0
)
end
if
Next
End Function
Function
isExistsInCart(ProductID)
'
判断某个商品是否已经存在购物车中
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
CartStr
=
""
Then
isExistsInCart
=
False
Exit
Function
end
if
CartStr
=
"
,
"
&
CartStr
if
Instr
(CartStr,
"
,
"
&
ProductID
&
"
|
"
)
>
0
Then
isExistsInCart
=
True
Else
isExistsInCart
=
False
End
if
End Function
Function
GetCartCount
'
计算购物车中商品数量
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
CartStr
=
""
Then
GetCartCount
=
0
Exit
Function
end
if
GetCartCount
=
Ubound
(
Split
(CartStr,
"
|
"
))
End Function
Function
GetMoney
'
计算购物车中商品总价格
CartStr
=
Trim
(Request.Cookies(
"
SpiderCart
"
))
if
(CartStr
=
""
)
Then
GetMoney
=
0
:
Exit
Function
Dim
m,TotalPrice
Set
m
=
Server.CreateObject(
"
Adodb.RecordSet
"
)
if
(
InStr
(CartStr,
"
,
"
)
=
0
)
Then
arr
=
Split
(CartStr,
"
|
"
)
Sql
=
"
Select NewPrice*
"
&
Left
(arr(
1
),
InStr
(arr(
1
),
"
#
"
)
-
1
)
&
"
as TotalPrice from SP_Detail where id=
"
&
arr(
0
)
m.Open Sql,Conn,
1
,
3
if
(m.RecordCount
>
0
)
Then
GetMoney
=
m(
"
TotalPrice
"
)
Exit
Function
else
'
该商品在购买后已经被删除
CartDel(arr(
0
))
'
清空商品
GetMoney
=
0
m.Close
Set
m
=
Nothing
Exit
Function
end
if
m.Close
end
if
ArrCart
=
Split
(CartStr,
"
,
"
)
TotalPrice
=
0
'
Response.Write(CartStr)
'
Response.End()
For
i
=
0
to
Ubound
(ArrCart)
arr
=
Split
(ArrCart(i),
"
|
"
)
Sql
=
"
Select NewPrice*
"
&
Left
(arr(
1
),
InStr
(arr(
1
),
"
#
"
)
-
1
)
&
"
as TotalPrice from SP_Detail where id=
"
&
arr(
0
)
m.Open Sql,Conn,
1
,
3
if
(m.RecordCount
>
0
)
Then
TotalPrice
=
TotalPrice
+
m(
"
TotalPrice
"
)
'
m.fields(0).value
else
'
该商品在购买后已经被删除
CartDel(arr(
0
))
'
清空商品
end
if
m.Close
Next
Set
m
=
Nothing
GetMoney
=
TotalPrice
End Function
%
>
另外一个文件
<
%
Dim
Conn
Sub
ConnOpen(ConnStr)
'
数据连接
'
参数 ConnStr 数据库物理路径
Set
Conn
=
server.CreateObject(
"
Adodb.Connection
"
)
Conn.Open
"
Driver={MicroSoft Access Driver (*.mdb)};
"
&
"
dbq=
"
&
ConnStr
response.Buffer
response.Expires
=-
9999
session.Timeout
=
60
End Sub
Sub
ConnClose
Conn.Close()
Set
Conn
=
Nothing
End Sub
Function
ExecuteScalar(Sql)
'
执行Sql语句,返回单个值结果
Dim
Result
rs.Open Sql,Conn,
1
,
3
if
(rs.RecordCount
>
0
)
Then
Result
=
rs.fields(
0
).value
Else
Result
=
0
End
if
rs.Close
ExecuteScalar
=
Result
End Function
Sub
Alert(Str)
Response.Write(
"
<script language=""javascript"">alert('
"
&
Str
&
"
');</script>
"
)
End Sub
Sub
AlertAndRedirect(Str,PageInfo)
Response.Write(
"
<script language=""javascript"">alert('
"
&
Str
&
"
');window.location = ('
"
&
PageInfo
&
"
');</script>
"
)
End Sub
Sub
AlertAndClose(Str)
Response.Write(
"
<script language=""javascript"">alert('
"
&
Str
&
"
');window.close();</script>
"
)
Response.End()
End Sub
Sub
AlertAndBack(Str,Num)
Response.Write(
"
<script language=""javascript"">alert('
"
&
Str
&
"
');window.go(
"
&
Num
&
"
);</script>
"
)
End Sub
Function
ReplaceStr(str)
ReplaceStr
=
Replace
(str,
"
'
"
,
"
['']
"
)
ReplaceStr
=
Replace
(str,
"
-
"
,
"
[_]
"
)
End Function
Function
ReStoreStr(str)
ReStoreStr
=
Replace
(str,
"
['']
"
,
"
'
"
)
ReStoreStr
=
Replace
(str,
"
[_]
"
,
"
-
"
)
End Function
Sub
DelFile(Path)
'
删除指定路径文件
Dim
Fs
Set
Fs
=
Server.CreateObject(
"
Scripting.FileSystemObject
"
)
If
(Fs.FileExists(Path))
Then
Fs.DeleteFile(Path)
Set
Fs
=
Nothing
End Sub
Function
GetIP
'
得到 IP 地址
if
(Request.ServerVariables(
"
REMOTE_ADDR
"
)
=
""
)
Then
GetIP
=
Request.ServerVariables(
"
HTTP_X_FORWARDED_FOR
"
)
else
GetIP
=
Request.ServerVariables(
"
REMOTE_ADDR
"
)
end
if
End Function
Function
ExecuteScalar(Sql)
'
执行Sql语句,返回单个值结果
Dim
Result
rs.Open Sql,Conn,
1
,
3
if
(rs.RecordCount
>
0
)
Then
Result
=
rs.fields(
0
).value
Else
Result
=
0
End
if
rs.Close
ExecuteScalar
=
Result
End Function
Function
GetOrderNo
'
生成一个订单号 YYMMDDHHMMSS
Randomize
ranNum
=
int
(
90
*
rnd
)
+
10
GetOrderNo
=
year
(
now
)
&
month
(
now
)
&
day
(
now
)
&
hour
(
now
)
&
minute
(
now
)
&
second
(
now
)
&
ranNum
End Function
%
>
posted on 2007-01-27 22:49
白开心
阅读(1825)
评论(0)
编辑
收藏
引用
所属分类:
Asp+vbScript
只有注册用户
登录
后才能发表评论。
Powered by:
IT博客
Copyright © 白开心