currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showpages
showContent
showpages
else
currentPage=1
showpages
showContent
showpages
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i
i=0
%>
<table border="1" cellspacing="0" width="90%" bgcolor="#F0F8FF" bordercolorlight="#000000"
bordercolordark="#FFFFFF" align="center">
<tr>
<td width="12%" align="center"><strong>ID 号</strong></td>
<td width="13%" align="center"><b>类 型</b></td>
<td width="47%" align="center"><strong>信 息 名 称</strong></td>
&n
首页 上一页 2 3 4 5 6 7 8 下一页 尾页 5/17/17
asp信息查询系统(五)由毕业论文网(www.huoyuandh.com)会员上传。