gkph.asp

新世纪影院源码

<table border="0" cellpadding="0" cellspacing="1" width="142" >
              <tr>
                <td width="142" height="21" colspan="2" align="center">¤<font size="4">&nbsp;</font> 
                  影视观看排行&nbsp; 次数</td>                                                                     
              </tr>
              <%
              sql="select id,movietitle,hits from movies order by hits desc"
              rs.open sql,conn,1,1
              if rs.eof or bof then
              response.write""
              else
              i=0
              do while not rs.eof or bof
              i=i+1
              %>
                <tr>
                <td width="116" height="22" bgcolor="#FFFFFF" valign="middle" align="left">◆<a href=list.asp?id=<%=rs("id")%>><%
                movietitle=rs("movietitle")
                if len(movietitle)>8 then
                movietitle=left(movietitle,7)
                end if
                response.write movietitle
                %></a></td>   
                <td width="26" height="22" bgcolor="#FFFFFF" valign="middle" align="center"><%=rs("hits")%> </td>   
              </tr>
              <%
              rs.movenext
              if i>10 then exit do
              loop
              end if
              rs.close
              %>
               </table>