 |
|
|
 |
 |
|
|
<%
dim t,dy,dm,dd,dt
t=0
sql="select articleid,title,typeid,dateandtime,best from learning order by articleid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
t=t+1
dt=rs("dateandtime")
dy=year(dt)
dm=month(dt)
dd=day(dt)
%>
| |
<% if rs("best")=1 then%><%end if %> |
<%response.write(dy)%><%response.write(dm)%><%response.write(dd)%> |
<%
if t>13 then exit do
rs.movenext
loop
%>
|
|