【www.gdgbn.com--WebService】

web.config中的文件如下：


 
      


。。。。。。。。。
 

访问如下：
 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     "在此处放置初始化页的用户代码
     If Not IsPostBack Then
         Dim str As String = ConfigurationSettings.AppSettings("constring")
         Dim con As New SqlClient.SqlConnection(str)
         da.SelectCommand.Connection = con
         da.Fill(daset, "课程信息")
         dagrid.DataSource = daset.Tables("课程信息")
         dagrid.DataBind()
     End If
      End Sub

本文来源：http://www.gdgbn.com/asp/8207/