<%if session("which")="" then%>
帐号:
密码:
<%else%>  <%=session("who1")%>，欢迎您
  编辑资料 退出登陆
       找歌服务
<%if session("ban_msg")<>Empty then%> <%=trim(session("ban_msg"))%> <%end if%> <% if session("blnStatus")="2" then %> <%response.write "
   你是流量用户" %> <%response.write "
    (VIP B型)" %> <%response.write "
已下载:"&trim(session("DownloadCurrent")) & "MB"%> <% response.write "
可下载:"&trim(session("DownLoadMax")) & "MB"%> <%else%> <% if session("blnStatus")="1" then %> <%response.write "
   你是包月用户" %><%response.write "
    (VIP A型)" %> <%response.write "
开始时间:"&trim(session("start")) %> <% response.write "
结束时间:"&trim(session("end")) %> <% else %>
    你是普通用户
    请升级成VIP <% end if %> <% end if %> <%end if%>
<% set rs=server.createobject("adodb.recordset") sql="select top 1 * from music_research order by datetime desc" rs.open sql,conn,3 if not rs.eof then %>">
→<%=trim(rs("title"))%>
<% set rs1=server.createobject("adodb.recordset") sql1="select * from music_answer where title_id="&rs("id")&" order by id" rs1.open sql1,conn,3 do while not rs1.eof %> "> <%=trim(rs1("name"))%>
<% rs1.movenext loop rs1.close %>
投票总数:<%=rs("ticket")%>
    
<% end if rs.close set rs=nothing %>		 　
<% set rs=server.createobject("adodb.recordset") sql="select top 2 * from music_pv where filename!='' order by ID desc" rs.open sql,conn,3 do while not rs.eof %> <% rs.movenext loop %>
.gif" width="110">
<%=left(rs("name"),14)%>
最全的LRC歌词库!最精彩的歌词吾爱论坛
　
　
<% set rs=server.createobject("adodb.recordset") sql="select top 10 * from music_news order by newsid desc" rs.open sql,conn,3 do while not rs.eof %> "><%=left(rs("name"),30)%> <%=day(rs("datetime"))&"/"&month(rs("datetime"))%>
<% rs.movenext loop%>
<% set rs=server.createobject("adodb.recordset") sql="select top 1 * from music_news where pic=1 order by newsid desc" rs.open sql,conn,3 do while not rs.eof %> <% rs.movenext loop %>
"> .gif" width="140" height="135" border="0">
" target="_blank"><%=trim(rs("name"))%>
　
<% sort="cn" set rs=server.createobject("adodb.recordset") sql="select top 1 * from note where sort='"&sort&"' order by id desc" rs.open sql,conn,1,1 %><% if rs.bof and rs.eof then %> 无 <%else%> <%'=htmlencode1(rs("note"))%> <%=rs("note")%> <%end if%>  <%rs.close%>
　
<% set rs=server.createobject("adodb.recordset") sql="select top 10 * from music_disk where type=1 order by weekhits desc,hots desc" rs.open sql,conn,3 i=0 do while not rs.eof i=i+1 %>
<% rs.movenext loop %>
<%=i%>. "><%=left(trim(rs("name")),10)%>
<%if i=1 then%>    ">.gif" width="90" height="90">
<%end if%>
<% set rs=server.createobject("adodb.recordset") sql="select top 10 * from music_disk where type=0 order by weekhits desc,hots desc" rs.open sql,conn,3 i=0 do while not rs.eof i=i+1 %>
<% rs.movenext loop %>
<%=i%>. "><%=left(trim(rs("name")),18)%>
<%if i=1 then%>    ">.gif" width="90" height="90">
<%end if%>
<%set rs=server.createobject("adodb.recordset") sql="select * from music_disk where type=1 order by diskid desc" rs.open sql,conn,3 i=1 do while (not rs.eof)and(i<=6)%> <% rs.movenext if (i mod 2)=0 then response.write "" end if i=i+1 loop%>
曲名:<%=left(trim(rs("name")),8)%>
歌手:<%=left(trim(rs("singer")),12)%>
上传:<%=Year(rs("datetime"))&"-"&Month(rs("datetime"))&"-"&Day(rs("datetime"))%>
发行:<%=trim(rs("issue_date"))%>
<%set rs=server.createobject("adodb.recordset") sql="select * from music_disk where type=0 order by diskid desc" rs.open sql,conn,3 i=1 do while (not rs.eof)and(i<=6)%> <% rs.movenext if (i mod 2)=0 then response.write "" end if i=i+1 loop%>
曲名:<%=left(trim(rs("name")),8)%>
歌手:<%=left(trim(rs("singer")),12)%>
上传:<%=Year(rs("datetime"))&"-"&Month(rs("datetime"))&"-"&Day(rs("datetime"))%>
发行:<%=trim(rs("issue_date"))%>
<% set rs2=server.CreateObject("adodb.recordset") rs2.Open "select * from top5song",conn,3 do until(rs2.eof) %> <% rs2.MoveNext loop %> <% rs2.MoveFirst do until (rs2.EOF) %> <% rs2.MoveNext loop set rs2=nothing %>
" WIDTH="80" HEIGHT="80">
<%=rs2("songname")%>
<%=rs2("singer")%>
<%=rs2("updatetime")%>

"> Download
　
<%clear_all%>