<% sql = "Select * From message Order By msgtime DESC" Set rs=SetRsStatic(sql) If rs.eof then showmsg "對不起！目前沒有任何留言∼" else rs.pagesize=10 Page = CLng(Request("Page")) If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount ShowOnePage rs, Page %> <% Sub ShowOnePage( rs, Page ) rs.AbsolutePage = Page For iPage = 1 To rs.PageSize RsToViewMsg rs rs.MoveNext If rs.EOF Then Exit For Next End Sub Sub RsToViewMsg( rs ) memo=Replace(rs("memo"), vbCrLf, " " ) num=rs("num") Email=rs("Email") webpage=rs("webpage") If rs("sex")="男" then seximg="boy.gif" else seximg="girl.gif" end if %> <% sql_r = "Select * From mreply where mno="&num Set rs_r=SetRsR(sql_r) If Not rs_r.eof then %> <%end if%>   <%=rs("name")%>　 <%if Len(Email)>0 then%> <%end if%> 　 <%if Len(webpage)>0 then%> <%end if%> <%=rs("msgtime")%>   <%=rs("subject")%> <%=memo%> <% while Not rs_r.EOF Reply_memo=rs_r("memo") Reply_name=rs_r("name") Reply_time=rs_r("msgtime") %> <%=Reply_name%>回覆：(<%=Reply_time%>) 　<%=Reply_memo%> <% rs_r.movenext wend %> <% End Sub end if %> <%Sub Showmsg(msg)%> 系統訊息 <%=msg%> <%End Sub%> <%for p=1 to rs.pagecount%> ><%=p%> <%next%> /<%=rs.PageCount%>　共<%=rs.recordcount%>筆留言

∣國民旅遊卡商家總覽∣加入會員民宿∣關於720度環景∣720外掛環景程式∣管理中心∣

∣最佳瀏覽解析度 1024 x 768∣網頁設計：意直創意多媒體有限公司∣