text's blog

0031.关闭数据库?这里是关闭数据库连接.
2.实际上这儿的Function相当于一个过程Sub,没有返回值
3.set Open_conn=Conn 在这儿好象没有什么作用
4.把Conn作为一个全局变量

Dim Conn
Sub Open_conn()
dim Dbpath
Dbpath=server.MapPath("../data/data.mdb")
set Conn=server.createObject("ADODB.connection")
Conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"

If Err Then
err.Clear
Conn.close:set Conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Sub

Sub Closeconn()
If Conn <> Nothing then
Conn.close
Set Conn = Nothing
End If
End Sub

____________________________-

sub CloseConn()
conn.close
set conn=nothing
end sub

调用
call CloseConn()

Tags:网站  函数