<%Session.CodePage=65001%> <%call log_chk()%>

后台管理：>> 管理

<%dim mykey,CurrentPage,TotalPages MaxPerPage=10 Set rs1= Server.CreateObject ("ADODB.RecordSet") sql="select * from bdmessage order by mx_time desc" rs1.open sql,conn,1,3 rs1.pagesize=MaxPerPage'定义每页记录数 'howmanyfields=rs.Fields.Count-1 If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs1.PageCount then CurrentPage = rs1.PageCount End If Else CurrentPage= 1 End If totalPut=rs1.recordcount 'totalput=总记录数 if CurrentPage<>1 then if (currentPage-1)*MaxPerPage < totalPut then rs1.move(currentPage-1)*MaxPerPage end if end if do while not rs1.eof and c<10%> <%c=c+1 rs1.movenext loop rs1.close set rs1=nothing%>

管理
选择	编号	申请人	公司名称	通信地址	发布日期
" />	<%=rs1("mx_id")%>	<%=rs1("mx_name")%>	"><%=left(rs1("mx_title"),25)%> ">[查看]	<%=rs1("mx_email")%>	<%=rs1("mx_time")%>
全选

<%'页面跳转 dim n,k if (totalPut mod MaxPerPage)=0 then 'n表示总页数 n= totalPut \ MaxPerPage else n= totalPut \ MaxPerPage + 1 end if k=currentPage k=currentPage if k<>1 then response.write "["+"第一页] " response.write "["+"上一页] " else Response.Write "[第一页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"最后一页] " else Response.Write "[下一页] [最后一页]" end if '页面跳转msmsms有点小毛病！就是转页没有连带搜索和类别 response.Write(" | 共"&n&"页 / "&totalPut&"条信息 / ") response.Write("当前第"&k&"页") response.Write(" ") for myi=1 to n response.Write(""&myi&"") next response.Write("") response.Write(" ")%>