read.asp

主要版块有：日记

<!--#include file="../music/conn1.asp"-->
<% 
   dim sql,frist,last,RNumber,RNumber2,RNumber3,RNumber4,RNumber5,musiclink
   set rs=server.createobject("adodb.recordset")
   SQL = "SELECT * FROM music"
   rs.open sql,connmusic,1,1
   frist=rs("id") '获取第一条记录的id值
   rs.MoveLast '指向最后一条记录
   last=rs("id") '获取最后一条记录的id值
   rs.close
   Randomize '必须加否则随即数不能二次刷新
   RNumber =(Int((last - frist + 1) * Rnd + frist)) 
   RNumber2 =(Int((last - frist + 1) * Rnd + frist))
   RNumber3 =(Int((last - frist + 1) * Rnd + frist))
   RNumber4 =(Int((last - frist + 1) * Rnd + frist))
   RNumber5 =(Int((last - frist + 1) * Rnd + frist))
   SQL = "SELECT top 5 * FROM music WHERE ID = " & RNumber & " or ID=" & RNumber2 & " or ID=" & RNumber3 &" or ID=" & RNumber4 & " or ID = " & RNumber5
   rs.open sql,connmusic,1,1
      %>
<table cellspacing="1">
  <td height="1" colspan=2 align=left valign="bottom">
     <%do while not rs.eof
             'iii=iii+1%> 
<img src=../music/images/ting.gif><a href=../music/index1.asp?id=<%=rs("id")%> title=<%=rs("show")%>,<%=rs("geshi")%> onclick='return Lis(this.href);'> 
<font color=#ff0000><%if len(rs("name"))>8 then%><%=left(rs("name"),7)%>..
<%else%><%=rs("name")%><%end if%></font></a> 
<%rs.movenext
    'if iii>=6 then exit do
    loop
rs.close
set rs=nothing
connmusic.close
set connmusic=nothing
%><a href=../music/index.asp>更多音乐>></a></td>
</table>