📄 keywords.asp
字号:
<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>
<%call checkmanage("03")%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="manage.css" type="text/css">
</head>
<BODY background="../images/admin/back.gif">
<%
if request("action")="del" then
conn.execute "delete from buyok_key"
response.write "<script language='javascript'>"
response.write "alert('统计数据已被清除，系统将从重新开始统计。');"
response.write "</script>"
end if
%>
<table width="98%" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 0px" bordercolor="#333333" cellspacing="0" cellpadding="2">
<tr class=backs><td class=td height=18>搜索关键词统计</td></tr>
<tr><td>
<table border="1" width="100%" cellSpacing=0 cellPadding=3 bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF" bordercolor="#FFFFFF">
<tr>
<td width="33%">关键词</td>
<td width="33%">最近搜索时间</td>
<td width="33%">搜索次数
<span style="cursor:hand" onclick="{if(confirm('该操作不可恢复！\n\n确认要删除全部统计数据吗？ ')){location.href='keywords.asp?action=del';}}"><font color=red><u>清除统计数据</u></font></span>
</td>
</tr>
<%
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from buyok_key order by num desc"
rs.open sql,conn,1,3
if rs.eof and rs.bof then
%>
<tr>
<td colspan=3>暂时没有访问者搜索商品</td>
</tr>
<%
else
pages = 20 '每页记录数
rs.pageSize = pages
allPages = rs.pageCount '计算一共能分多少页
page = Request("page")
'if语句属于基本的排错处理
if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page
do while not rs.eof and pages>0
%>
<tr>
<td><span alt="用户曾在本站以“<font color=red><%=rs("keywords")%></font>”为关键字搜索商品"><%=rs("keywords")%></span></td><td><%=rs("keydate")%></td><td><%=rs("num")%></td>
</tr>
<%
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<%
call listpages()
%>
</td></tr>
</table>
</body></html>
<%
'分页
sub listPages()
if allpages <= 1 then exit sub
if page = 1 then
response.write "<font color=darkgray>首页 前页</font>"
else
response.write "<a href="&request.ServerVariables("script_name")&"?page=1>首页</a> <a href="&request.ServerVariables("script_name")&"?page="&page-1&">前页</a>"
end if
if page = allpages then
response.write "<font color=darkgray> 下页 末页</font>"
else
response.write " <a href="&request.ServerVariables("script_name")&"?page="&page+1&">下页</a> <a href="&request.ServerVariables("script_name")&"?page="&allpages&">末页</a>"
end if
response.write " 第"&page&"页 共"&allpages&"页"
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -