怎么调试才能知道变量有没有取到值呢？

zhouji700

那你这个theTitle 总有定义和赋值吧，在那个赋值的地方设断点

板砖飞校长

我是定义在<script></script>中的：

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">

  <script  Runat="Server">
      Dim theTitle As String
      Dim theContent As String
      Dim theAuthor As String
      Dim theCopyFrom As String
      Dim theAddTime As String
      Sub page_load(ByVal Sender As Object, ByVal E As EventArgs)
         

          Dim Cnn As SqlConnection
          Dim Cmd As SqlCommand
          Dim DataR As SqlDataReader
          Dim StrCnn As String
         
          Dim codestr As String = Request.QueryString("id")
          Dim sql As String
          If Trim(codestr) <> "" Then
              StrCnn = "server=localhost;uid=as;pwd=;database=myweb"
              Cnn = New SqlConnection(StrCnn)
              Cnn.Open()
              sql = "select * from book_info where id=" & Trim(codestr)
              Cmd = New SqlCommand(sql, Cnn)
              DataR = Cmd.ExecuteReader
              If DataR.Read() Then
                  theTitle = DataR("title")
                  theContent = DataR("content")
                  theAuthor = DataR("author")
                  theCopyFrom = DataR("copyfrom")
                  theAddTime = DataR("addtime")
              Else
                  Cnn.Close()
                  Response.Write("<font color='gray'>请选择文章！</font>")
                  Response.End()
              End If
              Cnn.Close()
          End If
      End Sub
</script>
----
我设了断点，但没有执行page_load，这是为什么？

zhouji700

改成下面这样试试 ：

If Trim(codestr) <> "" Then
    StrCnn = "server=localhost;uid=as;pwd=;database=myweb"
    Cnn = New SqlConnection(StrCnn)
    Cnn.Open()
    sql = "select * from book_info where id=" & Trim(codestr)
    Cmd = New SqlCommand(sql, Cnn)
    DataR = Cmd.ExecuteReader
    If DataR.Read() Then
        theTitle = DataR("title")
  Response.Write("theTitle设置了值")
  Response.End()  
        theContent = DataR("content")
        theAuthor = DataR("author")
        theCopyFrom = DataR("copyfrom")
        theAddTime = DataR("addtime")
    Else
  Response.Write("theTitle没有设置值")
  Response.End()  
        Cnn.Close()
        Response.Write("<font color='gray'>请选择文章！</font>")
        Response.End()
    End If
    Cnn.Close()
Else
  Response.Write("theTitle没有设置值")
  Response.End()  
End If