    |
|
|
| <% dim rs_t_it,sql_t_it
set rs_t_it=server.CreateObject("adodb.recordset")
sql_t_it="select top 1 * from infor where flag=269 and flag_2=441 and by_4='t' order by add_time desc"
rs_t_it.open sql_t_it,conn,1,1
if not rs_t_it.eof then
response.Write(" ·"&left(rs_t_it("title"),20)&"")
else
response.Write("暂时还没有推荐信息!")
end if
rs_t_it.close
set rs_t_it=nothing
%> |
------------------------------------------------------------
<% dim rs_zx_it,sql_zx_it
set rs_zx_it=server.CreateObject("adodb.recordset")
sql_zx_it="select top 24 * from infor where flag=269 and flag_2=441 order by add_time desc"
rs_zx_it.open sql_zx_it,conn,1,1
if not rs_zx_it.eof then
do while not rs_zx_it.eof
response.Write("| ·"&left(rs_zx_it("title"),13)&" | ")
rs_zx_it.movenext
response.Write("·"&left(rs_zx_it("title"),13)&" | ")
rs_zx_it.movenext
loop
end if
rs_zx_it.close
set rs_zx_it=nothing
%>
|
|
|