|
| 
| Submitted on: 4/20/2000 2:37:55 AM
By: martin castañeda
Level: Intermediate
User Rating:
By 4 Users
Compatibility:VbScript (browser/client side)
Users have accessed this code 12699 times.
|
(About the author) |
| | | This is an Internet Shopping Cart which is an Accounting and E-Commerce Application
| |
|
| |
|
code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!
Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description. |
'**************************************
' Name: Shopping Cart
' Description:This is an Internet Shoppi
' ng Cart which is an Accounting and E-Com
' merce Application
' By: martin castañeda
'
'This code is copyrighted and has ' limited warranties.Please see http://w
' ww.Planet-Source-Code.com/xq/ASP/txtCode
' Id.6136/lngWId.4/qx/vb/scripts/ShowCode.
' htm 'for details. '**************************************
<HTML>
<CENTER>
<FONT SIZE=5>
Martin's Shopping Cart Sample
</FONT>
</CENTER>
<BR><BR>
<FORM NAME=SHOPPINGCARTFORM METHOD=POST ACTION=http://www6.ewebcity.com/martincastaneda/grocery.asp>
<PRE>
Name : <INPUT NAME=NAME SIZE=30>
Email : <INPUT NAME=EMAIL SIZE=30>
Telephone : <INPUT NAME=TELEPHONE SIZE=30>
Address: <INPUT NAME=ADDRESS SIZE=50>
Item : <Select NAME=ITEMX>
<OPTION VALUE=Empty>Empty
<OPTION VALUE=Bread>Bread
<OPTION VALUE=Pampers>Pampers
<OPTION VALUE=Milk>Milk
<OPTION VALUE=Ice_Cream>Ice_Cream
</Select>
Price : <INPUT NAME=PRICE VALUE=0.00>
Quantity : <INPUT NAME=QUANTITY VALUE=1>
Amount: <INPUT NAME=AMOUNT VALUE=0.00>
<INPUT TYPE=BUTTON NAME=ADD VALUE="Add to Cart">
Transaction
<TEXTAREA NAME=TRANSACTION COLS=50 ROWS=20></TEXTAREA>
Total : <INPUT NAME=TOTAL VALUE=0.00>
<INPUT TYPE=RESET VALUE=Reset><INPUT TYPE=SUBMIT VALUE=Submit>
</PRE>
</FORM>
<SCRIPT LANGUAGE=VBSCRIPT>
<!--
Set ENTRYFORM = DOCUMENT.SHOPPINGCARTFORM
Sub ADD_OnClick
ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Item: " + ENTRYFORM.ITEMX.VALUE + VBCRLF
ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Price: " + ENTRYFORM.PRICE.VALUE + VBCRLF
ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Quantity: " + ENTRYFORM.QUANTITY.VALUE + VBCRLF
ENTRYFORM.TRANSACTION.VALUE = ENTRYFORM.TRANSACTION.VALUE + "Amount : " + ENTRYFORM.AMOUNT.VALUE + VBCRLF + VBCRLF
ENTRYFORM.TOTAL.VALUE = FORMATNUMBER(CINT(ENTRYFORM.TOTAL.VALUE) + CINT(ENTRYFORM.AMOUNT.VALUE), 2)
End Sub
Sub QUANTITY_OnChange
CALL COMPUTE
End Sub
Sub COMPUTE
ENTRYFORM.AMOUNT.VALUE = FORMATNUMBER(CINT(ENTRYFORM.PRICE.VALUE) * CINT(ENTRYFORM.QUANTITY.VALUE), 2)
TOTALAMOUNT = CINT(ENTRYFORM.TOTAL.VALUE) + CINT(ENTRYFORM.QUANTITY.VALUE)
End Sub
Sub ITEMX_OnChange
if ENTRYFORM.ITEMX.SELECTEDINDEX = 0 Then ENTRYFORM.PRICE.VALUE = "0.00"
if ENTRYFORM.ITEMX.SELECTEDINDEX = 1 Then ENTRYFORM.PRICE.VALUE = "10.00"
if ENTRYFORM.ITEMX.SELECTEDINDEX = 2 Then ENTRYFORM.PRICE.VALUE = "20.00"
if ENTRYFORM.ITEMX.SELECTEDINDEX = 3 Then ENTRYFORM.PRICE.VALUE = "30.00"
if ENTRYFORM.ITEMX.SELECTEDINDEX = 4 Then ENTRYFORM.PRICE.VALUE = "40.00"
ENTRYFORM.QUANTITY.VALUE = "1"
ENTRYFORM.QUANTITY.VALUE = INPUTBOX("Input Quantity of " + ENTRYFORM.ITEMX.VALUE, "Quantity", ENTRYFORM.QUANTITY.VALUE)
CALL COMPUTE
End Sub
-->
</SCRIPT>
</HTML>
| |
| |
| Report Bad Submission |
|
| |
| Your Vote! |
|
See Voting Log |
| |
| Other User Comments |
There are no comments on this submission.
|
|
| Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this code has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular code, please click here.
|
|
