Dim connectionString As String = ConfigurationManager.ConnectionStrings("HMZXConnectionString").ConnectionString
Dim cnHMZX As New SqlConnection(connectionString)
Dim command As New SqlCommand("News_Top10", cnHMZX)
command.CommandType = CommandType.StoredProcedure
Dim oDR As SqlDataReader
cnHMZX.Open()
oDR = command.ExecuteReader()
dtlNews.DataSource = oDR
dtlNews.DataBind()
oDR.Close()
cnHMZX.Close()
cnHMZX.Dispose()