<% TopClassType=12 RclassType=13 ClassChange=0 htmlurl="service.html" %> <%=hd_title%>
您现在的位置:首页 >  客户服务  > 网站修改意见
<% set rs=server.createobject("adodb.recordset") sql ="select * from msg where doctorid=2 and enter=1 order by time desc " rs.open sql,conn,3,3 if rs.eof or rs.bof then response.Write("


暂无相关信息
") else rs.PageSize=10 NowPage=Request("page") if NowPage="" or not isNumeric(NowPage) then NowPage=1 Nowpage=clng(Nowpage) if NowPage<1 then NowPage=1 if NowPage>rs.PageCount then NowPage =rs.PageCount rs.AbsolutePage = NowPage %> <% for i=1 to rs.PageSize Title=rs("Title") %>

留言单位:<%=rs("uname")%>  (<%=rs("Time")%>)
留    言:<%=rs("msg")%>
回    复:<%=rs("Answer")%>

<% rs.movenext if rs.eof then exit for Next %>
共<%=rs.recordcount%>篇 第<%=NowPage%>页  <%if rs.PageCount=1 or Nowpage=1 then%> 首页  <%else%> 首页  <%end if %> <% if NowPage<>"1" then Response.Write "上一页 " else Response.Write "上一页 " end if if NowPage<>rs.PageCount then Response.Write "下一页 " else Response.Write "下一页 " end if %> <%if rs.PageCount=1 or nowpage=rs.PageCount then%> 尾页  <%else%> 尾页  <%end if %> 共<% =rs.PageCount %>页 <%=rs.PageSize%>篇/页 <% response.Write "转到:" %>
<% end if rs.close() %>