top_count.inc

971音乐站全站程序

<!-- 顶部歌曲统计 -->
<%
	'歌手数目
	Dim Top_count_singer_rs,singer_count
	Set Top_count_singer_rs = Server.CreateObject("ADODB.Recordset")
	sql = "select NClassID from [NClass]"
	Top_count_singer_rs.open sql, conn, 1, 1
		singer_count=Top_count_singer_rs.recordcount
		Top_count_singer_rs.close
	Set Top_count_singer_rs=NOTHING

	'专辑数目
	Dim Top_count_Special_rs,Special_count
	Set Top_count_Special_rs = Server.CreateObject("ADODB.Recordset")
	sql = "select SpecialID from [Special]"
	Top_count_Special_rs.open sql, conn, 1, 1
		Special_count=Top_count_Special_rs.recordcount
		Top_count_Special_rs.close
	Set Top_count_Special_rs=NOTHING

	'歌曲数目
	Dim Top_count_Music_rs,Music_count
	Set Top_count_Music_rs = Server.CreateObject("ADODB.Recordset")
	sql = "select ID from [MusicList]"
	Top_count_Music_rs.open sql, conn, 1, 1
		Music_count=Top_count_Music_rs.recordcount
		Top_count_Music_rs.close
	Set Top_count_Music_rs=NOTHING
%>
            目前共收录： 歌手<font color="#FF0000"><%=Response.Write(singer_count)%></font>位 
专辑<font color="#FF0000"><%=Response.Write(Special_count)%></font>张 歌曲<font color="#FF0000"><%=Response.Write(Music_count)%></font>首