📄 fuwu.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 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 width="98%" height="8" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr align="center"> 
		
		
		<%set rstping=server.createobject("adodb.recordset")
sqlping="select * from Ckk_Class_YeJieNews order by Px"
rstping.open sqlping,dsn,3,3
if rstping.eof then    
%>没有类别！ 
                <% Else %> <% do while not rstping.eof %>
          <td><table width="100" height="25" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#7bd7e7">
                <tr> 
                  <td height="26" align="center" background="Images/table_bg_02.gif" bgcolor="#FFFFFF"><a href="?ClassID=<%= rstping("ID") %>&Key=<%=Request("Key")%>"> 
                    <% If trim(rstping("ID"))=trim(Request("ClassID")) Then %><b><u><%= rstping("ClassName") %></u></b><% Else %><%= rstping("ClassName") %><% End If %></a></td>
              </tr>
            </table></td>
			<%
rstping.movenext 
loop 
%> <% End If %> <% rstping.close
 set rstping=nothing%>

			
          
        </tr>
      </table><DIV style="PADDING-TOP:8px"></DIV>
        <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 height=30 background=Images/table_bg_02.gif>&nbsp;</TD>
              <TD height=30 align="right" background=Images/table_bg_02.gif>&nbsp;</TD>
            </TR>
            <TR> 
              <TD colSpan=4 height=3></TD>
            </TR>
            <TR>
              <%HuanHang=1
HHH=1
set rstping=server.createobject("adodb.recordset")
if Request("ClassID")="" then
sqlping="select * from Ckk_YeJieNews where Pass=1 and Title like '%"& replace(request("Key"),"'","") &"%' order by top desc,id desc"
else
sqlping="select * from Ckk_YeJieNews where ClassID="&Request("CLassID")&" and Pass=1 and Title like '%"& replace(request("Key"),"'","") &"%' order by top desc,id desc"
end if
rstping.open sqlping,dsn,3,3
if rstping.eof then    
%>                  
<TD height="30">&nbsp;<FONT class=text_a03>暂无</FONT></TD>
<% Else %><%
'分页系统
rstping.PageSize=36
    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="http://www.xnzjpc.cn/seo/Show_FuWu.asp?ID=<%= rstping("ID") %>" target="_blank" class=link_a03><%= rstping("Title") %></a> </TD>
              <% If HuanHang mod 3=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=4> 
                  <% 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>页 
          <select name="menu1" onChange="MM_jumpMenu('parent',this,0)">
						  <% for j=1 to pages %>
                            <option value="?sjpagee=<%= j %>&ClassID=<%=Request("ClassID")%>&Key=<%=Request("Key")%>"<% If Trim(Request("sjpagee"))=Trim(j) then %> selected<% End If %>>第<%= j %>页</option>
							<% next %>
                          </select>
          <% If Ckk_Page<>1 Then %>
          
          <a href="?sjpagee=<%= Ckk_Page-1 %>&ClassID=<%=Request("CLassID")%>&Key=<%=Request("Key")%>">上一页</a> 
          <% End If %>
          <% If pages<>Ckk_Page and pages<>"" Then %>
          
          &nbsp; <a href="?sjpagee=<%= Ckk_Page+1 %>&ClassID=<%=Request("CLassID")%>&Key=<%=Request("Key")%>">下一页</a> 
          <% End If %>
               </TD></form>
            </TR>
          </TBODY>
        </TABLE>
      
        
       </TD>
    
    </TR></TBODY></TABLE><script language="JavaScript" type="text/JavaScript">
function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
</script>
<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 + -