%@ Language=VBScript %> <% Response.Buffer = true Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "no-cache" %> <% function getCartQty(CartID) dim SQL, rsq if CartID="" then getCartQty=0 else SQL="exec spGetCartQty " & CartID set rsq=Server.CreateObject("adodb.recordset") Connect() rsq.Open SQL, MM_TEstore_STRING if isNull(rsq(0)) then getCartQty=0 else getCartQty=rsq(0) end if rsq.Close set rsq=nothing end if end function %> <% dim cart_qty cart_qty = getCartQty(mSessionID) %>
|
|||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||