L="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关！
//第三种写法：
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
我们常用的sqlserver与access都可以用的函数
复制代码 代码如下:
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/data/news.mdb" //mdb数据库路径
Else
''如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "jb51" ''数据库服务器IP
DataUser = "jb51" ''访问数据库用户名
DataBaseName = "jb51" ''数据库名称
DataBasePsw = "www.jb51.net" ''访问数据库密码
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
%>
连接MSSQL代码(附加判断代码)：
复制代码 代码如下:
<%
dim cn
set cn=server.createobject("adodb.connection")
cn.connectionstring="driver={SQL server};server=taihang;datebase=taihang;uid=sa;pwd=hacker"
cn.open
If cn.state=1 Then
response.write"数据库连接对象已打开"
Else
response.write"数据库连接对象未打开"
end If
cn.close
Set cn=nothing
%>
连接Access常用方法：
复制代码 代码如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") ''//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") ''//数据库路径字符串
connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDataPath ''//数据库连接
conn.open connStr
也可以用：
复制代码 代码如下:
Dim conn,strDataPath,connStr
set conn=server.createobject("ADODB.connection") ''//定义数据库连接对象
strDataPath=server.MapPath("example.mdb") ''//数据库路径字符串
connStr="driver={Microsoft Access Driver (*.mdb)};dbq=" & strDataPath ''//数据库连接
conn.Open connStr
注解：
因为我们想打开的是Access(.mdb)数据库，所以我们要透过Access的ODBC驱动程序{Microsoft Access Driver (*.mdb)}来存取数据库，dbp参数则是用来指定想打开的数据库文件，因为它必须是完整路径名称，所以我们上一语句用了Server.MapPath 函数 。
上面常用方法中一般为简洁起见也可一用下面一句
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"
水寒意见>>
一般直接使用 Microsoft.Jet.OLEDB.4.0 一层接口:
adoConnection.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/") & "xxx.mdb"
避免使用 Microsoft OLEDB Provider for ODBC Drivers + Microsoft Access Driver (*.mdb)(Access 的 ODBC Driver)两层接口:
adoConnection.open "PROVIDER=MSDASQL.1;Driver=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath
