var e = top;
var e1 = "top";
var iLoc= self.location.href;
// List特性设置
function dspList(n){
var elmABlock= 30;//每页歌曲数量设置
var totElm = e.songName.length;//歌曲数量
var totBlock= Math.floor((e.songName.length -1) / elmABlock)+1;//页个数
var cblock;
if(n==null){cblock=1;}
else{cblock=n;}
var seed;
var limit;
if(cblock < totBlock){seed= elmABlock * (cblock-1); limit = cblock*elmABlock -1}
else{seed=elmABlock * (cblock-1); limit= totElm-1;}
if(e.songName.length >0 ){
<%
startime=timer()
dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("../../luntan/djeep13h9mmb/joji29ji20vd.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
%>
var list_num=0;
mmList.innerHTML='<p>';
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from jiemu order by id desc",conn,1,3
%>
i=seed
<%
while not rs.eof
%>
list_num = i;
var list_num1=i+1;
elm = '<table width=97% BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center><tr><td>'
elm = elm + ' <font color=#000000>T' + list_num1 +'.</font> '
elm = elm + '<a href=#'
elm = elm + ' onclick="' + e1 + '.chooseSong('+ list_num +')">' + e.songName[i] + '</a></td><td width=53><a href=../index/main.asp?id=<%=rs("id")%>>相关主题</a></td><td width=63><a href='+e.songNum[i]+' target=_blank><img src=../images/downloads.gif border=0></a><br>';
elm = elm + '</td></tr></table>'
mmList.innerHTML=mmList.innerHTML+elm;
i=i+1
<%
rs.movenext
wend
rs.Close
set rs=nothing
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from music order by id desc",conn,1,3
%>
<%
while not rs.eof
%>
list_num = i;
var list_num1=i+1;
elm = '<table width=97% BORDER=0 CELLPADDING=0 CELLSPACING=0 align=center><tr><td>'
elm = elm + ' <font color=#000000>T' + list_num1 +'.</font> '
elm = elm + '<a href=#'
elm = elm + ' onclick="' + e1 + '.chooseSong('+ list_num +')">' + e.songName[i] + '</a></td><td width=53><br>';
elm = elm + '</td></tr></table>'
mmList.innerHTML=mmList.innerHTML+elm;
i=i+1
<%
rs.movenext