|
<%
set rs1=server.CreateObject("adodb.recordset")
sql1="select top 9 type_id,cs_type from cs_type order by type_id desc"
rs1.open sql1,conn,3,2
if rs1.bof and rs1.eof then
%>
▲
▲
▲
▲
▲
▲
▲
▲
▲
<%
else
ii=0
do while not rs1.eof
ii=ii+1
title=trim(rs1("cs_type"))
if len(title)>9 then
title=left(title,8)&".."
end if
%>
▲ " target="_blank"><%=title%>
<%
rs1.movenext
loop
if ii<9 then
for i=1 to 9-ii
response.write" ▲
"
next
end if
end if
rs1.close
set rs1=nothing
%>
更多>>> |
|
