tophit.asp

来自「功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件」· ASP 代码 · 共 30 行

<% function top10(strtype,catid) %>
<ul class="ul3">
		  <% sql="select top 10  * from art where cat_id=" & catid  & " order by "  & strtype & " desc"
		   	rs.open sql,conn,1,3
			for a=1 to 10
				if rs.eof then exit for 
		  %>
		  <li class="li3"><a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),18) %></a></li>
		  <%
		  	rs.movenext
			next
			rs.close
		%>
		  </ul>
<% end function %>
<% function top10all(strtype) %>
<ul class="ul3">
		  <% sql="select top 10 * from art order by " & strtype & " desc"
		   	rs.open sql,conn,1,3
			for a=1 to 10
				if rs.eof then exit for
		  %>
		  <li class="li3"><a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),18) %></a></li>
		  <%
		  	rs.movenext
			next
			rs.close
		%>
		  </ul>
<% end function %>