<%response.expires=0%>

<%

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("db/sdoa.mdb")

%>

<%

'开始分页

Const MaxPerPage=10

dim totalPut  

dim CurrentPage

dim TotalPages

dim j

dim sql

dim Title

dim SeachModel

SeachModel=request.form("SeachModel")

if Not isempty(request("page")) then

currentPage=Cint(request("page"))

else

currentPage=1

end if

set rs=server.createobject("adodb.recordset")

sql="select * from kfyy where"

sql=Replace(sql, "where", "")

rs.open sql,conn,1,1

if err.number<>0 then

response.write "数据库中无数据"

end if

if rs.eof And rs.bof then

Response.Write "<p align='center' class='contents'> 您还没有添加内容！</p>"

else

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

showContent

showpage totalput,MaxPerPage,"pages.asp"

else

if (currentPage-1)*MaxPerPage<totalPut then

rs.move  (currentPage-1)*MaxPerPage

dim bookmark

bookmark=rs.bookmark

showContent

showpage totalput,MaxPerPage,"pages.asp"

else

currentPage=1

showContent

showpage totalput,MaxPerPage,"pages.asp"

end if

end if

end if

sub showContent

dim i

i=0

%>

<table width="100%" border="0" align="center" cellspacing="1">

  <tr>

    <td height="15" align="center" bgcolor="#CCCCCC"><strong>个人任务管理</strong></td>

  </tr>

</table>

<table width="100%" border="0" align="center" cellpadding="3" cellspacing="1">

  <tr>

  <td width="6%" align="center">序号</td>

    <td width="20%" align="center">客户</td>

  </tr>

    <%do while not rs.eof%>

  <tr>

    <td align="center"> <%=rs("id")%></td>

    <td align="center"><a href="pgshow.asp?id=<%=rs("id")%>"><%=rs("company")%></td>

  </tr>

<%

i=i+1

if i>=MaxPerPage then Exit Do

rs.movenext

loop

rs.close

set rs=nothing

%>

</table>

<% 

End Sub    

Function showpage(totalnumber,maxperpage,filename) 

Dim n

If totalnumber Mod maxperpage=0 Then 

n= totalnumber \ maxperpage 

Else

n= totalnumber \ maxperpage+1 

End If

Response.Write "<form method=Post action="&filename&">" 

Response.Write "<p align='center' class='contents'> " 

If CurrentPage<2 Then 

Response.Write "<font class='contents'>首页 上一页</font> "  

Else 

Response.Write "<a href="&filename&"?page=1&id="&request("id")&"&name="&request("name")&"    class='contents'>首页</a> " 

Response.Write "<a href="&filename&"?page="&CurrentPage-1&"&id="&request("id")&"&name="&request("name")&" class='contents'>上一页</a> " 

End If

If n-currentpage<1 Then 

Response.Write "<font class='contents'>下一页 尾页</font>"   

Else 

Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&id="&request("id")&"&name="&request("name")&" class='contents'>" 

Response.Write "下一页</a> <a href="&filename&"?page="&n&"&id="&request("id")&"&name="&request("name")&" class='contents'>尾页</a>" 

End If   

Response.Write "<font class='contents'> 页次：</font><font class='contents'>"&CurrentPage&"</font><font class='contents'>/"&n&"页</font> " 

Response.Write "<font class='contents'> 共有"&totalnumber&"条服务项目 "

Response.Write "<font class='contents'>转到：</font><input type='text' name='page' size=2 maxlength=10 class=smallInput value="&currentpage&">" 

Response.Write "&nbsp;<input type='submit'  class='button' value='GO' name='cndok'></form>" 

End Function 

%>