Set Cnn=Server.CreateObject("ADODB.Connection")
Cnn.Open "Driver={Microsoft Access Driver (*.mdb);Dbq=Access数据库路径"
Set Application("glbCnn")=Cnn
End Sub
在ASP文件中读出glbCnn
<%
Dim cnn
Set cnn=Server.CreateObject("ADODB.Connection")
set cnn=Application("glbCnn")