解释连接数据库代码 ASP

dim conn,db'定义变量conn和db

dim connstr'定义变量connstr

db="Databases/db.mdb" '数据库文件位置

on error resume next '如果出现错误，就跳过，执行下面的语句

connstr="DBQ="+server.mappath(""&db&"")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"'打开数据库

set conn=server.createobject("ADODB.CONNECTION")'创建记录集conn

if err then'如果出错

err.clear'就结束

else'否则

conn.open connstr'打开数据库的记录集

end if'条件语句结束

function jincheng (p)'定义常量JINCHENG，参数为P

jincheng=p-100000000000000'变量jiancheng=p-100000000000000000

end function'函数结束

sub CloseConn()'sub定义函数CLOSECONN（）

conn.close'关闭CONN记录集

set conn=nothing'conn记录集清空

end sub'sub结束

%>

Set Conn=Server.CreateObject("ADODB.Connection")

Connstr="DBQ="+server.mappath("../路径/数据库mdb")+"DefaultDir=DRIVER={Microsoft Access Driver (*.mdb)}"

Conn.Open connstr

二种：在以上基础加4.0引擎

三种：是在以上基础加连接池的数据源、数据名、帐号和密码

四种：把Set Conn=Server.CreateObject("ADODB.Connection") 的各种属性分开设置

五种：连接多个数据库代码是第一种的多次复制再加一段连结代码

我见过的也就以上5钟，至于代码我忘了保存在哪了，硬盘太大找的麻烦。你根据我所说的在百度随便找都有

Asp实现的数据库连接池功能函数分享

投稿：junjie

这篇文章主要介绍了Asp实现的数据库连接池功能函数分享,本函数能够加快网页的访问速度,降低数据库的压力,需要的朋友可以参考下

数据库连接是一种关键的有限的昂贵的资源，这一点在多用户的网页应用程序中体现得尤为突出。对数据库连接的管理能显著影响到整个应用程序的伸缩性和健壮性，影响到程序的性能指标。数据库连接池正是针对这个问题提出来的。数据库连接池负责分配、管理和释放数据库连接，它允许应用程序重复使用一个现有的数据库连接，而再不是重新建立一个；释放空闲时间超过最大空闲时间的数据库连接来避免因为没有释放数据库连接而引起的数据库连接遗漏。这项技术能明显提高对数据库 *** 作的性能。

但是这项技术一般在java ，php ，.net 里面运用到，asp很少用到，因为一些企业网站根本就不需要这样的技术。

也不是不能使用，下面就是研究出来的asp版本，能够加快网页的访问速度，降低数据库的压力。

1.数据库连接文件 DbPool.asp

<%

Const PoolSize = 10

Const Connstr = "Driver={SQL Server}Server=(local)UID=saword=555Database=db"

Function GetRandString(lenth)

Dim rndstr,i

Randomize

rndstr = ""

i = 1

do while i <= lenth

rndstr = rndstr &Chr(cint(((120 - 98 + 1) * Rnd )+ 97))

i = i + 1

loop

GetRandString = rndstr

End Function

Function CreateDbConn()

Dim DbConn,ConnKey

Set DbConn = Server.CreateObject("ADODB.Connection")

DbConn.Open Connstr

ConnKey = GetRandString(10)

DbPool.Add ConnKey,DbConn

End Function

Function GetDbConn()

Dim CurKey,Keys

If DbPool.Count >0 Then

Keys = DbPool.Keys ' 获取键名。

CurKey = Keys(0)

Response.Write "Cur DbConn Key Is : " &CurKey &"<br />"

Set Conn = Server.CreateObject("ADODB.Connection")

Set Conn = DbPool(CurKey)

If Conn.State = adStateClosed Then '如果这个连接已经关闭，将其从池里注销，再新建一个可用的连接并添加到池里

DbPool.Remove CurKey

Call CreateDbConn() '新建一个连接并添加到池里

Set GetDbConn = GetDbConn()

Else '否则的话，将其从池里注销，然后将复制的对象返回

DbPool.Remove CurKey

Set GetDbConn = Conn

Exit Function

End If

Else

Response.Write "连接池已用完，请重新初始化应用程序"

Response.End

End if

End Function

Function FreeDbConn(DbConn)

DbPool.Add GetRandString(10),DbConn

End Function

2.全局文件 global.asa

<object ID="DbPool" Progid="Scripting.Dictionary" Scope="Application" runat="server"></object>

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

<%

Sub Application_OnStart

Dim ConnKey

For i = 1 To PoolSize '建立指定数目的数据库连接

CreateDbConn()

Next

End Sub

Sub Application_OnEnd

DbPool.RemoveAll

End Sub

%>

3.测试文件 test.asp

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

<%

Response.Write "Test Start:<br>"

Response.Write "Current Objects count : " &DbPool.Count &"<br />"

Set dbconn = Server.CreateObject("ADODB.Connection")

Set dbconn = GetDbConn()

Response.Write "get one connection from pool <br />"

Response.Write "Current Objects count : " &DbPool.Count &"<br />"

Set Rs = Server.CreateObject("ADODB.Recordset")

Rs.open "select * from mkdb",dbconn,1,1

Do While Not rs.eof

Response.write Rs("v_oid") &"<br />"

Rs.movenext

loop

FreeDbConn(dbconn)

Response.Write "free one connection to pool <br />"

Response.Write "Current Objects count : " &DbPool.Count &"<br />"

%>