PrivateSub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load 'If Not Page.IsStartupScriptRegistered("init") Then ' Page.RegisterStartupScript("init", "<script>init();</script>") 'End If IfNot IsPostBack Then province.Attributes.Add("onchange", "select()") city.Attributes.Add("onchange", "select1()") EndIf End Sub PrivateSub Button1_Click()Sub Button1_Click(ByVal sender AsObject, ByVal e As System.EventArgs) Handles Button1.Click Response.Write(HiddenValue.Value) Response.Write(HiddenValueshi.Value) End Sub