|  |  |  |  | | <%set rs=server.CreateObject("adodb.recordset") rs.open "select top 5 * from news where lm='71' and tj = '推荐' order by ontop desc, id desc",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有内容！" else do while not rs.eof %> <% rs.movenext loop end if rs.close set rs=nothing %> | |  |  |  |  | | | | | | | <%set rs=server.CreateObject("adodb.recordset") rs.open "select top 5 * from news where lm='72'and tj = '推荐' order by ontop desc, id desc",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有内容！" else do while not rs.eof %> <% rs.movenext loop end if rs.close set rs=nothing %> | | | | | | | | ![]() | | <%sql = "SELECT top 4 * FROM class ORDER BY ClassId DESC" Set rs = Server.CreateObject("ADODB.Recordset")rs.OPEN sql,Conn,0,1%> | <%Dim ipagecountDim ipagecurrentDim strorderByDim irecordsshown,hangpicnum if request.querystring("page")="" thenipagecurrent=1elseipagecurrent=cint(request.querystring("page"))end ifsql = "SELECT DesktopMiniPic,DesktopCk,DesktopName,DesktopId,DesktopLx FROM desktop where DesktopHot=true ORDER BY DesktopId DESC" Set rs = Server.CreateObject("ADODB.Recordset")rs.OPEN sql,Conn,1,1rs.pagesize = 10rs.cachesize = 10ipagecount = rs.pagecountIf ipagecurrent > ipagecount Then ipagecurrent = ipagecountIf ipagecurrent < 1 Then ipagecurrent = 1Response.Write""if rs.bof and rs.eof then response.write "| 没有任何文件 | " Elsers.absolutepage = ipagecurrentirecordsshown = 0do while irecordsshown<10 and NOT rs.EOFResponse.Write""if not rs.eof thenfor hangpicnum=1 to 10 if rs.eof then exit for if rs("DesktopLx")=0 then Response.Write"| " Response.Write" | " elseif rs("DesktopLx")=1 then Response.Write"
"&rs("DesktopName")&"" end ifrs.movenextirecordsshown = irecordsshown +1nextend Ifloop Response.Write" " end ifrs.Closeset rs=nothingResponse.Write" "%> | | | ![]() | | | | | | <%set rs3=server.CreateObject("adodb.recordset") rs3.open "select top 5 * from news where lm='74' and tj='推荐' order by ontop desc, id desc",conn,1,1 if rs3.eof and rs3.bof then response.write "目前还没有内容！" else do while not rs3.eof %> | | | | | | | | | | | <%set rs3=server.CreateObject("adodb.recordset") rs3.open "select top 5 * from news where lm='75' and tj='推荐' order by ontop desc, id desc",conn,1,1 if rs3.eof and rs3.bof then response.write "目前还没有内容！" else do while not rs3.eof %> | | | | | | | | | | <%set rs3=server.CreateObject("adodb.recordset") rs3.open "select top 5 * from news where lm='79' and tj='推荐' order by ontop desc, id desc",conn,1,1 if rs3.eof and rs3.bof then response.write "目前还没有内容！" else do while not rs3.eof %> | | | | | | | |
