如何在ASP文件中添加生成Connection对象实例的代码

在Global.asa中:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
Application("StrConn")="PROVIDER=SQLOLEDB;DRIVER={SQL Server};SERVER=(Local);DATABASE=XX;UID=XX;PWD=XX;"
Application("AllowAdds") = "NO"
Application("NumAttempts") = 3
session.timeout=60
End Sub
</SCRIPT>

在conn.inc中
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open Application("StrConn")
'session.timeout=20
%>

在其它文件中引用
<%@ Language=VBScript %>
<!--#include file="inc/conn.inc"-->
--
set rs= conn.Execute("select * from [User] where Status='Normal') and " & "usercode = '" _
& UCosw & "' and " & "Upwd = '" & UPWD & "'")

....