求帮忙!不知道咋回事，在回复网页中填完之后，点按钮之后没有反应，无法实现回复功能，以下是小弟我的代码

求帮忙!!!不知道怎么回事，在回复网页中填完之后，点按钮之后没有反应，无法实现回复功能，以下是我的代码：
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not CheckUser() Then
            Response.Redirect("Login.aspx")
        End If
    End Sub
    Protected Function CheckUser() As Boolean
        If Session("login_name") = Nothing Then
            Response.Write("<Script Language=JavaScript>alert('请登录!');</Script>")
            Return False
        End If
        Return True
    End Function

    Protected Sub Button1_Click（确定按钮）(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim topicID As String = Convert.ToInt32(Request.QueryString("topic_id"))
        Dim constr As String =
            ConfigurationManager.ConnectionStrings("MyBBSConnectionString").ToString()
        Dim sqlstr As String =
        "Insert into [Reply]([TopicID],[UserLoginName],[Title],[Content],[CreateTime],[IP]) values(@TopicID,@UserLoginName,@Title,@Content,@CreateTime,@IP)"
        Dim conn As SqlConnection = New SqlConnection(constr)
        Dim cmd As SqlCommand = New SqlCommand(sqlstr, conn)
        conn.Open()
        cmd.Parameters.Add("@TopicID", SqlDbType.Int).Value = topicID
        cmd.Parameters.Add("@UserLoginName", SqlDbType.VarChar, 50).Value = Session("login_name")
        cmd.Parameters.Add("@Title", SqlDbType.VarChar, 50).Value = TextBox1.Text
        cmd.Parameters.Add("@Content", SqlDbType.Text).Value = TextBox2.Text
        cmd.Parameters.Add("@CreateTime", SqlDbType.DateTime).Value = DateTime.Now
        cmd.Parameters.Add("@IP", SqlDbType.Char, 15).Value = Request.UserHostAddress.ToString()
        Try
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            Response.Write("<script>alert('" + ex.Message + "')</script>")
            Return
        Finally
            conn.Close()
        End Try
        Button2_Click(Nothing, Nothing)
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Session("admin") <> Nothing Then
            Response.Redirect("TopicAdmin.aspx")
        Else
            Response.Redirect("TopicList.aspx")
        End If
    End Sub
End Class

------解决方案--------------------
一步步,跟踪调试下看看了.
------解决方案--------------------
注意一下数据类型。
------解决方案--------------------
button1点击后是弹错误信息还是没反应??
button2点击后是否有效果

求帮忙!不知道咋回事，在回复网页中填完之后，点按钮之后没有反应，无法实现回复功能，以下是小弟我的代码

相关推荐