dbconn.inc.bak

来自「达内课件」· BAK 代码 · 共 20 行

<%
'定义数据库连接对象   
dim conn   
'定义数据库连接字符串
dim connstr

   on error resume next
   'connstr = "DSN=job;UID=sa;PWD=sa7899;"
   connstr ="PROVIDER=SQLOLEDB;DATA SOURCE=localhost;UID=sa;PWD=sa7899;DATABASE=job" 
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>