以后地位:首页 > 建站常识 > 列表

asp conn翻开封闭函数

点击: 次时候:2017/8/20关头词:上海网页设想 网站建造 网站扶植公司
一个须要读写数据库的页面里包罗近似<!-- #include file="conn.asp" -->的代码时,现实上,当你不停止任何读写数据库操纵时,这个数据库毗连依然是翻开的,依然在耗损着办事器的资本。数据库毗连代码封装在函数里,在须要读取时调
conn翻开封闭函数

一个须要读写数据库的页面里包罗近似<!-- #include file="conn.asp" -->的代码时,现实上,当你不停止任何读写数据库操纵时,这个数据库毗连依然是翻开的,依然在耗损着办事器的资本。

数据库毗连代码封装在函数里,在须要读取时挪用这个函数。让数据库毗连仅在须要读取数据库时才翻开,不读取时就不任何举措.

以下是ACCESS毗连代码:

Function Openconn()

dim DBFileName,Conn

DBFileName = "#-#-#abcd.mdb"

set Conn=server.createObject("ADODB.connection")

ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DBFileName)

On Error Resume Next

conn.Open connstr

set Openconn=Conn

If Err Then

err.Clear

Conn.close:set Conn=nothing

Response.Write "对不起,数据库毗连犯错。"

Response.End

End If

End Function

挪用方式:

将本来的 rs.open sql,conn 改成 rs.open sql,Open_conn()

同办事器跨站同享ACCESS数据库,利用数据库物理途径

Source="数据库物理途径 如E:\目次\目次\数据库名

在某个页面上挪用了两次CloseConn函数就呈现了以下的题目

Microsoft VBScript 运转时毛病 毛病 '800a01a8'

贫乏工具: 'Conn'

那这个函数的首要功效是判定conn是不是封闭了,还没封闭就把它封闭,那为甚么会呈现下面的题目

缘由是IsObject判定conn,不管conn是不是封闭都是前往True的。

第一次挪用,conn普通被封闭,并且即是为nothing,

那第二次挪用时,conn便是nothing,就被体系以为不了这个工具,

以是咱们要把函数改成以下才能够普通运转。

封闭数据库毗连:CloseConn(conn)

Sub CloseConn(conn)

if IsObject(conn) then

if LCase(TypeName(conn)) <> "nothing" then

  conn.close

  set conn=nothing

end if

end if

End Sub

注:LCase(TypeName(conn)) ,LCase()必然须要的,TypeName(conn)前往的值是Nothing(大写N),那加上这个LCase把前往值都转为小写,那就满有把握了。

预定建站
收费供给网站优化
支付关头词