Sub OpenDb
Dim dbuid,dbpwd,dBName,dbip
dbuid="sa"
dbpwd="sa"
dBName="hospital" '数据库名称
dbip="(local)" '数据库所在地址,如果是本地数据库则为:(local)
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dBName&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
Set Rs=Server.CreateObject("ADODB.RecordSet")
End Sub
Dim dbuid,dbpwd,dBName,dbip
dbuid="sa"
dbpwd="sa"
dBName="hospital" '数据库名称
dbip="(local)" '数据库所在地址,如果是本地数据库则为:(local)
Set Conn=Server.CreateObject("Adodb.Connection")
Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dBName&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
Set Rs=Server.CreateObject("ADODB.RecordSet")
End Sub