![]() |
还没有留言
" 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 showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage
<%If (i Mod 2) Then%>
![]() ![]() |
留言人:<%=rs("name")%> [<%=rs("date")%>]
<% if rs("tel")="" then Response.Write "" else Response.Write "电话: "&rs("tel")&"" %>
<% if rs("email")="" then Response.Write "" else Response.Write "E-mail: "&rs("email")&"" %>
<%=rs("content")%> 留言回复:<%=rs("answer")%> |
<%
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 " >>分页 " response.write " 共"&totalnumber&"篇留言 每页显示"&maxperpage&"篇 目前显示第"&CurrentPage&"/"&n&"页 " if CurrentPage<2 then response.write "首页 上一页 " else response.write "首页 " response.write "上一页 " end if if n-currentpage<1 then response.write "下一页 尾页" else response.write "下一页 尾页" end if end function %> |