<% dim typeid typeid=trim(request("typeid")) %> WINSOME---源自韩国 MP3.MP4播放器
 
 








     标 题
日 期
<% if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=19 set rs=server.createobject("adodb.recordset") if request("typeid")="" then sql ="select * from article where (typeid=60 or typeid=61 or typeid=62) and cn=0 and en=0 order by newsid desc" else sql ="select * from article where typeid="&typeid&" and cn=0 and en=0 order by newsid Desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "

没有资料

" else totalPut=rs.recordcount rs.move (currentPage-1)*MaxPerPage rs.pagesize=MaxPerPage '得到每页数 mpage=rs.pagecount '得到总页数 %> <%dim i i=0%> <%do while not rs.eof%> <% i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing %>
   " target="_blank"><%=gotTopic(rs("title"),65)%>
<%=year(rs("dateandtime"))%>-<%=month(rs("dateandtime"))%>-<%=day(rs("dateandtime"))%>
  <% call page() sub page()%> <%if request("typeid")="" then%> 页 次:<%=currentPage%>/<%=mpage%> 共有<%=totalPut%>条信息 19/页 <% pageno=currentPage if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if %> <%if cint(pageno)>1 then%> class="while15"> <%end if%> <%if cint(pageno)>1 then%> &page=<%=pageno-1%> class="while15"> <%end if%> <% pp=cint(pageno)-3 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno=cint(pageno) then%> [<%=pno%>] <%else%> &page=<%=pno%> class="while15">[<%=pno%>] <%end if%> <% if p>=9 then exit for next%> <%if cint(pageno)< mpage then%> &page=<%=pageno+1%> class="while15"> <%end if%> <%if cint(pageno)< mpage then%> &page=<%=mpage%> class="while15"> <%end if%> <%else%> 页 次:<%=currentPage%>/<%=mpage%> <% pageno=currentPage if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if %> <%if cint(pageno)>1 then%> class="while15"> <%end if%> <%if cint(pageno)>1 then%> &page=<%=pageno-1%> class="while15"> <%end if%> <% pp=cint(pageno)-3 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno=cint(pageno) then%> [<%=pno%>] <%else%> &page=<%=pno%>&k=<%=request("k")%> class="while15">[<%=pno%>] <%end if%> <% if p>=15 then exit for next%> <%if cint(pageno)< mpage then%> &page=<%=pageno+1%> class="while15"> <%end if%> <%if cint(pageno)< mpage then%> &page=<%=mpage%> class="while15"> <%end if%> &page=<%=mpage%> class="while15"> <%end if%> <% end sub%>
<%end if%>