conn.asp

来自「在线图书馆系统 包括VB程序设计的后台与ASP的网页」· ASP 代码 · 共 13 行

<!--conn.asp -->

<%
  '打开连接
  Dim Conn
  Set Conn=Server.CreateObject("ADODB.Connection")
  Dim ConnectionString
  ConnectionString="DSN=DLA;database=DigitalLibrary;uid=DLUser;pwd=;"
  Conn.ConnectionTimeout=15:  Conn.CommandTimeout=30
  Conn.Open ConnectionString
  Dim rs 
  Set rs=server.createobject("ADODB.Recordset")
%>