📄 index.asp

📁 百度搜索作弊系统看了你就知道啦
💻 ASP
字号:
<!--#include File="SQL.asp"-->
<!--#include File="Ckk_Conn.asp"-->
<%YYuMing= LCase(Cstr(Request.ServerVariables("SERVER_NAME"))) %>
<% set rstping=server.createobject("adodb.recordset")
sqlping="select * from Ckk_Web Where YuMing='"&YYuMing&"'"
rstping.open sqlping,dsn,3,3
if not rstping.eof then
Server.Transfer(YYuMing&".asp") 
Response.End
end if
rstping.close 
set rstping=nothing%>
<HTML><HEAD>
<TITLE>百度搜索作弊系统</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="Images/style1.css" type=text/css rel=stylesheet>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</HEAD><BODY leftMargin=0 topMargin=0 onload=document.formckk.Key.focus()>

<!--#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 colSpan=3 background=Images/table_bg_02.gif>&nbsp;<IMG height=14 src="Images/sider_newcomm.gif" width=17 align=absMiddle border=0>&nbsp;&nbsp;<B><FONT class=text_b07><a href="Sitemap.asp" class="link_b07">今日用户搜索排行</a></FONT></B></TD>
              <TD height=25 align="right" background=Images/table_bg_02.gif><A class=link_b07 href="about:blank" target=_blank>打开空白页</A></TD>
            </TR><TR><TD colSpan=4 height=3></TD></TR><TR><%HuanHang=1
			  HHH=1
set rstping=server.createobject("adodb.recordset")
sqlping="select top 68 * from Ckk_BaiDu where Ind=1 order by ID desc"
rstping.open sqlping,dsn,3,3
if rstping.eof then %>
              <TD height="30"><FONT class=text_a03>暂无</FONT></TD>
              <% Else 
do while not rstping.eof %>
              <TD 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
rstping.movenext 
loop 
End If 
rstping.close 
set rstping=nothing%></TR><TR><TD colSpan=4 height=3></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<DIV style="PADDING-TOP: 8px"></DIV>
<!--#include File="Ckk_Boot.asp"--><% If Instr(Now, "10:00")>0 or Instr(Now, "11:01")>0 or Instr(Now, "12:00")>0 or Instr(Now, "12:01")>0 or Instr(Now, "12:02")>0 or Instr(Now, "12:04")>0 or Instr(Now, "14:00")>0 or Instr(Now, "14:01")>0 or Instr(Now, "14:02")>0 Then %>
<div id="Layer1" style="position:absolute; left:-158px; top:-659px; width:23px; height:23px; z-index:1"> 
<iframe name="HuoQu" src="HuoQu.asp" width="0" height="0" border="0" marginwidth="0" marginheight="0" frameborder="0" scrolling="no"></iframe>
</div><% End If %></BODY></HTML><!--#include File="Close.asp"-->
⌨️ 快捷键说明

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