各种数据库连接代码

　　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
　　%>