<% 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() %>