Dim DBUserID,DBPassWord,DBName,DBIP '修改以下信息以适合你的网站 DBUserID="sa" '数据库登陆名 DBPassWord="" '数据库密码 DBName="dbname" '数据库名称 DBIP="local" '数据库所在地址,如果是本地数据库则为:(local)
Set Conn=Server.CreateObject("Adodb.Connection") StrConn = "PROVIDER=SQLOLEDB.1;Data Source="&DBIP&";Initial Catalog="&DBName&";Persist Security Info=True;User ID="&DBUserID&";Password="&DBPassWord&";Connect Timeout=30" Conn.Open StrConn |