16,721
社区成员




Protected Function SmallSlideTitle(Name As String) As String
Dim sqlConn As SqlConnection
Dim sqlCommSmallSlideTitle As SqlCommand
Dim reader As SqlDataReader
Dim strConn As String = ConfigurationManager.ConnectionStrings("myDB").ConnectionString
sqlConn = New SqlConnection(strConn)
sqlCommSmallSlideTitle = New SqlCommand("SELECT Detail FROM HomePage WHERE Name=" & Name & "", sqlConn)
Try
sqlConn.Open()
reader = sqlCommSmallSlideTitle.ExecuteReader
If reader.Read() Then
SmallSlideTitle = reader.Item("Detail").ToString
End If
reader.Close()
Finally
sqlConn.Close()
End Try
End Function
<a href="" ><br /><br /><%=SmallSlideTitle("SSlide1Title")%></a>