opendb.asp

来自「网络程序-学生课表生成系统。运用了模块化思想组织代码」· ASP 代码 · 共 11 行

<%
   set my_conn= Server.CreateObject("ADODB.Connection")'创建一个Connection对象，并设定由对象变量my_conn引用
   my_conn.ConnectionTimeout=20  '设置连接超时为20秒
   set my_conn=server.createobject("adodb.connection") '设置OLE DB连接方法的连接字符串
   my_conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../database/databases.mdb")
  
  if my_conn.State=1 then'State的值为1，表示数据库已打开 
    set rst = Server.CreateObject("ADODB.Recordset") '创建一个Recordset对象，并设定由rst对象变量引用
    rst.ActiveConnection=my_conn'设置Recordset对象变量rst与Connect对象变量my_conn相关联
  end if      
%>