Access link
<% Option Explicit Dim Startime, EndTime, Conn, Connstr, DB Startime = TIMER () 'Change Database Name DB = "DATA / DVBBS5.MDB" set conn = server.createObject ("AdoDb.Connection" ConnStr = "provider = Microsoft.jet.Oledb.4.0; data source = "& server.mappath (db) 'If your server uses an older version of Access driver, use the following connection method' connStr =" driver = {Microsoft Access Driver (* .mdb )}; dbq = "& server.mappath (db) conn.open conn.close set conn = Nothing end function%>
MSSQ link
<% Option explicit dim startime, endtime, conn, connstr, db startime = timer () connstr = "driver = {SQL Server}; server = HUDENQ-N11T33NB; uid = sa; pwd = xsfeihu; database = dvbbs" Set conn = Server.createObject ("AdoDb.Connection" Conn.open ConnTr Function CloseDatabase Conn.close Set Conn = Nothing End Function%>