home *** CD-ROM | disk | FTP | other *** search
/ Cool Page Magazine 16 / CoolPage_16.iso / dynadb / codes / calcu2.cfm < prev    next >
Text File  |  1998-01-29  |  4KB  |  120 lines
  1. <!---------------------------└╔ªWíGcalcu2.cfm----------------------
  2.     │o¡╙└╔«╫¡n:
  3.         1. └╦¼d┼U½╚¼Oº_┐∩╛▄ñF½HÑ╬Ñd┴╩¬½íA½o¿Sª│┐ΘñJ½HÑ╬Ñd╕╣╜X
  4.         2. ▒N┼U½╚╕Ω«╞╝Wª▄íucustomerív╝╞╛┌«wññ
  5.         3. ┤εñ╓íuproductív╝╞╛┌«wññ¬║│f¬½╝╞╢q
  6.         4. ▒N¡q┴╩╕Ω«╞╝Wª▄íuorderproductív╝╞╛┌«wññ
  7.         5. ▒N¡q┴╩╕Ω«╞╝Wª▄íudetailív╝╞╛┌«wññ
  8. -------------------------------------------------------------------->
  9.  
  10. <HTML>
  11. <BODY background="paper12l.jpg">
  12.  
  13.     <cfif #payby# is "creditcard" and #visa# is "">
  14.         ºA┐∩╛▄ñFÑH½HÑ╬ÑdÑI┤┌íAª²┴┘¿S┐ΘñJ½HÑ╬Ñd╕╣╜XíC╜╨½÷íubackív¡½╖s┐∩╛▄
  15.     <cfelse>
  16.         <cfoutput>
  17.             <cfset checked_id=ArrayNew(2)>
  18.             <cfset checked_id[1][1]="">
  19.             <cfset checked_id[1][2]=0>
  20.             <cfset tmpstr="">    
  21.             <cfset id_list="">
  22.             <cfset idSelected=#selected_prodid#>
  23.             <cfset qtyselected=#selected_prodqty#>
  24.             <cfset total_id_char=len(idSelected)>
  25.             <cfset total_qty_char=len(qtyselected)>    
  26.             <cfset x=1>
  27.         </cfoutput>
  28.         <cfloop index="y" from="1" to ="#total_id_char#">
  29.         <cfoutput>
  30.             <cfif #mid(idSelected, y, 1)# is not #chr(168)#>
  31.                 <cfset checked_id[x][1]=checked_id[x][1] & mid(idSelected, y, 1)>
  32.             <cfelse>
  33.                 <cfif y is not 1>
  34.                     <cfset x=x+1>
  35.                     <cfset checked_id[x][1]="">
  36.                 </cfif>
  37.             </cfif>
  38.         </cfoutput>
  39.         </cfloop>
  40.     
  41.         <cfset x=1>
  42.         <cfloop index="y" from="1" to ="#total_qty_char#">
  43.         <cfoutput>
  44.             <cfif #mid(qtyselected, y, 1)# is not #chr(168)#>
  45.                 <cfset tmpstr=tmpstr & mid(qtyselected, y, 1)>
  46.             <cfelse>            
  47.                 <cfif y is not 1>
  48.                     <cfset checked_id[x][2]=val(tmpstr)>
  49.                     <cfset x=x+1>
  50.                     <cfset checked_id[x][2]=0>
  51.                     <cfset tmpstr="">
  52.                 </cfif>
  53.             </cfif>
  54.         </cfoutput>
  55.         </cfloop>        
  56.         <cfset checked_id[x][2]=val(tmpstr)>
  57.  
  58.         <CfQuery name="AddCustRecord" datasource="dynamic database">
  59.             insert into    
  60.             customer(family_name, given_name, address, 
  61.                         tel, fax, email, visa)
  62.             values('#family_name#', '#given_name#','#address#', 
  63.                         '#tel#', '#fax#', '#email#', '#visa#')
  64.         </cfquery>
  65.  
  66.         <!--------------------------------------------------------------------
  67.         ª]¼░░O┐²¼O¡Φ¡ΦÑ[ñJ¬║íAª╙╝╞╛┌«wññ┼U½╚╜s╕╣¼OÑHíuª█░╩╜s╕╣ív¬║º╬ªíÑ╤ñpª▄ñjª█
  68.         ░╩╗╝╝W└xªsíA⌐╥ÑH¡Φ¡Φ╖s╝W¬║╕╣╜Xñ@⌐w¼O│╠ñj¬║íC
  69.         --------------------------------------------------------------------->
  70.  
  71.         <cfquery name="GetCustNo" datasource="dynamic database">
  72.             select * from customer
  73.             where cust_id=(select max(cust_id) from customer)
  74.         </cfquery>
  75.  
  76.         <cfoutput query="GetCustNo">
  77.             <cfset added_cust_id=#cust_id#>
  78.         </cfoutput>
  79.  
  80.         <cfset due_scheme=now()+30>
  81.  
  82.         <CFQuery name="AddOrderRecord" datasource="dynamic database">
  83.             insert into    
  84.             orderproduct(cust_id, order_date, due_date, pay_by)
  85.             values('#added_cust_id#', #now()#, #due_scheme#, '#payby#')
  86.         </cfquery>
  87.  
  88.         <cfquery name="GetOrderNo" datasource="dynamic database">
  89.             select * from orderproduct
  90.             where order_id=(select max(order_id) from orderproduct)
  91.         </cfquery>
  92.  
  93.         <cfoutput query="GetOrderNo">
  94.             <cfset added_order=#order_id#>
  95.         </cfoutput>
  96.  
  97.         <cfloop index="z" from="1" to="#x#">
  98.             <cfquery name="AddOrderDetail" datasource="dynamic database">
  99.                 insert into     
  100.                 detail(order_id, prod_id, quantity)
  101.                 values('#added_order#', '#checked_id[z][1]#',
  102.                     '#checked_id[z][2]#')
  103.             </cfquery>
  104.         </cfloop>
  105.  
  106.         
  107.         <HEAD><TITLE>¡q┴╩º╣ª¿</TITLE></HEAD>
  108.         <CENTER><H2>ºA ⌐╥ ┐∩ ╛▄ ¬║ │f ¬½ ñw º╣ ª¿ ñF ¡q ┴╩ ¬║ ╡{ ªí íA ºA ¬║ ¡q │µ 
  109.             ╕╣ ╜X ¼O<cfoutput>#added_order#</cfoutput>íA¡Y ╢╖ ¼d ╕▀ íA ╜╨ ½ⁿ Ñ▄ │o 
  110.             ¡╙ ╕╣ ╜X íC</H2></CENTER>
  111.         <HR>
  112.         <P ALIGN="center"><A HREF="/dynadb/index.htm">ª^¿∞ÑD¡╢</A></P>
  113.         </BODY>
  114.         </HTML>    
  115.  
  116.     </cfif>
  117.  
  118.  
  119.  
  120.