<%
''''''''''''''''''''''''''''''''''''''
'功能 :连接数据库
'输入参数:数据库名
'输出:无值输出,但产生conn
'''''''''''''''''''''''''''''''''''''''
dim conn,connstr
sub dbconn()
set conn=server.createobject("adodb.connection")
connstr="DBQ="+server.mappath("xyl.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open (connstr)
end sub
''''''''''''''''''''''''''''''''''''''''''''
'功能:关闭数据库的连接
'输入参数:数据库名
'输出 无值输出,取消conn和rs对象
'''''''''''''''''''''''''''''''''''''''''''
sub dbclose()
conn.close
set conn=nothing
end sub
%>