2conn.asp

来自「图书管理系统,读者可以实现对图书的浏览,查询等功能.管理员能够实现图书的添加,更」· ASP 代码 · 共 22 行

<%
   dim conn   
   dim connstr

   on error resume next
   Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=SQLOLEDB;Data Source=work;Initial Catalog=tsg;User ID=sa;Password=yanyan;" 
conn.Open connstr

   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>