UC知道asp中连接数据库查询的一个问题
来源：百度知道 编辑：UC知道 时间：2024/05/06 01:02:37
<%
Set c1 = Server.CreateObject("ADODB.Connection")
P1 = "Provider=Microsoft.Jet.OLEDB.4.0; "
Path = "Data Source=" & Server.MapPath("db.mdb")
c1.Open p1 & Pathzzdb.Open "select * from db where id="&session("id")&"","bt",c2,3,3
%>
错误提示为
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/zj/twcheck.asp, 第 20 行
第20行为
c1.Open p1 & Pathzzdb.Open "select * from db where id="&session("id")&"","bt",c2,3,3
对于回复，不胜感激。谢谢
Set c1 = Server.CreateObject("ADODB.Connection")
P1 = "Provider=Microsoft.Jet.OLEDB.4.0; "
Path = "Data Source=" & Server.MapPath("db.mdb")
c1.Open p1 & Pathzzdb.Open "select * from db where id="&session("id")&"","bt",c2,3,3
%>
错误提示为
错误类型：
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/zj/twcheck.asp, 第 20 行
第20行为
c1.Open p1 & Pathzzdb.Open "select * from db where id="&session("id")&"","bt",c2,3,3
对于回复，不胜感激。谢谢
你的写得太乱,数据库连接的文件如下,参考下
<%
const DBfolder="/"
Db = DBfolder&"data/db1.mdb"
Dim ConnStr
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
Response.Write "数据库连接出错，请检查连接字串。"&err.description&ConnStr '
err.Clear
Set Conn = Nothing
Response.End
End If
%>
接你的代码:
<%Set c1 = Server.CreateObject("ADODB.Connection")
c1.open ""select * from db where id="&Cint(session("id")),conn,1,1
%>
select * from * where id="&id
conn,1,1