各种数据库连接代码
今天呆着没事干，把各种数据库的连接总结了一下，现拿出来与大家分享：
MS Access数据库连接
用DSN连接并且没有用户名和密码：
<%
set conn = Server.CreateObject(ADODB.Connection)
conn.open YourDSNName
%>
用DSN连接并且有用户名和密码：
<%
set conn = Server.CreateObject(ADODB.Connection)
conn.open YourDSNName,username,password
%>
用实际的数据库绝对路径连接：
<%
Set conn = Server.CreateObject(ADODB.Connection)
Strconn=DRIVER={Microsoft Access Driver (*.mdb)};
Strconn=Strconn & DBQ=e:/yanhang/database.mdb
conn.Open Strconn
%>
用实际的数据库相对路径连接：
<%
Set conn = Server.CreateObject(ADODB.Connection)
Strconn=DRIVER={Microsoft Access Driver (*.mdb)};
Strconn=Strconn & DBQ= & Server.MapPath(/database/yanhang.mdb)
conn.Open Strconn
%>
MS SQL Server数据库连接
用DSN连接：
<%
set conn = Server.CreateObject(ADODB.Connection)
conn.open DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename
%>
不用DSN连接：
<%
Set conn = Server.CreateObject(ADODB.Connection)
DSNtemp=DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename
conn.open DSNtemp
%>
FoxPro数据库连接
<%
Set Conn = Server.CreateObject(ADODB.connection)
ConnStr= Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:/yanhang/database.dbc
Conn.Open ConnStr
%>
Oracle数据库连接：
<%
set conn=server.createobject(adodb.connection)
conn.cursorlocation=adUseClient
DSNTemp=Provider=MSDAORA.1;Password=xxxxx;User ID=yanhang;Data Source=xxx.world
conn.open DSNtemp
%>