UC知道同一套程序调用两个数据库
来源：百度知道 编辑：UC知道 时间：2024/07/02 19:47:27
我是用一个通用ASP+ACCESS企业程序做两个企业网站。
其他的页面不修改，只修改调用数据库的页面。这里假设我的
www.aaa.com玉米下的conn.asp
<%
dim conn
dim connstr
dim db
db="data/aaa.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
现在我想让www.bbb.com也使用这个网站程序和相同数据库，只是内容不同。首先将www.bbb.com 也绑在这个虚拟主机上，然后修改这个conn.asp文件。
<%
dim conn
dim connstr
dim db
dim sss
sss= Request.ServerVariables("SERVER_NAME")
if sss="
其他的页面不修改，只修改调用数据库的页面。这里假设我的
www.aaa.com玉米下的conn.asp
<%
dim conn
dim connstr
dim db
db="data/aaa.mdb" '数据库文件的位置
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
现在我想让www.bbb.com也使用这个网站程序和相同数据库，只是内容不同。首先将www.bbb.com 也绑在这个虚拟主机上，然后修改这个conn.asp文件。
<%
dim conn
dim connstr
dim db
dim sss
sss= Request.ServerVariables("SERVER_NAME")
if sss="
首先，非常佩服你的想法！我也曾经用你说的第二种方式把多个网站绑在一个空间上，呵呵！
你所用的通过判断Request.ServerVariables("SERVER_NAME")来打开不同的数据库我刚在本地调试了一下，一切正常，没有出现你所说的慢的情况，我想你的服务器慢，应该不是因为调用两个库造成的，建议你单独测试一下每个库文件的速度。
另外，不知你上面的代码有一点点问题：
if sss="www.aaa.com" then
db = aaa
else
db = bbb
end if
db="data/"&db&".mdb"
这里的 db = aaa 应该写为 db = "aaa"才对吧！也可以直接把它写在if内：
if sss="www.aaa.com" then
db = "data/aaa.mdb"
else
db = "data/bbb.mdb"
end if
希望对你能有所帮助。
不知道
例行刷分。
~~~
好像有些类似于VB
......
这个方法我常用．对速度不会有影响．如果慢的话，只能说你的程序有问题．也可能是服务器有问题．最好每个rs完之后加上rs.close.所有rs完后加上set conn=nothing