久久时空-笑话大全

◎笑话分类◎

<% 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 = 20 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 totalfilm=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%>部/页] [共<%=totalfilm%>部] <%if page=1 then%> [首页] [上一页] <% else %> [首页] [上一页] <%end if%> <%if rs.pagecount-page<1 then%> [下一页] [尾页] <%else%> [下一页] [尾页] <%end if%>
<% if rs.eof then response.write "
没有您要查询的内容或没有此类flash提供观看
" else count1=0 do while not (rs.eof or rs.bof) and count1

','joke','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs("title")%> | <%=rs("dateandtime")%> | <%=rs("hits")%>

<% rs.movenext count1=count1+1 loop end if %>
[共<%=rs.pagecount%>页] [第<%=page%>页] [<%=pagesize%>部/页] [共<%=totalfilm%>部] <%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 %>

','joke','scrollbars=yes,resizable=yes,width=500,height=400')"><%=left(rs("title"),8)%> | <%=rs("hits")%>

<% ky=ky+1 rs.movenext if ky=21 then exit do loop %>

<% rs.close set rs=nothing conn.close set conn=nothing %>