<%
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from webdiy_mb ",conn,1,3
if rs.bof and rs.eof then
response.Write("没有模板")
else
'定义分页
rs.PageSize=10'每页显示的记录数
total_page=rs.PageCount
total_red=rs.RecordCount
current_page=Request.Form("me_page")
if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if
if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if
rs.AbsolutePage=current_page
'放表格的行头
%>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<%
For j = 1 to 5
if rs.EOF then Exit For
response.write("<tr>")
For i=1 to 2
if rs.EOF then
Exit For
end if
%>
<td align="center"> <%=rs("mb_title")%> <a href="mblist.asp?id=<%=rs("id")%>"> </td>
<%
rs.movenext
Next
%>
<%
next
end if
%>
</tr>
</table>
<table>
<tr align="right">
<td height="30" align="right"><div align="right" class="a01">共 <%=total_red%> 条记录,显示第 <%=current_page%>页/总<%=total_page%>页
<%if total_red>rs.pagesize then%>
<%call showpage%>
转到第
<input type="text" name="goto_page1" value="<%=current_page%>" style="border: 1px solid rgb(200,200,200)" size=2 maxlength=3>
页
<input hidefocus type="button" value="GoTo" name="cmd_goto2" onClick="javascript:viewPage(document.all.goto_page1.value);" style="width:40px; BORDER-RIGHT: #C2C2C2 1px solid; BORDER-TOP: #FFFFF0 1px solid; BORDER-LEFT: #F2F2F9 1px solid; COLOR: #000000; BORDER-BOTTOM: #C2C2C2 1px solid; BACKGROUND-COLOR: #F2F2F2">
<!--#include file="../pub/showpage.asp"-->
<%end if%>
</div>
</td>
<form action="mb_list.asp" method=post name="frm_page">
<input type="hidden" name="me_page">
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="sortid" value="<%=sortid%>">
</form>
</tr>
</table>
showpage.asp源文件:
<script language="javascript">
function viewPage(ipage){
document.frm_page.me_page.value=ipage;
document.frm_page.submit();
}
</script>
<%
sub showpage() '显示分页导航条
dim n,k
n=total_page
if n>1 then
k=current_Page
if k=1 then
response.write " | <font color='#999999' >首页</font>"
response.write " | <font color='#999999' >上页</font>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language='javascript'>下页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language='javascript'>尾页</a>"
elseif k=n then
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language='javascript'>首页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
response.write " | <font color='#999999'>下页</font>"
response.write " | <font color='#999999'>尾页</font>"
else
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language ='javascript'>首页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language ='javascript'>下页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language ='javascript'>尾页</a>"
end if
else
response.write " | <font color='#999999'>首页</font>"
response.write " | <font color='#999999'>上页</font>"
response.write " | <font color='#999999'>下页</font>"
response.write " | <font color='#999999'>尾页</font>"
end if
end sub
%>
set rs=server.CreateObject("ADODB.recordset")
rs.Open "select * from webdiy_mb ",conn,1,3
if rs.bof and rs.eof then
response.Write("没有模板")
else
'定义分页
rs.PageSize=10'每页显示的记录数
total_page=rs.PageCount
total_red=rs.RecordCount
current_page=Request.Form("me_page")
if current_page="" then
current_page=1
elseif not isnumeric(current_page) then
current_page=1
else
current_page=cint(current_page)
end if
if current_page>total_page then
current_page=total_page
elseif current_page<1 then
current_page=1
end if
rs.AbsolutePage=current_page
'放表格的行头
%>
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<%
For j = 1 to 5
if rs.EOF then Exit For
response.write("<tr>")
For i=1 to 2
if rs.EOF then
Exit For
end if
%>
<td align="center"> <%=rs("mb_title")%> <a href="mblist.asp?id=<%=rs("id")%>"> </td>
<%
rs.movenext
Next
%>
<%
next
end if
%>
</tr>
</table>
<table>
<tr align="right">
<td height="30" align="right"><div align="right" class="a01">共 <%=total_red%> 条记录,显示第 <%=current_page%>页/总<%=total_page%>页
<%if total_red>rs.pagesize then%>
<%call showpage%>
转到第
<input type="text" name="goto_page1" value="<%=current_page%>" style="border: 1px solid rgb(200,200,200)" size=2 maxlength=3>
页
<input hidefocus type="button" value="GoTo" name="cmd_goto2" onClick="javascript:viewPage(document.all.goto_page1.value);" style="width:40px; BORDER-RIGHT: #C2C2C2 1px solid; BORDER-TOP: #FFFFF0 1px solid; BORDER-LEFT: #F2F2F9 1px solid; COLOR: #000000; BORDER-BOTTOM: #C2C2C2 1px solid; BACKGROUND-COLOR: #F2F2F2">
<!--#include file="../pub/showpage.asp"-->
<%end if%>
</div>
</td>
<form action="mb_list.asp" method=post name="frm_page">
<input type="hidden" name="me_page">
<input type="hidden" name="keyword" value="<%=keyword%>">
<input type="hidden" name="sortid" value="<%=sortid%>">
</form>
</tr>
</table>
showpage.asp源文件:
<script language="javascript">
function viewPage(ipage){
document.frm_page.me_page.value=ipage;
document.frm_page.submit();
}
</script>
<%
sub showpage() '显示分页导航条
dim n,k
n=total_page
if n>1 then
k=current_Page
if k=1 then
response.write " | <font color='#999999' >首页</font>"
response.write " | <font color='#999999' >上页</font>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language='javascript'>下页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language='javascript'>尾页</a>"
elseif k=n then
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language='javascript'>首页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
response.write " | <font color='#999999'>下页</font>"
response.write " | <font color='#999999'>尾页</font>"
else
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(1) & ")' language ='javascript'>首页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k-1) & ")' language ='javascript'>上页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(k+1) &")' language ='javascript'>下页</a>"
response.write " | <a class=a01 href='javascript:viewPage(" & cstr(n) & ")' language ='javascript'>尾页</a>"
end if
else
response.write " | <font color='#999999'>首页</font>"
response.write " | <font color='#999999'>上页</font>"
response.write " | <font color='#999999'>下页</font>"
response.write " | <font color='#999999'>尾页</font>"
end if
end sub
%>