dim conn,rs;//这里如果是调用外部文件就必须定义这里
这里是数据库创建联连方法
sub opendb()
set rs=server.CreateObject("adodb.recordset")
set conn=server.CreateObject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0; data source="&server.mappath("datasource/hhinfo.mdb")
conn.open
end sub
//这里是asp数据关闭方法
sub closedb()
if isobject(rs) then
if not(rs is nothing) then
rs.close
set rs=nothing
end if
end if
if isobject(conn) then
if not(conn is nothing) then
conn.close
set conn=nothing
end if
end if
end sub
时间: 2024-10-26 18:30:04