2conn.asp

来自「物品借用管理程序」· ASP 代码 · 共 19 行

<%
   dim conn   
   dim connstr

   on error resume next
   connstr="Driver={SYBASE SYSTEM 11};Srvr=myServerName;Uid=myUsername;Pwd=myPassword;"
   set conn=server.createobject("ADODB.CONNECTION")
   if err then 
      err.clear
   else
        conn.open connstr 
        if err then 
           err.clear
        end if
   end if
%>