100分相送，按钮控件问题，字符串个数不能提交！

我做了业务报告小程序，有个大文本框，当我输入一定字符数时，旁边的保存按钮，怎么按都不起作用！字符数少就可以！真奇怪！有没有人见过呀？

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

Dim SqlString As String
        Dim DSet As New DataSet
        Dim MyConnection As New SqlConnection
        Dim MyCommand As New SqlCommand
        Dim DReader As SqlDataReader        If Len(DateTextBox.Text) >= 8 Then
            If IsDate(DateTextBox.Text) = True Then
                DateTextBox.Text = Format(CDate(DateTextBox.Text), "yyyy-MM-dd")
            Else
                Response.Write("<script language=javascript>alert('일지형식 틀립니다.확인하시기 바랍니다!')</script>")
                Exit Sub
            End If
        Else            Response.Write("<script language=javascript>alert('일지형식 틀립니다.확인하시기 바랍니다!')</script>")
            Exit Sub        End If
        SqlString = "Select Count(*) as 'MAKE_DATE' from  rp_rept where make_date ='" & DateTextBox.Text & "'"
        MyConnection.ConnectionString = StrConnection()        With MyCommand
            .Connection = MyConnection
            .Connection.Open()
            .CommandText = SqlString
            DReader = .ExecuteReader(CommandBehavior.SequentialAccess)
        End With        DReader.Read()        If DReader.Item("MAKE_DATE") <> 0 And DateTextBox.ReadOnly = False Then
            Response.Write("<script language=javascript>alert('업무일지가 이미 존재합니다.')</script>")
            DReader.Close()
            MyConnection.Close()
            Exit Sub
        End If        If DateTextBox.ReadOnly = False Then
            SqlString = "INSERT INTO RP_REPT (" & _
                        "MAKE_DATE,DOCU_PREV,DOCU_NOWX," & _
                        "WORK_PREV,WORK_NOWX,PAYX_NOWX," & _
                        "PAYX_SPEC,PAYX_ETCX,PAYY_NOWX,FILE_NOXX," & _
                        "APPR_STE1,APPR_STE2,APPR_STE3," & _
                        "APPR_STE4,APPR_STE6,WORK_USER " & _
                        ") VALUES ('"
            SqlString = SqlString & DateTextBox.Text & "','"
            SqlString = SqlString & DOCU_PREVTextBox.Text & "','"
            SqlString = SqlString & DOCU_NOWXTextBox.Text & "','"
            'SqlString = SqlString & DOCU_NEXTTextBox.Text & "','"
            SqlString = SqlString & WORK_PREVTextBox.Text & "','"
            SqlString = SqlString & WORK_NOWXTextBox.Text & "','"
            'SqlString = SqlString & WORK_NEXTTextBox.Text & "','"
            SqlString = SqlString & PAYX_NOWXTextBox.Text & "','"
            SqlString = SqlString & "','"
            SqlString = SqlString & PAYX_ETCXTextBox.Text & "','"
            SqlString = SqlString & PAYY_NOWXTextBox.Text & "','"
            SqlString = SqlString & DateTextBox.Text & "','"
            SqlString = SqlString & APPR_STE1TextBox.Text & "','"
            SqlString = SqlString & APPR_STE2TextBox.Text & "','"
            SqlString = SqlString & APPR_STE3TextBox.Text & "','"
            SqlString = SqlString & APPR_STE4TextBox.Text & "','"
            SqlString = SqlString & APPR_STE6TextBox.Text & "','"
            SqlString = SqlString & Session("ID") & "')"            If ExecSqlCommand(SqlString) = True Then
                Response.Write("<script language=javascript>alert('[정상]업무일지가 저장되었습니다.')</script>")
                Session("SaveOK") = "False"
            Else
                Response.Write("<script language=javascript>alert('[실패]입력내용 확인주십시요.')</script>")
            End If        Else            SqlString = "UPDATE RP_REPT SET " & _
                        "DOCU_PREV='" & DOCU_PREVTextBox.Text & "'," & _
                        "DOCU_NOWX='" & DOCU_NOWXTextBox.Text & "'," & _
                        "WORK_PREV='" & WORK_PREVTextBox.Text & "'," & _
                        "WORK_NOWX='" & WORK_NOWXTextBox.Text & "'," & _
                        "PAYX_NOWX='" & PAYX_NOWXTextBox.Text & "'," & _
                        "PAYX_ETCX='" & PAYX_ETCXTextBox.Text & "'," & _
                        "PAYY_NOWX='" & PAYY_NOWXTextBox.Text & "'," & _
                        "APPR_STE1='" & APPR_STE1TextBox.Text & "'," & _
                        "APPR_STE2='" & APPR_STE2TextBox.Text & "'," & _
                        "APPR_STE3='" & APPR_STE3TextBox.Text & "'," & _
                        "APPR_STE4='" & APPR_STE4TextBox.Text & "'," & _
                        "APPR_STE6='" & APPR_STE6TextBox.Text & "'," & _
                        "WORK_USER='" & Session("id") & "'"
            SqlString = SqlString & " Where MAKE_DATE ='" & DateTextBox.Text & "'"            ' Response.Write(SqlString)            If ExecSqlCommand(SqlString) = True Then
                Response.Write("<script language=javascript>alert('[정상]업무일지가 수정되었습니다.')</script>")
                Session("SaveOK") = "False"
            Else
                Response.Write("<script language=javascript>alert('[실패]입력내용 확인주십시요.')</script>")
            End If
        End If        Response.Write("<script language=javascript>parent.frames('top').document.all.DateTextBox.value='" & DateTextBox.Text & "'</script>")
확인&#51452 这个是字符没关系，例如：DOCU_PREVTextBox.Text 的字符较多，按钮的事件根本就不激活
倒，代码可真不少哈。你输入太多，会不会是这个字段里的内容不能容乃你输入的内容呢？把你的那个字段类型改成Text或者NText类型看看
难道不触发事件吗？如果触发事件，可以用TRY CATCH显示是不是有错误啊
NND,这代码看上去怎么这么象反编译出来的.
Response.Write("<script language=javascript>alert('일지형식 틀립니다.확인하시기 바랍니다!')</script>")
问题已解决,原因我告诉大家,回复的都给分!!
因为我在<form method=post> 把method 去掉就可以了