只需要引用ado2.5及以上 就可以了
function white
dim conn as new adodb.connection
connstr="Provider=SQLOLEDB.1;Password=;User ID=sa;Initial Catalog=website;Data Source=white"
conn.open connstr
set white=conn
end function
在VB中输入:
Private ScriptingContext As ScriptingContext
Private Application As Application
Private Request As Request
Private Response As Response
Private Server As Server
Private Session As Session
Public Sub OnStartPage(PassedScriptingContext As ScriptingContext)
Set ScriptingContext = PassedScriptingContext
Set Application = ScriptingContext.Application
Set Request = ScriptingContext.Request
Set Response = ScriptingContext.Response
Set Server = ScriptingContext.Server
Set Session = ScriptingContext.Session
End Sub
Public Sub OnEndPage()
Set ScriptingContext = Nothing
Set Application = Nothing
Set Request = Nothing
Set Response = Nothing
Set Server = Nothing
Set Session = Nothing
End Sub
Public Function OAopen()
OAopen = "Provider=SQLOLEDB.1;Password=;User ID=sa;Initial Catalog=hawk_office;Data Source=server"
End Function
编译成connection.dll
然后在ASP文件中调用,内容如下:
<%
function opendb(DBPath,sessionname,dbsort)
Set conn=Server.CreateObject("ADODB.Connection")
Set Obj = Server.CreateObject("OAOFFICE.connection")
conn.Open(Obj.OAopen)
set session(sessionname)=conn
set opendb=session(sessionname)
end function
%>