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 
&

#38
 
"
DBQ=e:\yanhang\database.mdb"
 

conn.Open 
Strconn
%>


用实际的数据库相对路径连接：

<
%
Set 
conn 
= 
Server.CreateObject("
ADODB.Connection"
)
Strconn="
DRIVER=
{Microsoft 
Access 
Driver 
(*.mdb)}
 
"

Strconn=Strconn 
&

#38
 
"
DBQ="
 
&

#38
 
Server.MapPath("
/database/yanhang.mdb"
)
conn.Open 
Strconn
%>

或
<
%
db="
data.mdb"

set 
conn=server.CreateObject("
adodb.connection"
)
connstr="
Provider=Microsoft.Jet.OLEDB.4.0
Data 
Source="
 
&

#38
 
Server.MapPath(db)
conn.open 
connstr
%>



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
U
ID=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
%>


ASP与mysql连接

<
%
DIM 
CONN,MYSQL
SET 
CONN 
= 
SERVER.CREATEOBJECT("
ADODB.CONNECTION"
)
MYSQL="
DRIVER=
{MYSQL 
ODBC 
3.51 
DRIVER}
DATABASE=jxgl

SERVER=localhost
UID=root
PASSWORD=
"

CONN.OPEN 
MYSQL
%>