设为首页收藏本站
开启辅助访问 切换到宽版

新微赢技术网

 找回密码
 注册
快捷导航
搜索
热搜: 回贴
新微赢技术网»论坛 › 学习网 知识堂 › WEB开发 › ASP › [求助]一个网页连接两个数据库的问题？急！在线等回复
返回列表 发新帖
查看: 127|回复: 9
打印 上一主题 下一主题

[求助]一个网页连接两个数据库的问题？急！在线等回复

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-13 07:29:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
　楼主
<!--#include file="New/Function.asp"-->
<!--#include file="New/Conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%= SelectDBName("WebTitle","SystemSet","[id]",1) %></title>
<link href="New/Css.css" rel="stylesheet" type="text/css">
</head>

<body leftmargin="0" topmargin="0">
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td colspan="2"><!--#include file="New/Top.asp" --></td>
</tr>
<tr>
<td width="220" valign="top"><!--#include file="New/Left.asp" --></td>
<td width="540" valign="top" bgcolor="#FFFFFF" class="Td-1">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%Set Rs=Conn.Execute("Select * from [reColumn] Where id="&Trim(Request.QueryString("id")))%>
<tr>
<td height="30" align="center" background="New/Img/columnTitle.gif"><strong><font color="#FFFFFF">
<%=Rs("Title")%></font></strong></td>
</tr>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="15">
<tr>
<td><%=Rs("Message")%></td>
</tr>
</table></td>
</tr>
<%Set Rs=Nothing%>
<tr>
<td align="center">
<table width="90%" border="0" cellspacing="0" cellpadding="3">
<%
Set Rs=Conn.Execute("Select * From reColumn Where fID="&Trim(Request.QueryString("id")))
Do While Not Rs.Eof
Set Rs1=Conn.Execute("Select * From reProgram Where cID="&Rs("ID"))
Do While Not Rs1.Eof
%>
<tr>
<td>[<%=Rs("Title")%>]<a href="New/reProgram.asp?id=<%=Rs1("ID")%>"><%=Rs1("Title")%></a></td>
</tr>
<%
Rs1.moveNext
Loop
Set Rs1=Nothing
Rs.moveNext
Loop
Set Rs=Nothing
%>
</table>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2"><!--#include file="New/Bottom.asp"--></td>
</tr>
</table>
</body>
</html>
以上是我的原程序
运行也没错误
现在我要把<!--#include file="New/Top.asp" -->
改为<!--#include file="include/Top.asp" -->
而inculde/top.asp是调用的data下的数据库
连接这个数据库的inculde/conn.asp
<%
dim stime,typess
stime=timer()
typess=1
dim conn
dim connst
on error resume next
connst="DBQ="+server.mappath("data/!#%&@$^.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connst

if session("cffilmuser")="" then
if Request.cookies("gl")("cffilmuser")<>"" then
cffilmuser=Request.cookies("gl")("cffilmuser")
session("cffilmuser")=cffilmuser
end if
if Request.cookies("gl")("cffilmusergrade")<>"" then
cffilmusergrade=Request.cookies("gl")("cffilmusergrade")
session("cffilmusergrade")=cffilmusergrade
end if
name=session("cffilmuser")
else
name=session("cffilmuser")
end if

if session("cffilmadmin")="" then
if Request.cookies("cffilmadmin")<>"" then
cffilmadmin=Request.cookies("cffilmadmin")
session("cffilmadmin")=cffilmadmin
end if
end if

webtitle="东山广播电视网"
%>
而原来那个连接的数据库是远程的
连接数据库的new/conn.asp是
<%
Response.Buffer=True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
'on error resume next

dataBaseType=2'数据库类型：1为Acc，2为Sql
Dim ConnStr
If dataBaseType = 2 Then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "dstvdata"
SqlPassword = "11111111"
SqlUsername = "dstvdata"
SqlLocalName = "202.109.237.42"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Else
Connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
End IF
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.open ConnStr
Response.Write SqlLocalName
%>
怎么改啊
回复

使用道具 举报

2#
发表于 2010-1-13 07:29:48 | 只看该作者
Set Conn=server.createobject("ADODB.CONNECTION")
Set Conn1=server.createobject("ADODB.CONNECTION")
回复 支持 反对

使用道具 举报

3#
发表于 2010-1-13 07:29:52 | 只看该作者
能不能写详细点啊
怎么里面没我要的那两个数据库名称啊
connst="DBQ="+server.mappath("data/!#%&@$^.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
回复 支持 反对

使用道具 举报

4#
发表于 2010-1-13 07:29:55 | 只看该作者
Set Conn=server.createobject("ADODB.CONNECTION")
Set Conn1=server.createobject("ADODB.CONNECTION")

Connst="DBQ="+server.mappath("data/!#%&@$^.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.open ConnStr

Connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Conn1.open ConnStr
回复 支持 反对

使用道具 举报

5#
发表于 2010-1-13 07:29:59 | 只看该作者
现在我把include/conn.asp写成
<%
dim stime,typess
stime=timer()
typess=1
dim conn
dim connst
on error resume next
connstr="DBQ="+server.mappath("data/!#%&@$^.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr

if session("cffilmuser")="" then
if Request.cookies("gl")("cffilmuser")<>"" then
cffilmuser=Request.cookies("gl")("cffilmuser")
session("cffilmuser")=cffilmuser
end if
if Request.cookies("gl")("cffilmusergrade")<>"" then
cffilmusergrade=Request.cookies("gl")("cffilmusergrade")
session("cffilmusergrade")=cffilmusergrade
end if
name=session("cffilmuser")
else
name=session("cffilmuser")
end if
if session("cffilmadmin")="" then
if Request.cookies("cffilmadmin")<>"" then
cffilmadmin=Request.cookies("cffilmadmin")
session("cffilmadmin")=cffilmadmin
end if
end if
webtitle="东山广播电视网"
%>
就是把connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr
加进去了
然后把<!--#include file="New/Top.asp" -->改为
<!--#include file="include/Top.asp" -->
回复 支持 反对

使用道具 举报

6#
发表于 2010-1-13 07:30:03 | 只看该作者
运行出现该页无法显示啊
回复 支持 反对

使用道具 举报

林枫
7#
发表于 2010-1-13 07:30:07 | 只看该作者
你看看错误信息
回复 支持 反对

使用道具 举报

8#
发表于 2010-1-13 07:30:10 | 只看该作者
回复 支持 反对

使用道具 举报

9#
发表于 2010-1-13 07:30:14 | 只看该作者
<%
dim stime,typess
stime=timer()
typess=1
dim conn ,conn1
dim connst,connstr
on error resume next
connst="DBQ="+server.mappath("data/!#%&@$^.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connst
connstr="DBQ="+server.mappath("./MyDataBase/#My#Data#Base#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr
回复 支持 反对

使用道具 举报

10#
发表于 2010-1-13 07:30:18 | 只看该作者
错误信息是什么
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-18 21:27 , Processed in 0.122732 second(s), 8 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表