connect.asp

物流管理系统

<%  
  dim conn
  dim connstr
  set conn=server.createobject("ADODB.CONNECTION")
 'connstr = "DBQ=" + server.mappath("../../database/topsky.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"       
'conn.Open " provider=sqloledb;data source=nec;initial catalog=mir_test;user id=sa;password=;"
conn.open "Driver={SQL Server};SERVER=HUSERVER;UID=sa;PWD=abc123;DATABASE=mir" 
    

       if err.number<>0 then 
           err.clear
           conn.close
           set conn=nothing
		   response.write "数据库连接出错！"
		   Response.End
       else
           if err then 
              err.clear
              conn.close
              set conn=nothing
			   response.write "数据库连接出错！"
              Response.End 
           end if
       end if 


'关闭数据库连接    
function CloseDatabase
	Conn.close
	Set conn = Nothing
End Function
  %>