|
 |
|
 |
|
<% Connstr="DBQ="&server.mappath("bbsxp/database/bbsxp.html")&";DRIVER={Microsoft Access Driver (*.mdb)};"
DIM sql,rs,Connstr
sql="select top 10 * from forum order by ID desc"
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,Connstr,1,1
do while not rs.eof
%>
<% rs.movenext
loop
%>
|
|
|