用户点击统计
<% set rs=server.CreateObject("adodb.recordset") rs.open "select TOP 100 id,tproduct_bh,tproduct,mclickcount from tproduct where mclickcount>0 order by mclickcount desc",conn,1,1 if rs.eof And rs.bof then Response.Write "
没有找到项目！
" else dim i i=0 %>
用户点击前100
编号
品名
点击数
<% intTotalNum = rs.RecordCount do while not rs.eof if (i mod 2)=0 then response.write "
" else response.write "
" end if %>
" target="_blank"><%=rs("tproduct_bh")%>
<% =rs("tproduct") %>
<% =rs("mclickcount") %>
<%i=i+1 rs.movenext loop rs.close set rs=nothing %>
共有<%=intTotalNum%>项
<%end if%>