Dim Cnn,StrCnn
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password='密码';DataBase='数据库名';Data Source='服务器名或地址';Connect Timeout=100"
Cnn.Open StrCnnsub closedatabase
cnn.close
set cnn=nothing
end sub