问题描述
Subtop6cnews_gongsifawen()setRs=server.CreateObject("adodb.recordset")SQL_str="selecttop6*fromISO_FILESwhereiso_type='920'oriso_type='921'orderbyiddesc"Rs.openSQL_str,conn,1,1dowhilenotrs.eof%><li><spanclass="lbt"><ahref="ISO/FilesTree/files_info.asp?sul=<%=rs("id")%>"title="<%=Rs("iso_name")%>">·<%ifinstr(rs("iso_reader"),"|"&session("user_name")&"|")=0then%><fontcolor="#FF0000"><%=Rs("iso_name")%></font><%else%><%=Rs("iso_name")%><%endif%></a></span><spanclass="ldt"><%=Year(rs("iso_date"))&"-"&Month(rs("iso_date"))&"-"&Day(rs("iso_date"))%></span></li><%rs.movenextlooprs.closesetrs=nothingEndsub这个是只显示数据前6个,改成全部显示后,没有下拉列表,求代码能自动列表
时间: 2024-12-26 07:11:12