<% Dim cid,str cid=RequestQueryNum("cid") If cid=1 Then str="音乐" ElseIf cid=2 then str="视频" ElseIf cid=3 Then str="FLASH" End If %> 多媒体
<%=str%>
<% If cid<>0 Then Call more() Else Call show() End If %>
<% Sub more() %>
<% If cid<>0 Then sql="Select * From multimedia Where categoryid="& cid Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset for i=1 to mypage.pagesize If rs.eof Then Response.Write "" Exit for End If %> <% If i Mod 2 = 0 Then Response.Write "" rs.MoveNext Next %> <% End If %>
" ><%=rs("title")%> <%=rs("singer")%> " >
<%mypage.showpage() %>
<% End Sub %> <% Sub show() %>
<% Set rs=conn.Execute("Select top 15 * From multimedia Where categoryid=1 order by top desc, id desc") Do While Not rs.eof %> <% rs.MoveNext Loop %>
" ><%=rs("title")%> <%=rs("singer")%> " >
<% Set rs=conn.Execute("Select top 15 * From multimedia Where categoryid=2 order by top desc, id desc") Do While Not rs.eof %> <% rs.MoveNext Loop %>
" ><%=rs("title")%> <%=rs("singer")%> " >
<% Set rs=conn.Execute("Select top 15 * From multimedia Where categoryid=3 order by top desc, id desc") Do While Not rs.eof %> <% rs.MoveNext Loop %>
" ><%=rs("title")%> <%=rs("singer")%> " >
<% Set rs=nothing End Sub %>