conn.asp

U盘身份识别软件

<%
dim conn,rs,rssub,sql,connstr
Set conn=Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};Pwd=;dbq=" & Server.MapPath("JDC/JDC_DATE/JDC_TJ.mdb")
conn.open connstr
set rs=server.createobject("adodb.recordset")     '主程序用
set rssub=server.createobject("adodb.recordset")  '子程序用
'------------关闭数据库函数----------
Sub closedb()
  set rssub=nothing
  set rs=nothing
  conn.close
  set conn=nothing
End Sub
%>