📄 top_count.inc
字号:
<!-- 顶部歌曲统计 -->
<%
'歌手数目
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>首
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -