asp 数据库连接代码与数据库关闭代码

dim connrs;//这里如果是调用外部文件就必须定义这里
这里是数据库创建联连方法

sub opendb()
set rs=serverCreateObject("adodbrecordset")
set conn=serverCreateObject("adodbconnection")
connconnectionstring="provider=microsoftjetoledb; data source="&servermappath("datasource/hhinfomdb")
connopen
end sub

//这里是asp数据关闭方法
sub closedb()
if isobject(rs) then
if not(rs is nothing) then
rsclose
set rs=nothing
end if
end if
if isobject(conn) then
if not(conn is nothing) then
connclose
set conn=nothing
end if
end if
end sub