www.gusucode.com > asp+SQLServer网上书店系统设计(源代码+论文) > asp+SQLServer网上书店系统设计(源代码+论文)\网上书店asp+SQLServer\网上书店\conn.asp

    <%
dim cn    '定义数据库链接对象
dim cnstr  '定义数据库链接字符串
     on error resume next
      set cn=Server.CreateObject("ADODB.Connection")
      cnstr="DRIVER=SQL Server;server=localhost; uid=stam;pwd=166295;database=netbook;"
      if err then 
         err.clear
      else
         cn.Open cnstr
           if err then
              err.clear
           end if
      end if
%>