数据库加密后的连接问题

[smilelilyinsun]

我用的是access数据库。我把它以独占方式打开，然后设置了密码。
这样的话，原来的连接数据库的代码就出现了问题。
叶面打不开。
conn.asp的代码如下

<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=true

if isobject(session("conn")) then
conn=session("conn")
connstr=session("connstr")
else
dim Conn
dim Connstr
dim password
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("xcjw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"&"Jet OLEDB:Database Password="&password
Conn.Open connstr
session("conn")=conn
session("connstr")=connstr
end if

%>

提示错误：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access 驱动程序]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x724 Thread 0x7b8 DBC 0x316437c Jet'。

/conn.asp，行15

[jww330]

直接这样就行了：
像如文件conn.asp
数据库count.mdb 中有 count表，数据库密码为123，列出最后一条记录的ID，代码如下：
<%@language=vbscript%>
<%Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("count.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Password=123;"
Conn.Open connstr
set rs=server.CreateObject("adodb.recordset")
sql="select * from counter desc"
rs.open sql,conn
%>
<%=rs("id")%>

[jww330]

哦，打错了，是counter表，此程序已在WIN2000＋IIS5中测试通过。

[smilelilyinsun]

还有一个问题。我知道数据库的地址怎么下载这个数据库呢？

[hubinasm]

我知道数据库的地址怎么下载这个数据库呢？
http://ip/pathname/database.mdb

[smilelilyinsun]

http://ip/pathname/database.mdb
该页无法显示

[smilelilyinsun]

下不了啊？

[smilelilyinsun]

http://ip/xcjw.mdb，数据库在同一个目录下

我用net transport下载，说http有错误

[「已注销」]

试问你的变量password初始值是多少?

password=你的密码;

[smilelilyinsun]

我写了
dim Conn
dim Connstr
dim password
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("xcjw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"&"Jet OLEDB:Database Password="&123
Conn.Open connstr

还是错误
Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/conn.asp，行14

Connstr="DBQ="+server.mappath("xcjw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"&"Jet OLEDB:Database Password="&123
-----------------------------------------------------------------------------------------------------------------------------------------------------------^

[「已注销」]

你123前面加个&那不是把123作为了变量,这样的话,它一样没有初始值啊.

[「已注销」]

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "dbq="&server.MapPath("xcjw.mdb")&";driver={Microsoft Access Driver (*.mdb)};password=123;driverid=25;fil=MS Access;"

[smilelilyinsun]

还是不对阿
Set Conn=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("xcjw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};Password=123;DriverId=25;FIL=MS Access;"
Conn.Open connstr

错误如下：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC Microsoft Access 驱动程序]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x724 Thread 0x7c4 DBC 0x3166244 Jet'。

/conn.asp，行15

[smilelilyinsun]

请问数据库里要不要做什么修改？