If Me.IsPostBack = False Then
            data_input_death_nen()
            ddList2.Items.Clear() ''''''これはいりませんね。
            ddList2.Items.Add("選択してください")
            For i As Integer = syokinen To syuuryounen
                ddList2.Items.Add(i)
            Next
        Else
            '2回目以降のリクエストの場合、選択されている値をポップアップで表示します。 
            Dim js As String = "<script>alert(" & ddList2.SelectedValue & ");</script>"
            Me.ClientScript.RegisterStartupScript(Me.GetType, "MsgBox", js)
        End If
としまして、言われるように動きます。webをユーザーが訪れた場合のクッキーに、postbackを使っていました。
　ありがとうございます。