<%
  dim conn,connstr,database

  database=3         '設(shè)置使用的數(shù)據(jù)庫(kù)類型,1=SQL SERVER,其他為ACCESS

  if database=1 then
      connstr="driver={SQL Server};server=(local);database=BVNews;uid=sa;pwd=1;"
  else
      connstr="DBQ="+server.mappath("../school.asa")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
  end if

  set conn=server.CreateObject("adodb.connection")
  conn.open connstr
%>