首先在你的config.web 文件中创建以下参数：<appsettings><add key="gConn" value="server=local;uid=sa;pwd=secret;database=pubs" /></appsettings>接着建立dbConn.vb 文件。Imports SystemImports System.WebImports System.CollectionsNamespace WebDBPublic Class WebDBconn Shared m_ConnectionString As StringShared ReadOnly Property ConnectionString As String Get If m_ConnectionString = "" ThenDim appsetting As Hashtable = CType(HttpContext.Current.GetConfig("appsettings"), Hashtable)''''使用 config.web 中设立好的连接字符串m_ConnectionString = CStr(appsetting("DBConnString"))If m_ConnectionString = "" Thenthrow new Exception("Dtabase Connection Value not set in Config.web")End ifEnd If'''' 返回连接字符串return m_connectionStringEnd GetEnd PropertyEnd ClassEnd Namespace''''下面编译dll文件：创建一个批处理文件, 命名为 MakeDll.bat ，存放在dbConn.vb 相同的目录，其中的内容如下set odir=dbConn.dllset assemblies=System.Web.dllvbc /t:library /out:%odir% /r:%assemblies% dbConn.vb执行批处理文件, 将 dbconn.dll 拷贝到你的WEB 目录的 BIN 目录下并创建如下的.aspx 文件:<%@ Page Description="ASP+ document" EnableSessionState="false" MaintainState="false" %><%@ Import Namespace="WebDB" %><script language="VB" runat="server">Sub Page_Load(sender As Object, e As EventArgs)response.write(WebDBconn.ConnectionString)End Sub</script><html><head><title></title></head><body></body></html>
Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长：MinTao ICP备案号：鄂ICP备11006601号-18
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
