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