ASP中各种数据库连接代码

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

%>