addtocart.aspx

asp入门到精通的源代码

<%@ Page Language="VB" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

<script runat="server">
   private objConn As New OleDbConnection("Provider=" & _
            "Microsoft.Jet.OLEDB.4.0;" & _
            "Data Source=C:\ASPNET\data\banana.mdb")
   
   Sub Page_Load(obj As Object, e As EventArgs) 
      If not Request.Params("PartID") is Nothing Then
         Dim intUserID as integer = Session("UserID")
         Dim intRecords as integer
         Dim objReader as OleDbDataReader
         Dim objBM As New BananaMobile.BananaMobile
         
         ' Add Product Item to Cart
         objBM.AddPart(intUserID, CInt(Request.Params("PartID")), Request.Params("cat").ToString)
      End If  
      Response.Redirect("MyMobile.aspx")
   End Sub
</script>