dbopen.asp

来自「东滕网站源码」· ASP 代码 · 共 15 行

 <%
  dim conn,connstr,database

  database=3         '设置使用的数据库类型,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
%>