home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 December / Chip_2000-12_cd1.bin / tema / amadea / inc / basket.asi next >
Encoding:
Text File  |  2000-03-21  |  4.0 KB  |  151 lines
  1. <%
  2.  
  3. function getObjBasket()
  4. {
  5.   return Session("basket");
  6. };
  7.  
  8.  
  9. function basketIsEmpty()
  10. {
  11.   objBasket = getObjBasket();
  12.   return (objBasket.Count == 0);
  13. };
  14.  
  15. function basketAdd(articleCode, quantity)
  16. {
  17.   objBasket = getObjBasket();
  18.   articleCode = "".concat(articleCode);
  19.   if (!objBasket.Exists(articleCode))
  20.     objBasket.Add(articleCode, 0);
  21.   objBasket.Item(articleCode) += parseFloat("".concat(quantity));
  22. };
  23.  
  24. function basketGetQuantity(articleCode)
  25. {
  26.   objBasket = getObjBasket();
  27.   articleCode = "".concat(articleCode);
  28.   return parseFloat(objBasket.Item(articleCode));
  29. };
  30.  
  31. function basketRemove(articleCode)
  32. {
  33.   objBasket = getObjBasket();
  34.   articleCode = "".concat(articleCode);
  35.   if (exists = objBasket.Exists(articleCode))
  36.     objBasket.Remove(articleCode);
  37.   return exists;
  38. };
  39.  
  40. function basketRemoveAll()
  41. {
  42.   objBasket = getObjBasket();
  43.   objBasket.RemoveAll();
  44. };
  45.  
  46. function basketIncQuantity(articleCode, quantity)
  47. {
  48.   basketAdd(articleCode, quantity);
  49. };
  50.  
  51.  
  52. function basketGetSQLInExpr()
  53. {
  54.   var
  55.     i;
  56.  
  57.   objBasket = getObjBasket();
  58.  
  59.   res = "";
  60.   keys = (new VBArray(objBasket.Keys())).toArray();
  61.   res = "";
  62.   for (i = 0; i < keys.length; i++)
  63.     {
  64.     if (res != "") res += ",";
  65.     res += "\"".concat(keys[i], "\"");
  66.     };
  67.   return res;
  68. };
  69.  
  70. function basketHTMLTotal()
  71. {
  72.   objBasket = getObjBasket();
  73.   
  74.   quantity = 0;
  75.   price = 0;
  76.  
  77.   if (!basketIsEmpty())
  78.   {
  79.     con = Session("con");
  80.     sql = "select KOD, cena"+
  81.       " from zbozi"+
  82.       " where KOD in (" + basketGetSQLInExpr() + ")";
  83.     if (con.Query(sql))
  84.       {
  85.       recSet = Server.CreateObject("MySQL.RecordSet");
  86.       recSet.Connection = con;
  87.       while (recSet.Next())
  88.         {
  89.           q = parseFloat(basketGetQuantity(recSet["KOD"]));
  90.           quantity += q;
  91.           price += parseFloat("".concat(recSet["cena"])) * q;
  92.           
  93.         };
  94.       };
  95. %>
  96. <style type="text/css">
  97. <!--
  98. .total {font-family:arial,serif;font-size:10pt;text-align:center; font-weight:bold;color:#000000;background-color:#000000};
  99.  
  100. .totpr {font-family:arial,serif;font-size:10pt;text-align:center; font-weight:bold;color:#FFFFFF;background-color:#FFFFFF};
  101. .totprv {font-family:arial,serif;font-size:10pt;text-align:center; font-weight:900;color:#000000;background-color:#FFFFFF};
  102. .totprl {font-family:arial,serif;font-size:8pt;text-align:center; font-weight:bold;color:#FFFFFF;background-color:#0000FF};
  103.  
  104. .totq {font-family:arial,serif;font-size:10pt;text-align:center; font-weight:bold;color:#000000;background-color:#FFFFFF};
  105. .totqv {font-family:arial,serif;font-size:10pt;text-align:center; font-weight:bold;color:#000000;background-color:#FFFFFF};
  106. .totql {font-family:arial,serif;font-size:8pt;text-align:center; font-weight:bold;color:#FFFFFF;background-color:#00FF00};
  107.  
  108.  
  109.  
  110.  
  111. //-->
  112. </style>
  113.  
  114.   <table name="total" id="total" class="total"  bgcolor="#FFFFFF" width="155" cellspacing="0" cellpadding="0" border="0">
  115.     <tr>
  116.       <td class="totpr" bgcolor="#FFFFFF" align="left">
  117.         <table class="totprt" bgcolor="#0000FF" width="75" cellspacing="1" cellpadding="0" border="0">
  118.           <tr>
  119.             <td class="totprv" bgcolor="#FFFFFF" align="center">
  120.               <%= priceToHTMLText(price) %>
  121.             </td>
  122.           </tr>
  123.           <tr>
  124.             <td class="totprl" bgcolor="#0000FF" align="center">
  125.               cena [KΦ]
  126.             </td>
  127.           </tr>
  128.         </table>
  129.       </td>
  130.       <td class="totq" bgcolor="#FFFFFF" align="right">
  131.         <table class="totqt"  bgcolor="#00FF00" width="75" cellspacing="1" cellpadding="0" border="0">
  132.           <tr>
  133.             <td class="totqv" bgcolor="#FFFFFF" align="center">
  134.               <%= countToHTMLText(quantity) %>
  135.             </td>
  136.           </tr>
  137.           <tr>
  138.             <td class="totql" bgcolor="#00FF00" align="center">
  139.               mno₧stvφ
  140.             </td>
  141.           </tr>
  142.         </table>
  143.       </td>
  144.     </tr>  
  145.   </table>
  146. <%
  147.   };
  148. };
  149. %>
  150.  
  151.