dim startime,endtime,conn,connstr,db
startime=timer()
connstr="driver={SQL Server};server=服务器地址;uid=s用户名;pwd=密码;database=数据库名"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%>