用dll封装数据库，只要懂的人都进来帮我看看！

Question

一个用于数据库连接的页面
lj.asp
<%
   dim strConnString
   set lj = Server.CreateObject("ADODB.Connection")
   strConnString = "DRIVER={SQL Server};server=bluenight;uid=sa;pwd=123;database=2002"
   lj.Open strConnString
%>
现在我想把它用VB封装成dll然后再在asp中调用它。即一个完整的asp网站。我想把连接数据库这一步份封装进dll。然后再在lj.asp页面中调用组件生成一个新的lj.asp页面。但网站的其他页面不用做任何改动。只需lj.asp改动一下。其他页面连接数据库时只需<!--#include file="lj.asp" -->，然后即可执行类似 set xh=lj.execute("select * from xh") 的语句。我是一个asp新手，不知如何下手，请高手指点。参考了这边文章 http://www.csdn.net/develop/read_article.asp?id=19379 和我的要求很相似，但还是有点区别，我只要连接，不要Recordset。不知我表达的是否清楚？

Answer 1

http://www.csdn.net/develop/Read_Article.asp?Id=19214

Answer 2

online(龙卷风V2.0--再战江湖)
谢谢，这正是我要的。我试试先！

Answer 3

我在lj.asp中写成这样还是出错了
<%
        set WConnection=server.CreateObject("WADODB.WConnection")
   
        oconn=WConnection.datasource() 
          
        application("strconn")=oconn 

set lj = Server.CreateObject("ADODB.Connection") 

        lj.Open application("strconn") %>
提示   lj.Open application("strconn")  出错
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

Answer 4

set WConnection=server.CreateObject("WADODB.WConnection")
oconn=WConnection.datasource() 
set lj = Server.CreateObject("ADODB.Connection") 
lj.Open oconn

Answer 5

online(龙卷风V2.0--再战江湖) 牛啊。
一个字好！

Answer 6

online(龙卷风V2.0--再战江湖) 
的水平真的高，（真高假高我也分不清，反正比我是高多了）