參數轉址

Protected Sub btn_Check_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_Check.Click
        If cb_dorm.Checked = False Then
            Response.Write("<script>alert('請遵守公約!!');</script>")
        Else
            If HiddenField1.Value = "1" Then
                Response.Redirect("申請-個人.aspx")
            Else
                Response.Redirect("申請-團體.aspx")
            End If
        End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim x As Integer
        x = Convert.ToInt16(Request.QueryString("id"))
        HiddenField1.Value = x.ToString()
End Sub