<%
'打开数据库连接
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
%>