gusucode.com > 爱美尔女性商城源码 1.0源码程序 > zhizhus/cqspb.asp
<!--#include file="config.asp"-->
<% dim conn,rs,connstr,s,x,lb,pageurl
connstr="DBQ="+server.mappath(zzdb)+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
s= trim(request("s"))
x= trim(request("x"))
lb= trim(request("lb"))
if x="" then x="desc"
if lb="" then lb="shijian"
pageurl="s="&s&"&lb="&lb&"&x="&x
if s<>"" then title=s&"的搜索结果-"
%>
<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%= title %>爱美尔女性商城统计-<%= xxjl %></title>
<meta name="keywords" content="爱美尔女性商城统计" />
<meta name="description" content="<%= title %>爱美尔女性商城统计" />
<style type="text/css">
<!--
body,td,th {
font-size: 12px;
border: 1px solid #CCCCCC;
}
p {
margin: 0 0 10px 5px;
}
.f {color: #CCCCCC}
.STYLE1 {
font-size: 14px;
font-weight: bold;
}
.STYLE2 {
font-size: 12px;
font-weight: bold;
color: #FFFFFF;
}
-->
</style>
</head>
<script language=javascript>
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
function Checked()
{
var j = 0
for(i=0;i < document.form.elements.length;i++){
if(document.form.elements[i].name == "id"){
if(document.form.elements[i].checked){
j++;
}
}
}
return j;
}
function DelAll()
{
if(Checked() <= 0){
alert("您至少选择1条信息!");
}
else{
if(confirm("确定要删除选择的信息吗？\n此操作不可以恢复！")){
form.action="?Act=Delete";
form.submit();
}
}
}
</script>
<body>
<div align="center" class="STYLE1">网站蜘蛛爬行统计系统V1.5-<%= xxjl %></div>
<div align="center">寂寞轩：<a href="http://www.jimox.com" target="_blank">http://www.jimox.com</a>
</div>
<DIV style="BORDER-TOP: #c0c0c0 2px solid; MARGIN: 10px auto 6px; OVERFLOW: hidden; HEIGHT: 2px ; "></DIV>
<form action="?" method=post name=form id=form>
搜索：
<label>
<input name="s" type="text" id="s" value="<%= s %>" size="40" maxlength="200">
</label>
<label>
<input type="submit" name="Submit2" value="提交">
</label>
<a href="?">查看所有</a> <A href="?s=Baidu">Baidu</A> <A href="?s=Google">Google</A> <A href="?s=Yahoo">Yahoo</A> <A href="?s=其它蜘蛛">其它蜘蛛</A> <A href="?s=Google Adsense">Google Adsense</A> <A href="?s=Sogou">Sogou</A> <A href="?s=MSN">MSN</A> <A href="?s=Alexa">Alexa</A> <A href="?s=Soso">Soso</A> <A href="?s=Youdao">Youdao</A>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="0" bgColor="#CCCCCC">
<%
Const MaxPerPage=40
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request.QueryString("page")) then
currentPage=Cint(request.QueryString("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from bot where id>0 "
if s<>"" then sql=sql&" and (bot like '%"&s&"%' or url like '%"&s&"%' or serverip='"&s&"')"
if xxjl="详细记录" then
sql=sql&" and tongji=0"
else
sql=sql&" and tongji<>0"
end if
if lb<>"" then sql=sql&" order by "&lb&" "&x&""
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("没有连接")
else
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"?"&pageurl
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
showpage totalput,MaxPerPage,"?"&pageurl
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"?"&pageurl
end if
end if
end if
sub showContent
dim i
i=0
%>
<!-- <tr>
<td height="30" colspan="6"><%= sql %> </td>
</tr>-->
<tr bgcolor="#2A3FFF">
<td width="7%" height="30" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=ID&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a> ID <a href="?s=<%=s%>&lb=ID&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="15%" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=bot&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a> 蜘蛛 <a href="?s=<%=s%>&lb=bot&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="11%" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=serverip&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a> 蜘蛛IP <a href="?s=<%=s%>&lb=serverip&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="13%" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=shijian&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a> 来访时间 <a href="?s=<%=s%>&lb=shijian&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="45%" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=url&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a> 页面URL <a href="?s=<%=s%>&lb=url&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="9%" class="STYLE2"><div align="center"><strong><a href="?s=<%=s%>&lb=tongji&x=asc" style="color:#FFFFFF; text-decoration: none;">↑</a>次数<a href="?s=<%=s%>&lb=tongji&x=desc" style="color:#FFFFFF; text-decoration: none;">↓</a></strong></div></td>
<td width="9%" align="center" valign="middle" class="STYLE2"><strong>
<input id=chkAll
onclick=CheckAll(this.form) type=checkbox
value=checkbox name=chkAll>
<br>
<input title=删除 onclick=DelAll() type=button value=删除 name=Submit class="inputs" />
</strong></td>
</tr>
<%do while not rs.eof%>
<%
dim a
a="#000000"
if instr(rs("bot"), "Google") > 0 then a="#FF0000"
if instr(rs("bot"), "Baidu") > 0 then a="#0000FF"
if instr(rs("bot"), "Yahoo") > 0 then a="#669966"
if instr(rs("bot"), "MSN") > 0 then a="#FF9900"
if instr(rs("bot"), "Sogou") > 0 then a="990033"
if instr(rs("bot"), "Soso") > 0 then a="FF6666"
%>
<tr bgcolor="#FFFFFF" onMouseOver = "this.style.backgroundColor = '#EEEEEE'" onMouseOut ="this.style.backgroundColor = '#FFFFFF'">
<td align="center"><%=rs("id")%></td>
<td align="center"><a href="?s=<%=rs("bot")%>"><font color="<%=a%>"><%=rs("bot")%></font></a></td>
<td align="center"><a href="?s=<%=rs("serverip")%>"><%=rs("serverip")%></a></td>
<td align="center"><%=rs("shijian")%></td>
<td><a href="<%=rs("url")%>" target="_blank"><%=rs("url")%></a> <a href="?s=<%=rs("url")%>">搜</a></td>
<td align="center" valign="middle"><%=rs("tongji")%></td>
<td align="center"><input type="checkbox" name="id" value="<%=rs("id")%>" onclick=Checked(form)></td>
</tr>
<%i=i+1
if i>=MaxPerPage then Exit Do
rs.movenext
loop
rs.close
set rs=nothing%>
</table>
</form>
<tr>
<td height="30" colspan="3" bgcolor="#FAFCFE"><br><div align="center">
<%
End Sub
Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If
Response.Write "<p align='center' class='contents'> "
If CurrentPage<2 Then
Response.Write "<font class='contents'>首 页 上一页</font> "
Else
Response.Write "<a href="&filename&"&page=1 class='contents'>首 页</a> "
Response.Write "<a href="&filename&"&page="&CurrentPage-1&" class='contents'>上一页</a> "
End If
If n-currentpage<1 Then
Response.Write "<font class='contents'>下一页 末 页</font>"
Else
Response.Write "<a href="&filename&"&page="&(CurrentPage+1)&" class='contents'>"
Response.Write "下一页</a> <a href="&filename&"&page="&n&" class='contents'>末 页</a>"
End If
Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> "
Response.Write "<font class='contents'> 共有"&totalnumber&"个信息 "
End Function
%>
</div></td>
</tr>
<br>
<DIV style="BORDER-TOP: #c0c0c0 1px solid; MARGIN: 10px auto 6px; OVERFLOW: hidden; HEIGHT: 2px ; "></DIV>
<div align="center" class="f"></div>
</body>
</html>
<% if request("act")="Delete" then
id=request.querystring("id")
delnews="delete * from bot where id in ("&request("id")&")"
conn.execute(delnews)
response.write ("<script>alert('删除成功，请刷新该页');this.location.href='javascript:history.back(1);';</script>")
end if
%>