Question

asp操作数据库

在本地配置dsn后
连接字符串:
<%
set conph=server.mappath("mydb.mdb")
constring="driver={microsoft access driver(*.mdb)};dbq=" & conph
set conn=server.createobject("adodb.connection")
sql="select * from user"
rs.open sql,conn,1,1

%>

这是我在本地机器的操作数据库.我想问下.如果上传到空间.代码要做什么修改呢.
问下高手们是怎么一回事.谢了.

Answer 1

dim conn,connstr,rs,sql
database = "/data/book.mdb" '数据库路径
Set conn=server.createobject("ADODB.Connection") '新建数据库连接对象
connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database) '数据库连接字符串
conn.open connstr '打开数据库

set rs=server.CreateObject("adodb.recordset") '新建记录集对象
sql="select * from 表名" 'SQL语句,决定从数据库中取哪些数据,填入rs记录集
rs.open sql,conn,1,1 '将数据库内容填入rs记录集

'数据库内容填入记录集后,就可以关闭数据库连接了,数据库连接关闭后并不影响记录集的操作.
conn.close
set conn=nothing

'接下来可以操作RS记录集了
'操作完成后别忘记关闭RS记录集
rs.close
set rs=nothing

-----------------------------------
注意你的网站程序目录

Answer 2

你的这段代码有错误。
1、建立了数据库连接，但没有打开。
2、没有建立记录集，就打开记录集。
发正确的代码给你参考。
<%
dim conn
dim connstr,db
db="mydb.mdb"
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION") '建立数据库连接
if err then
err.clear
else
conn.open connstr ‘打开数据库连接
end if

dim rs,sql
set rs=server.CreateObject("adodb.recordset") '建立记录集.
sql="select * from user "
rs.open sql,conn,1,3 '打开记录集.
%>

Answer 3

set conph=server.mappath("mydb.mdb")

关键是这一句，设置所连接的数据库文件的路径（相对于网站根目录的相对路径）

不过你这样很不安全

建议把 mydb.mdb 文件，放在网站根目录下的文件夹内，比如文件夹 123data852 下面，顺便把后缀改成 .asp ,即把 mydb.mdb 改成 mydb.asp

然后
set conph=server.mappath("123data852/mydb.asp")

有条件还是建议升级成 mssql

Answer 4

如果你把你的数据文件放在你的网站跟目录下，你这样写就可以啊。如果是在其他处，就稍做改变。