UC知道急！急！急！数据库连接方法改！在线等
来源：百度知道 编辑：UC知道 时间：2024/05/12 04:53:56
怎么把下面的用数据源连接的！改成直接连接数据库 db1.mdb的！
<%
If IsObject(Session("db1_conn")) Then
Set conn = Session("db1_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "db1","",""
Set Session("db1_conn") = conn
End If
%>
<%
If IsObject(Session("Content_rs")) Then
Set rs = Session("Content_rs")
Else
sql = "SELECT * FROM [Content]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Content_rs") = rs
End If
%>
给出源码！（分不够可以加）
<%
If IsObject(Session("db1_conn")) Then
Set conn = Session("db1_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "db1","",""
Set Session("db1_conn") = conn
End If
%>
<%
If IsObject(Session("Content_rs")) Then
Set rs = Session("Content_rs")
Else
sql = "SELECT * FROM [Content]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("Content_rs") = rs
End If
%>
给出源码！（分不够可以加）
<%
Dim strConnect
strConnect = "DBQ="+Server.MapPath("/")+"\AJAX\LYB.mdb;DRIVER={Microsoft Access Driver (*.mdb)};" ' Access
'strConnect = "provider=sqloledb;data source=192.168.1.16;User ID=sa;pwd=sa;Initial Catalog=LYB" ' Sql server
On Error Resume Next
Set Conn = Server.CreateObject("ADODB.Connection")
If Error.Number = 0 Then
Conn.open strConnect
Else
Response.Write Error.DescripTion
Response.End
End If
sql = "SELECT * FROM [Content]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 3, 3
………………………………
%>