|
====笑话分类==== |
<%
set rs=server.createobject("adodb.recordset")
sql="select * from type order by -typeid desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
| "><%=rs("type")%> |
<%
ka=ka+1
if ka=2 then
ka=0
response.write " "
end if
rs.movenext
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
|
|
<%
dim page
typeid=request("typeid")
page=request("page")
pagesize = 24
dim rs,strsql,news
strsql="select * from learning"
if request("typeid")<>"" then
strsql=strsql&" where typeid="&request("typeid")
end if
strsql=strsql&" order by articleid desc"
set rs = server.createobject("adodb.recordset")
rs.open strsql,conn,3,3
rs.pagesize = pagesize
totalarticle=rs.recordcount
pgnum=rs.pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.absolutepage=page
%>
|
[共<%=rs.pagecount%>页] [第<%=page%>页]
[<%=pagesize%>部/页] [共<%=totalarticle%>部]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[首 页] [上一页]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[下一页]
[尾
页]
<%end if%> |
<%
if rs.eof then
response.write "| 没有您要查询的内容或没有此类文章提供观看 | "
else
count1=0
do while not (rs.eof or rs.bof) and count1
|
|
<%
rs.movenext
count1=count1+1
loop
end if
%>
|
[共<%=rs.pagecount%>页] [第<%=page%>页]
[<%=pagesize%>部/页] [共<%=totalarticle%>部]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[首 页] [上一页]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[下一页]
[尾
页]
<%end if%>
|
|
|
|
|
|
|
====笑话排行榜====
|
<%
rs.close
sql="select articleid,title,hits from learning order by hits desc"
rs.open sql,conn,1,1
do while not rs.eof
%>
|
|
<%
ky=ky+1
rs.movenext
if ky=25 then exit do
loop
%>
|
|
|
