global.asa

来自「一个简单的网上书店系统」· ASA 代码 · 共 23 行

<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>