dbopen.asp

东滕网站源码

 <%
  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

%>