Forums
This topic is locked
ASP to PHP conversion
Posted 30 Sep 2010 17:27:08
1
has voted
30 Sep 2010 17:27:08 Sukhad Phadnis posted:
hiiiii can anyone convert this code to PHP. Plz its urgent.
<%@ Page debug=true Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" %>
<html>
<head>
<title>Shopping Cart</title>
<script runat="server">
Dim objDT As System.Data.DataTable
Dim objDR As System.Data.DataRow
Private Sub Page_Load(s As Object, e As EventArgs)
If Not IsPostBack Then
makeCart()
End If
End Sub
Function makeCart()
objDT = New System.Data.DataTable("Cart"
objDT.Columns.Add("ID", GetType(Integer))
objDT.Columns("ID"
.AutoIncrement = TrueobjDT.Columns("ID"
.AutoIncrementSeed = 1objDT.Columns.Add("Quantity", GetType(Integer))
objDT.Columns.Add("Product", GetType(String))
objDT.Columns.Add("Cost", GetType(Decimal))
Session("Cart"
= objDTEnd Function
Sub AddToCart(s As Object, e As EventArgs)
objDT = Session("Cart"
Dim Product = ddlProducts.SelectedItem.Text
Dim blnMatch As Boolean = False
For Each objDR In objDT.Rows
If objDR("Product"
= Product ThenobjDR("Quantity"
+= txtQuantity.TextblnMatch = True
Exit For
End If
Next
If Not blnMatch Then
objDR = objDT.NewRow
objDR("Quantity"
= txtQuantity.TextobjDR("Product"
= ddlProducts.SelectedItem.TextobjDR("Cost"
= Decimal.Parse(ddlProducts.SelectedItem.Value)objDT.Rows.Add(objDR)
End If
Session("Cart"
= objDTdg.DataSource = objDT
dg.DataBind()
lblTotal.Text = "$" & GetItemTotal()
End Sub
Function GetItemTotal() As Decimal
Dim intCounter As Integer
Dim decRunningTotal As Decimal
For intCounter = 0 To objDT.Rows.Count - 1
objDR = objDT.Rows(intCounter)
decRunningTotal += (objDR("Cost"
* objDR("Quantity")Next
Return decRunningTotal
End Function
Sub Delete_Item(s As Object, e As DataGridCommandEventArgs)
objDT = Session("Cart"
objDT.Rows(e.Item.ItemIndex).Delete()
Session("Cart"
= objDTdg.DataSource = objDT
dg.DataBind()
lblTotal.Text = "$" & GetItemTotal()
End Sub
</script>
</head>
<body>
<form runat="server">
Product:<br>
<asp
ropDownList id=ddlProducts runat="server"><asp:ListItem Value="4.99">Socks</asp:ListItem>
<asp:ListItem Value="34.99">Pants</asp:ListItem>
<asp:ListItem Value="14.99">Shirt</asp:ListItem>
<asp:ListItem Value="12.99">Hat</asp:ListItem>
</asp
ropDownList><br>Quantity:<br>
<asp:textbox id="txtQuantity" runat="server" /><br><br>
<asp:Button id=btnAdd runat="server" Text="Add To Cart" onClick="AddToCart" /><br><br>
<asp
ataGrid id=dg runat="server" ondeletecommand="Delete_Item"><columns>
<asp:buttoncolumn buttontype="LinkButton" commandname="Delete" text="Remove Item" />
</columns>
</asp
ataGrid><br><br>
Total:
<asp:Label id=lblTotal runat="server" />
</form>
</body>
</html>