opendb.asp

网易论坛 发表新贴子

<%
  
  set my_conn= Server.CreateObject("ADODB.Connection")
 
  my_conn.ConnectionTimeout=20
  
  my_conn.ConnectionString="Provider=SQLOLEDB.1;Persist Security Info=true;User ID=sa;password=;Initial Catalog=asptest;Data Source=(local)" 
  
  my_conn.open
 
  if my_conn.State=1 then
    
    set rst = Server.CreateObject("ADODB.Recordset")
    
    rst.ActiveConnection=my_conn
  end if      
%>