📄 search.asp
字号:
<!--#include file="inc/const.asp"-->
<%
openConn
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>xml缓存打造高性能web站点</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="" name="keywords">
<meta content="" name="description">
<link href="images/style.css" type="text/css" rel="stylesheet">
<script type="text/javascript">
function overtb(this_s)
{
this_s.style.background='#f2f8fa';
}
function overtb2(this_s)
{
this_s.style.background='#cdebf8';
}
function outtb(this_s)
{
this_s.style.background='';
}
</script>
<meta content="MSHTML 6.00.2900.3395" name="GENERATOR">
</head>
<body>
<!--#include file="top.asp"-->
<%
Dim keyword
keyword = Request("keyword")
If keyword = "" Then Response.write "参数错误！":Response.End()
Dim sPagesize,TotalPage,CurPage,TotalRec,CachePageNum
sPagesize = 20
CachePageNum = 10
CurPage = Trim(Request("page"))
IF CurPage="" Or (Not IsNumeric(CurPage)) Then
CurPage=1
Else
CurPage=Clng(CurPage)
End IF
Dim myarr
myarr = GetSearcharr(keyword,CurPage,sPagesize,CachePageNum,TotalRec)
'总页数
TotalPage = int(clng(TotalRec)/sPagesize*-1)*-1
%>
<!--主区域on-->
<div id="main">
<div id="main_bg">
<!--左侧on-->
<div id="main_left">
<dl class="recommend">
<dt><span class="lblock"><%=keyword%></span></dt>
<dd>
<%
If Clng(TotalRec)>0 Then
showData myarr
End If
%>
</dd>
</dl>
<div><%Call PageListpage(TotalPage,CurPage,sPagesize,"search.asp","?keyword="&keyword&"&")%></div>
</div>
<!--左侧off-->
<!--#include file="right.asp"-->
</div>
</div>
<!--主区域off-->
<!--#include file="bm.asp"-->
</body>
</html>
<script type="text/javascript" src="setcache.asp?action=search&curpage=<%=curpage%>&keyword=<%=keyword%>"></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -