connect.asp

来自「1.多种查询方式」· ASP 代码 · 共 34 行

<%  
  dim conn
  dim connstr
  set conn=server.createobject("ADODB.CONNECTION")
Db = "../db.mdb"	'数据库路径
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
Conn.open ConnStr
'conn.Open " provider=sqloledb;data source=nec;initial catalog=mir_test;user id=sa;password=;"
'conn.open "Driver={SQL Server};SERVER=5c2k12ss;UID=sa;PWD=19830315ld;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
  %>