一个页面打开两个数据库的两个表的问题!高手来!
一个conn.asp连接了两个数据库,代码如下:<%dimconn,conn1dimconnstr,connstr1dimdb,db1db="data/A.mdb"Set...
一个conn.asp连接了两个数据库,代码如下:
<%
dim conn,conn1
dim connstr,connstr1
dim db,db1
db="data/A.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
''connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
db1="../data/B.mdb"
on error resume next
connstr1="DBQ="+server.mappath(""&db1&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
%>
然后在一个文件中打开两个表,代码如下:
<%
option explicit
Dim SqlItem,RsItem,UserID,rs,sql
response.buffer=true
%>
<!--#include file="conn.asp"-->
<%
if request("jobid")="" then response.end
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from Article where ArticleID=" & request("jobid")
RsItem.open SqlItem,Conn,1,1
UserID=session("UserID")
Set Rs=server.createobject("adodb.recordset")
Sql="select * from User where ID=19"
Rs.open Sql,Conn1,1,1
%>
下面显示的表User的信息怎么没效果呢?
我是这样显示的:<%=UserName%> 展开
<%
dim conn,conn1
dim connstr,connstr1
dim db,db1
db="data/A.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
''connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
db1="../data/B.mdb"
on error resume next
connstr1="DBQ="+server.mappath(""&db1&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
%>
然后在一个文件中打开两个表,代码如下:
<%
option explicit
Dim SqlItem,RsItem,UserID,rs,sql
response.buffer=true
%>
<!--#include file="conn.asp"-->
<%
if request("jobid")="" then response.end
Set RsItem=server.createobject("adodb.recordset")
SqlItem="select * from Article where ArticleID=" & request("jobid")
RsItem.open SqlItem,Conn,1,1
UserID=session("UserID")
Set Rs=server.createobject("adodb.recordset")
Sql="select * from User where ID=19"
Rs.open Sql,Conn1,1,1
%>
下面显示的表User的信息怎么没效果呢?
我是这样显示的:<%=UserName%> 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询