<%
dim conn
dim connstr
on error resume next
datapath ="data/" '数据库目录的相对路径
datafile ="student.mdb" '数据库的文件名
connstr="DBQ="+server.mappath(""&datapath&""&datafile&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
%>
<%
Dim sql
Set rs=Server.CreateObject("ADODB.RecordSet")
%>
<%
sql="select * from student order by Sno asc"
rs.open sql,conn,1,1
%>