<%
'Application("myDSN") 定义在global.asa中。
Dim objConn
If NOT IsObject(objConn) Then
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open Application("myDSN")
End If
%>
closeconn.asp:
<%
If IsObject(ObjConn) Then
ObjConn.Close
Set ObjConn = Nothing
End If
%>