VB购物车代码，还有一点问题，有高手帮我修改一下吗？

'-------------------------index.aspx-------------------------- Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand        Dim iii As Integer
        iii = Session("count")
        iii = iii + 1
        Session("count") = iii
        Dim j, flag As Integer
        Me.Response.Write(Session("count"))
        For j = 1 To Session("count")
            If Session(CStr(j)) = e.Item.Cells(0).Text Then
                flag = 1
            End If
        Next
        If flag = 1 Then
            Me.Response.Write("<script language=javascript>alert('购买重复，请注意！')</script>")
            Session("count") = Session("count") - 1
        Else
            Session(CStr(Session("count"))) = e.Item.Cells(0).Text
        End If
        Me.Response.Write(Session("count"))
        Me.Response.Write("<script language=javascript>window.open('Cart.aspx','_blank','width=500,height=400,top=20,left=20,scrollbars=yes,resizeable=no')</script>")
    End Sub'----------------------cart.aspx-----------------------------Imports System.Collections
Imports System.Collections.ArrayList
Public Class Cart
    Inherits System.Web.UI.Page#Region " Web 窗体设计器生成的代码 "    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox    '注意: 以下占位符声明是 Web 窗体设计器所必需的。
    '不要删除或移动它。
    Private designerPlaceholderDeclaration As System.Object    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub#End Region    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
  
        If Not Me.IsPostBack Then
            Dim ii As Integer
        Dim dt As New DataTable
        Dim dr As DataRow
        dt.Columns.Add(New DataColumn("商品ID", GetType(String)))
        For ii = 1 To Session("count")
            If Me.Session("" & CStr(ii) & "") = Nothing Then
                Exit For
            End If
            dr = dt.NewRow()
            dr(0) = Me.Session("" & CStr(ii) & "")            dt.Rows.Add(dr)
        Next
        If Not dt.Rows.Count > 0 Then
            Me.Response.Write("购物车是空的！")
        Else
            Me.DataGrid1.DataSource = New DataView(dt)
            Me.DataGrid1.DataBind()
        End If
        End If
        Me.TextBox1.Text = Me.Session("count")
    End Sub    Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
    
     
        If e.CommandName = "del" Then          
            Dim a1, a2, a3 As Integer
            Dim ii As Integer
            Dim ff As Integer            Me.Session(e.Item.DataSetIndex + 1) = Nothing            For a1 = 1 To (Me.Session("count") - (e.Item.DataSetIndex + 1))'--------此处的循环我不会些-------            
                Me.Session(CStr(Session("count"))) = e.Item.DataSetIndex
            Next
            Dim dt As New DataTable
            Dim dr As DataRow
            dt.Columns.Add(New DataColumn("id", GetType(String)))            For ii = 1 To Me.Session("count")
                If Me.Session(CStr(ii)) = Nothing Then
                    Exit For
                End If                dr = dt.NewRow
                dr(0) = Me.Session(CStr(ii))                dt.Rows.Add(dr)
            Next            If Not dt.Rows.Count > 0 Then
                Me.Session("count") = Nothing
                Me.Response.Write("购物车是空的！")
            End If            Me.DataGrid1.DataSource = New DataView(dt)
            Me.DataGrid1.DataBind()
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Session("count") = Me.Session("count") - 1
        Me.TextBox1.Text = Me.Session("count")
    End Sub
End ClassVB购物车代码，还有一点问题，就是点了删除按钮之后，如何将所选按钮之后的session(ii)都递减，谢谢，请问该如何写呢？救命啊，一个星期都没搞定这个问题