VBScript鏈接數據庫

 1 'access類型
 2 dim strconn,objconn
 3 strconn="driver=microsoft access driver(*.mdb);dbq=" _
 4   & Server.MapPath("db.mdb")
 5 set objconn=Server.CreateObject("ADODB.Connection")
 6 objconn.open strconn
 7 'sql類型
 8 strconn="driver={sql server};descript=sqldemo;server=127.0.0.0;" _
 9   & "uid=loginid;password=;database=databasename"
10 set objconn=server.createobject("adodb.connection")
11 objconn.open strconn