asp 购物车类
<%
'购物车类 类名：UserCart
'作者:gameing
'基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格.
'1、2008-11-25修改Function AddItem() by tommy 商品增加在最后
'2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem()
'3、2008-11-25转换一些数据类型才能运算
'==========================
Class UserCart
'建立购物车
Sub CreateCart()
Dim CFlag
dim mCart(6,0)
CFlag=CheckCart()
if CFlag=false then
For iCount =LBound(mCart,2) to UBound(mCart,2)
mCart(0,iCount)=""
next
Session("UserCart")=mCart
end if
End Sub
'检查购物车
Public Function CheckCart()
IF IsArray(Session("UserCart")) THEN
CheckCart = true
ELSE
CheckCart = false
END IF
End Function
'检查购物车是否为空
Function CheckEmtpy()
dim mCart
mCart=Session("UserCart")
For i =LBound(mCart,2) to UBound(mCart,2)
if mCart(0,i)<>"" then
CheckEmtpy=false
Exit Function
end if
next
CheckEmtpy=True
End Function
'添加商品
Function AddItem(aID,aName,aPrice1,aPrice2,aPrice3,aCount,aImage) '2008-12-25改进 by tommy 商品增加在最后
dim mCart
AddItem=false
if CheckItem(aID)=false then
'无此商品
mCart=Session("UserCart")
i =UBound(mCart,2)
i=i+1
Redim preserve mCart(6,i)
mCart(0,i)=aID
mCart(1,i)=aName
mCart(2,i)=aPrice1
mCart(3,i)=aPrice2
mCart(4,i)=aPrice3
mCart(5,i)=aCount
mCart(6,i)=aImage
session("UserCart")=mCart
AddItem=True
Else
'有此商品,则商品数量+1
ModifItem aID,aCount,0
AddItem=True
End if
En
相关文档：
存储进程就是作为可执行对象存放在数据库中的一个或多个SQL命令。
定义总是很抽象。存储进程其实就是能完成一定操作的一组SQL语句，只不过这组语句是放在数据库中的(这里我们只谈SQL SERVER)。如果我们通过创建存储进程以及在ASP中调用存储进程，就可以避免将SQL语句同ASP代码混杂在� ......
如果你已经有较多的面向对象开发经验，跳过以下这两步：
第一步 掌握一门。NET面向对象语言，C#或VB.NET 我强烈反对在没系统学过一门面向对象（OO）语言的前提下去学ASP.NET。 ASP.NET是一个全面向对象的技术，不懂OO，那绝对学不下去！
第二步 对。NET Framework类库有一定的了解 可以通过开发Windows Form应用程序来� ......
var loader:URLLoader = new URLLoader();
var url:URLRequest = new URLRequest("test.asp");
url.method = URLRequestMethod.POST;
var values:URLVariables = new URLVariables();
values.message="hello im flash!";
url.data = values;
loader.dataFormat = URLLoaderDataFormat.VARI ......
VISTA+IIS+ASP架站
1. VISTA裝IIS
1-1. 控制面板中“程序和功能”的位 ......
sub aspsql()
SQL_injdata = "'|;|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"
SQL_inj = split(SQL_Injdata,"|")
If Request.Form<>"" Then
For Each Sql_Post In Request.Form
For SQL_Data=0 To Ubound(SQL_inj)
if instr(Request.Form(Sql_Post),Sql_Inj ......
