<%
  dim conn,connstr,database

  database=0         '設置使用的數據庫類型,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

%>