UC知道在整合中由于两个数据库的连结文件都为conn.asp如何合为一个文件?
来源：百度知道 编辑：UC知道 时间：2024/05/19 11:32:58
在整合中由于两个数据库的连结文件都为conn.asp如何合为一个文件?accese数据库谢谢!
两个conn原文件分别:一个是<!--#include file="setup.asp"-->
<% response.expires=0
response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
dim connstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("../data/aa.mdb")
'response.write connstr
set conn=Server.CreateObject("AdoDb.Connection")
conn.Open connstr
end sub
sub CloseDataConn()
'conn.close
set conn=Nothing
end sub
%>
另外一个是:<!--#include file="data_b.asp"-->
<!--#include file="const.asp"-->
<%
If IsObject(Conn) = false Then
On Error Resume Next
set conn = Server.CreateObject("ADODB.Connection")
conn.Open conndata
If Err.Number <> 0 Then
Response.write "系
两个conn原文件分别:一个是<!--#include file="setup.asp"-->
<% response.expires=0
response.buffer=true
session.timeout=30
dim conn
dim char_str(20)
sub OpenDataConn()
dim connstr
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("../data/aa.mdb")
'response.write connstr
set conn=Server.CreateObject("AdoDb.Connection")
conn.Open connstr
end sub
sub CloseDataConn()
'conn.close
set conn=Nothing
end sub
%>
另外一个是:<!--#include file="data_b.asp"-->
<!--#include file="const.asp"-->
<%
If IsObject(Conn) = false Then
On Error Resume Next
set conn = Server.CreateObject("ADODB.Connection")
conn.Open conndata
If Err.Number <> 0 Then
Response.write "系
两个整合在一起就行，除了两个文件里都有的重复的conn等，这些地方就要重新起名，加以区别的
===================================================
要整合在一起，就必须区分啊，实在不行你就这样吧，把这两个数据库连接放到两个文件里，在每个要连接数据库的页面调用不同的conn就可以
有空费脑子还不如ctrlvctrlc.
再懒也可以,用ctrlf吧,万一出错了可别哭