removeitem.aspx

来自「asp入门到精通的源代码」· ASPX 代码 · 共 19 行

<%@ 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 objBM As New BananaMobile.BananaMobile

         ' Add Product Item to Cart
         objBM.AddPart(CInt(Session("UserID")), 0, Request.Params("cat").ToString)
      End If  
      Response.Redirect("MyMobile.aspx")
   End Sub
</script>