|
<% set rs=server.createobject("adodb.recordset")
sql="select top 8 * from book order by id desc"
rs.open sql,conn,1,1
if rs.eof then%>
| |
<%else%>
<% do while not rs.eof%>
<% set rs1=server.createobject("adodb.recordset")
sql1="select * from type where id="&rs("typeid")
rs1.open sql1,conn,1,1
dim p
p=rs1("typename")
rs1.close
set rs1=nothing
%>
| " target="_blank"><%=rs("title")%> [<%=year(rs("time1"))%>/<%=month(rs("time1"))%>/<%=day(rs("time1"))%>] |
<% rs.movenext
loop
rs.close
set rs=nothing
end if
%>
<%conn.close
set conn=nothing%> |
 |
Copyright © 2003 STRATEGY GROUP All Rights Reserved