<%
dim conn,rs
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("../data/data.mdb")
'相对路径
'd:\web\data\data.mdb
conn.Open connstr
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
response.write rs(0)
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>