📄 so.asp

📁 百度搜索作弊系统看了你就知道啦
💻 ASP
字号:
<!--#include File="SQL.asp"-->
<!--#include File="Ckk_Conn.asp"-->
<HTML><HEAD>
<TITLE>搜索排行</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Images/style1.css" type=text/css rel=stylesheet>

</HEAD><BODY leftMargin=0 topMargin=0><!--#include File="Ckk_Top.asp"--><DIV style="PADDING-TOP: 10px"></DIV>
<TABLE style="BORDER-COLLAPSE: collapse" cellPadding=0 width=830 align=center border=0>
  <TBODY>
  <TR>
      <TD width="200" align=middle vAlign=top><!--#include File="Left.asp"--></TD>
      <TD vAlign=top width=5>&nbsp;</TD>
      
      <TD vAlign=top align=middle>
        <TABLE style="BORDER-RIGHT: #7bd7e7 1px solid; BORDER-TOP: #7bd7e7 1px solid; BORDER-LEFT: #7bd7e7 1px solid; BORDER-BOTTOM: #7bd7e7 1px solid; BORDER-COLLAPSE: collapse" cellPadding=4 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD height=30 background=Images/table_bg_02.gif>&nbsp;<IMG height=13 src="Images/ht.gif" width=13 align=absMiddle border=0>&nbsp;&nbsp;<B><FONT class=text_b07>用户搜索排行</FONT></B></TD>
              <TD background=Images/table_bg_02.gif>&nbsp;</TD>
              <TD height=30 background=Images/table_bg_02.gif>&nbsp;</TD>
              <TD height=30 align="right" background=Images/table_bg_02.gif><B><FONT class=text_b07> 
                全部 </FONT></B></TD>
            </TR>
            <TR> 
              <TD colSpan=5 height=3></TD>
            </TR>
            <TR> 
              <%HuanHang=1
HHH=1
set rstping=server.createobject("adodb.recordset")
sqlping="select top 4000 * from Ckk_BaiDu order by id desc"
rstping.open sqlping,dsn,3,3
if rstping.eof then    
%>
              <TD height="30" colspan="2">&nbsp;<FONT class=text_a03>暂无</FONT></TD>
              <% Else %>
              <%
'分页系统
rstping.PageSize=120
    pages2=rstping.pagesize
    pages=rstping.pagecount
	records=rstping.recordcount
	if records<>0 then
	currentpage=request("sjpagee")
	if currentpage="" or currentpage<1 then currentpage=1
	currentpage=cint(currentpage)
	if currentpage>pages then currentpage=pages
	rstping.absolutepage=currentpage
	end if
%>
              <% If Request("sjpagee")="" Then
Page=1
else
Page=Request("sjpagee")
end if 
%>
              <%HuanHang=1
  linenumber1=rstping.pagesize 
   currenum1=0
   xh=(currentpage-1)*linenumber1+1
do while not rstping.eof and (currenum1<linenumber1)
%>
              <TD width="25%" height="30"<% If HHH mod 2=0 Then %> class=bg_a04<% End If %>> 
                <FONT class=text_b04>·</FONT><a href="Show.asp?ID=<%= rstping("ID") %>" target="_blank" class=link_a03><%= rstping("Key") %></a> 
              </TD>
              <% If HuanHang mod 4=0 Then %>
              <% HHH=HHH+1 %>
            </TR>
            <TR> 
              <% End If %>
              <%HuanHang=HuanHang+1
currenum1=currenum1+1 
xh=xh+1
rstping.movenext
loop
%>
              <% End If %>
              <% rstping.close 
						  set rstping=nothing%>
            </TR>
            <TR align="center" valign="middle"> 
              <form name="form1" method="get" action="">
                <TD height=45 colSpan=5> <% if ReQuest("sjpagee")="" then
Ckk_Page=1
else
Ckk_Page=clng(ReQuest("sjpagee"))
end if
 %>
                  共分<strong><font color="#FF0000"><%=pages%></font></strong>页 您目前在第<strong><font color="#FF0000"><%=Ckk_Page%></font></strong>页 
<% for j=1 to pages %><a href=So.asp?sjpagee=<%= j %> class=link_a03><% If Ckk_Page<>j Then %><%= j %><% Else %><u><%= j %></u><% End If %></a> <% next %>
                </TD>
              </form>
            </TR>
          </TBODY>
        </TABLE>
       </TD>
    
    </TR></TBODY></TABLE>
<DIV style="PADDING-TOP: 8px"></DIV>
<!--#include File="Ckk_Boot.asp"--></BODY></HTML><!--#include File="Close.asp"-->
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -