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 connstr
end sub

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