请求解释

Question

各位大哥能不能帮小弟解释一下,下面的程序呀
Private Sub ConnectSSL()
            Dim clsAppSetting As New AppSetting            If Not clsAppSetting.IsSSLRedirect Then
                Exit Sub
            End If            If Not Request.IsSecureConnection Then
                Response.Redirect(参照URL.Replace("http://", "https://"))
            End If
        End Sub
Public ReadOnly Property IsSSLRedirect() As Boolean
        Get
            Dim objDs As New DataSet
            Try
                Data_Get("AppSetting.xml", objDs)
                Dim value As String = objDs.Tables("AppSetting").Rows(0).Item("IsSSLRedirect")
                If value.ToLower.Trim = "true" Then
                    Return True
                Else
                    Return False
                End If
            Catch ex As Exception
                Return False
            Finally
                objDs.Dispose()
            End Try
        End Get    End Property

Answer 1

 Request.IsSecureConnection 获取一个值,该值指示 HTTP 连接是否使用安全套接字

Answer 2

那Dim value As String = objDs.Tables("AppSetting").Rows(0).Item("IsSSLRedirect")这句有是什么意思

Answer 3

把DIM的Value转成String把表中的行的值给他

Answer 4

把数据集中的第一行的IsSSLRedirect列的值赋给VALUE