Private Sub txtbox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbox1.TextChanged 'Try ' If Me.txtbox1.Text <> "" Then ' Dim a As Integer ' a = Convert.ToInt32(Me.txtbox1.Text) ' If (Me.txtbox1.Text.Length > 50) Then ' Me.txtbox1.Text = Me.txtbox1.Text.Substring(0, 50) ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('数据过长,请重新输入!') // --></mce:script>") ' End If ' End If 'Catch ex As Exception ' Me.txtbox1.Text = "" ' Page.RegisterStartupScript("Script", "<mce:script language=JavaScript><!-- alert('格式错误,请重新输入!') // --></mce:script&