我第一次打开的时候，可以打开，现在却出现错误！为什么呢？
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x8e4 Thread 0xf84 DBC 0x1851f0c Jet'。
/admin_admin/sys_conn.asp, 第 4 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
POST 49 ??? /admin_admin/sys_check_login.asp

POST Data:
uid=admin&pwd=admin&imageField.x=0&imageField.y=0

VBScript code

<%  connstr="DBQ="+server.mappath("data/#saiyi_system#.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"  set conn=server.createobject("ADODB.CONNECTION")  conn.open connstr   Dim WebName,webcopyright,webaddress,webtel,websupportset rs=server.createobject("adodb.recordset")sql="select * from sys_company order by id desc"rs.open sql,conn,3,3WebName = rs("company")Webcopyright = rs("copyright")Webaddress = rs("address")Webtel = rs("tel")Websupport = rs("support")function nosql(str)if not isnull(str) thenstr=trim(str)str=replace(str,";","&#59;")        '分号str=replace(str,"'","'")        '单引号str=replace(str,"""",""")        '双引号str=replace(str,"chr(9)"," ")    '空格str=replace(str,"chr(10)","<br>")    '回车str=replace(str,"chr(13)","<br>")    '回车str=replace(str,"chr(32)"," ")    '空格str=replace(str,"chr(34)",""")    '双引号str=replace(str,"chr(39)","'")    '单引号str=Replace(str, "script", "&#115cript")'jscriptstr=replace(str,"<","<")            '左<str=replace(str,">",">")            '右>str=replace(str,"(","(")            '左(str=replace(str,")",")")            '右)str=replace(str,"--","--")    'SQL注释符nosql=strend ifend function%>

[解决办法]
数据库连接和记录集用完后要及时关闭并设为Nothing
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing