global.asa

一套简单的购物车程序

<script language="vbscript" runat=server>
Sub Application_OnStart
	'Tax percentage to add to order total
	Dim stax
	stax = 0.21
	Application("taxP") = stax
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
	'Shopping cart array
	Const cartAttributes = 5
	Const maxCartItems = 10
	ReDim arrcart(cartAttributes,maxCartItems)

	Session("MyCart") = arrcart
	Session("cartItem") = 0

End Sub

Sub Session_OnEnd

End Sub

</script>