ASP高手帮帮忙吧。

数据库名称为：db.mdb
表名为：admin
字段分别为：admin_name和admin_pass
用如下实例测试看看。

conn.asp

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db.mdb")
%>

1.asp


<%
exec="select * from admin"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
do while not rs.eof
aa=rs("admin_name")
ab=rs("admin_pass")
response.write aa&"--"&ab&"
"
rs.movenext
loop
rs.close
set rs=nothing
%>

连接数据库的时候主要是路径的问题··你要看好路径··主要是调用conn.asp的时候里面连接数据库的路径要是以调用的asp文件为主的··比如1.asp调用conn.asp，conn.asp里面的连接数据库的路径要以1.asp为准···连接数据库的代码网上和书上都有的··

conn.asp如下

<%
dim conn
dim connstr
'on error resume next
connstr="DBQ="+server.mappath("../db/shuju.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr

%>

-----------------------------------------------------------------
1.asp


<%
dim rs,sql6
set rs=server.CreateObject("adodb.recordset")
sql6="select * from wenzhang where leixing1='1' order by riqi desc"
rs.open sql6,conn,1
........
%>