<%
const MaxPerPage=5 '分页显示的纪录个数
dim sql
dim rs
dim totalPut
dim CurrentPage
dim TotalPages
dim i,j
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
set rs=server.createobject("adodb.recordset")
sql="select * from book order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "
还没信息!
"
else
totalPut=rs.recordcount
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showpages
showContent
showpages
else
if (currentPage-1)*MaxPerPage
客户名称： |
<%=rs("name")%> |
日期：<%=rs("Time")%> |
" onClick="return ConfirmDel();">删除 |
项目名称： |
<%=rs("Comane")%> |
联 系 人： |
<%=rs("Phone")%> |
联系电话： |
<%=rs("Fox")%> |
电 邮： |
<%=rs("Email")%> |
内 容： |
<%=rs("Content")%> |