ASP打开与关闭数据库连接

<% '打开数据库连接sub OpenDataBase(conn)  set conn = Server.CreateObject("adodb.connection")  connstr="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=userid;PWD=;Initial Catalog=database;Data Source=serverIp"  conn.open connstrend sub

'关闭数据库连接sub CloseDataBase(conn)   conn.close   set conn = nothing end sub%>