|
<%if rs.bof and rs.eof then%>
<%else
rs.pagesize=3 '每页显示3个留言
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount '总页数
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages
else
if (currentPage-1)*MaxPerPage
<%
set rs=nothing
Conn.close
set Conn=nothing
sub showContent
dim i
dim k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
do while not (rs.eof or err)
k=k-1
'sql2="select member_name from member where member_id='"&rs.fields("member_id")&"'"
'set rs2=server.createobject("adodb.recordset")
'rs2.open sql2,conn,3,3
'member_name=rs.fields("Member_Name")
'rs2.close
'set rs2=nothing
%>
姓名：<%=rs.fields("lyb_name")%> E_mail："><%=rs.fields("LYB_Email")%>
发表时间：<%=rs.fields("LYB_Date")%> 电 话：<%=rs.fields("LYB_Phone")%>
·留言内容：
| <%=rs.fields("LYB_Content")%> |
<%if rs.fields("lyb_reply")<>"" then%>
·版主回复：
| <%=rs.fields("lyb_reply")%> |
<%end if%>
<%
i=i+1
if i>=MaxPerPage then exit do '循环时如果到尾部则先退出，如果记录达到页最大显示数，也退出
rs.movenext
loop
%>
<%
end sub
sub showpages()
dim n
n=totalPage
%>
<%
end sub
%>
|
| |
|
 |
|
|
|
海沃首页
| 海沃快讯
| 关于海沃
| 海沃产品
| 海沃科技
| 客户服务中心
| 特许加盟
|
人力资源
| 海沃文化
