关于多个连续页面使用同一数据库连接的问题

[FrankZYZ]

多个连续页面要使用同一数据库连接，我不想创建多个连接，怎么办？
另外，连接使用完了一定要关闭吗？why？

[FrankZYZ]

楼上的，我才该faint！你还是醒醒吧。

连续的几个页面，使用同一个连接，比不断建立新连接很快又关掉更节约吧？
地球人都知道使用include，但那是几个页面使用同一连接吗？

[emhuangzi]

<!--#include file="conn.asp"-->

[位流]

我的连接程序，给你吧。

<%
option explicit
dim conn, dbname
set conn = nothing
dbname = "db.asp"
dim maintain '维护
maintain = false
sub openconn
'on error resume next
if maintain then
set conn = createobject("adodb.connection")
'conn.connectionstring = "Driver={Microsoft Access Driver (*.mdb) };dbq=" & server.MapPath(dbname)
conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(dbname)
conn.open
if err.number>0 then
set conn = nothing
response.write "数据库错误"
response.end
end if
if isobject(application("conn")) then
application.Lock
set application("conn") = nothing
application.UnLock
end if
else
dim isobj
if isobject(application("conn")) then
if not application("conn") is nothing then
set conn = application("conn")
isobj = true
else
isobj = false
end if
else
isobj = false
end if
if not isobj then
set conn = createobject("adodb.connection")
'conn.connectionstring = "Driver={Microsoft Access Driver (*.mdb) };dbq=" & server.MapPath(dbname)
conn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(dbname)
conn.open
if err.number>0 then
set conn = nothing
response.write "数据库错误"
response.end
end if
application.lock
set application("conn") = conn
application.unlock
end if
end if
end sub
openconn
sub closeconn
if not maintain then
exit sub
end if
if not conn is nothing then
conn.close
set conn = nothing
end if
end sub
%>

[位流]

永远只有一个数据库连接。

[shayi]

Faint
使用include包含你的数据库连接文件。
数据库不是免费午餐，要耗费系统资源的，所以用后一定要关闭。当然，如果楼主的服务器足够强大，那也不妨打开Ｎ个数据库连接了。

[waterapple]

写function
用include

[lamking]

数据连接关闭操作需要的时间都是毫秒级的，比如一个帖子，浏览的时候只需要连接一次数据库，然后就关闭了。如果你不关闭连接，假如别人阅读帖子用10秒钟，那你的数据连接就要保持10秒种，连接是要消耗资源的，如果访问量大的话，很快就会吃不消了