index_soft.asp

在线 点播音乐的功能 只提供参考

<%sub index_soft()
opendown
sql="select top "&indexsoft&" soft_id,soft_name,soft_joindate,soft_dcount,soft_rcount from soft order by soft_joindate DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<div align="center">
  <center>
    <table width="98%" border="0" cellspacing="0" bgcolor="#EFEFEF" background="images/pic000/c001.jpg" style="border-collapse: collapse" cellpadding="0">
      <tr> 
        <td width="1%" bordercolor="#808080" bgcolor="#FFFFFF"><font color="#666666"> 
          <img src="images/bg4_left.gif" border="0" align="absbottom"></font></td>
        <td width="96%" height="23" bordercolor="#808080" background="images/bg4.gif" bgcolor="#FFFFFF" class="diaryhead"> 
          <div align="left"><font color="#666666"><span style="font-size: 9pt"> 
            : :最新下载: :</span></font></div></td>
        <td width="3%" bordercolor="#808080" bgcolor="#FFFFFF" class="diaryhead"><img src="images/bg4_right.gif"></td>
      </tr>
    </table>
  </center>
</div>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="8" bgcolor="#FFFFFF"></td>
  </tr>
</table>
<div align="center">
  <center>
<table width="98%" border="0" cellspacing="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" height="22">
  <%do while not rs.eof%><font color="#666666"><span style="background-color: #EFEFEF">
  </span></font>
  <tr> 
    <td bgcolor="#FFFFFF" class="chinese" width="6%" align="center">
    <font color="#666666"><span style="background-color: #FFFFFF">
    <img src="images/pic000/shouyeXT2.gif" align="middle"></span></font></td>
    <td bgcolor="#FFFFFF" class="chinese" height="22"><a href="showsoft.asp?soft_id=<%=rs("soft_id")%>" target="_blank" title="<%=rs("soft_name")%>,已经被下载<%=rs("soft_dcount")%>次"><%=rs("soft_name")%></a><font color="#666666" style="font-size: 6pt; background-color:#FFFFFF">&nbsp;</font><font color="#666666" style="font-size: 7pt; background-color:#FFFFFF">[<%=rs("soft_dcount")%>/<%=rs("soft_rcount")%>]  </font>
    <font color="#666666" style="font-size: 6pt; background-color:#FFFFFF">(<%=rs("soft_joindate")%>)</font></td>
  </tr>
  <tr> 
    <td height="1" colspan="2" background="images/dotlineh.gif"></td>
  </tr>
  <%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#666666"><span style="background-color: #EFEFEF">
  </span></font>
  <tr> 
    <td bgcolor="#FFFFFF" class="chinese" colspan="2"><font color="#666666">
    <span style="background-color: #FFFFFF">暂时没有程序下载</span></font></td>
  </tr>
  <%end if%><font color="#666666"><span style="background-color: #EFEFEF">
  </span></font>
</table>
  </center>
</div>
<div align="center">
  <center>
    <table width="98%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="1" style="border-collapse: collapse" bordercolor="#111111">
      <tr> 
        <td align="right" class="chinese" height="1" bgcolor="#FFFFFF"> <a href="download.asp"> 
          <span style="background-color: #FFFFFF"><font color="#666666"><img src="images/more1.gif" width="50" height="17" border="0" alt="More"></font></span></a><font color="#666666"><span style="background-color: #EFEFEF"> 
          </span></font> </td>
      </tr>
    </table>

  </center>
</div>


<%
rs.close
set rs=nothing
end sub
%>