<%
set rs=conn.execute("select top 7 * from Article where ClassID=5 order by UpDate desc")
if not rs.eof then
while(not rs.eof)
Response.Write ""&left(rs("Subject"),11)&"... "
rs.movenext
wend
end if
set rs=nothing
%> 更多>>
<%
connstr="DBQ="+server.mappath("need/database/wfj123$%^&@#database.asp")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=conn.execute("select top 10 * from gq where pass=true order by id DESC")
if not rs.eof then
while(not rs.eof)
%>