global.asa

在线图书销售系统

<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart
dim sItemNums(0), nItemQtys(0)
  sItemNums(0) = ""
  nItemQtys(0) = 0

  session("CartItemNumArray") = sItemNums
  session("CartItemQtyArray") = nItemQtys
 
  session("shipbasecharge") = 4.50
  session("shipitemcharge") = 1.25
End Sub

</SCRIPT>

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart

End Sub

</SCRIPT>