把这段代码放在后台编码里面
Sub Page_Load
  Dim conPubs As SqlConnection
  Dim cmdSelect As SqlCommand
  Dim dtrTitles As SqlDataReader  conPubs = New SqlConnection( "Server=localhost;UID=sa;PWD=secret;Database=Pubs" )
  cmdSelect = New SqlCommand( "Select Title From Titles", conPubs )
  conPubs.Open()
  dtrTitles = cmdSelect.ExecuteReader()  dlstTitles.DataSource = dtrTitles
  dlstTitles.DataBind()  dtrTitles.Close()
  conPubs.Close()
End Sub
就可以了