Set conn=Server.CreateObject("ADODB.CONNECTION")
Set fx=Server.CreateObject("ADODB.RecordSet")
connstr="dbq="+server.mappath("../admin/#data.asa")+";driver={microsoft access driver (*.mdb)};"
conn.open connstr
sql="select top 1 topic,keyes,comto,word,id from jsjl order by id desc"
fx.Open sql,conn,1,1
do while not fx.eof %>
<%=fx |