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
%>