conn.asp

仓库管理系统

<%
   dim conn,str  
   on error resume next
   str="PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=sa;PWD=sa;DATABASE=kucun"
   set conn=server.createobject("ADODB.CONNECTION")
   Set rs = Server.CreateObject("ADODB.Recordset")
   Set rs2 = Server.CreateObject("ADODB.Recordset")
   Set rs3 = Server.CreateObject("ADODB.Recordset")
   if err then 
      err.clear
	  response.Write("数据库连接错误！")
   else
        conn.open str 
        if err then 
           err.clear
		   response.Write("数据库打开错误！")
        end if
   end if
%>