📄 list.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 classid
classid = Request("classid")
If classid = "" Or (Not IsNumeric(classid)) Then Response.write "参数错误！":Response.End()
classid = CLng(classid)
Dim classname
Sql="Select classname from Win_Classify where classid="&classid
Set Rs=Conn.execute(Sql)
IF Not Rs.eof Then
classname=Rs(0)
Else
FoundErr=True
ErrMsg="没有找到你要找的资源"
End If
Rs.close():set Rs=Nothing
IF FoundErr Then
Response.Write(ErrMsg)
Response.End()
End If
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 = GetListarr(classid,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"><%=classname%></span></dt>
<dd>
<%
If Clng(TotalRec)>0 Then
showData myarr
End If
%>
</dd>
</dl>
<div><%Call PageListpage(TotalPage,CurPage,sPagesize,"list.asp","?classid="&classid&"&")%></div>
</div>
<!--左侧off-->
<!--#include file="right.asp"-->
</div>
</div>
<!--主区域off-->
<!--#include file="bm.asp"-->
</body>
</html>
<script type="text/javascript" src="setcache.asp?action=list&curpage=<%=curpage%>&classid=<%=classid%>"></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -