<%=rs2("GBname")%>

<% if rs3.Eof then Response.Write "目前沒有任何留言
" else rs3.absolutePage=Page Job=rs3.PageSize + 1 do While not rs3.Eof Job=Job-1 If Job=0 then Exit do if rs3("sex")="M" then sex="男生" elseif rs3("sex")="F" then sex="女生" else sex="不明" end if %>

　<%=rs3("name")%>(<%=sex%>)<% if rs3("MAIL")<>"" then %>

<% end if %> <% if rs3("homepage")<>"" then %>

<% end if %> [ <%=rs3("topic")%> ] <%=rs3("time")%>　<% if session("root")="root"then %>IP:<%=rs3("IP")%><% End If %>　

回覆留言

<% if session("root")="root" then %>" onmouseover="window.status='刪除'; return true;" onmouseout="window.status='';" target="_self">

<% else %>

<% end if %>

<% if rs3("secret")="0" and session("root")="root"then %>
><%=rs3("message")%><% end if %> <% if rs3("secret")="0" and session("root")<>"root"then %>

" target="_top">這是給站長的一封悄悄話...

<% end if %><% if rs3("secret")="1"then %>><%=rs3("message")%><% end if %>

<% If rs3("re")="1" then Set rs4=Server.CreateObject("ADODB.RecordSet") rs4.Open "Select * From ReCuteBook Where ID=" & rs3("ID") & " order by time",conn,1,3 While Not rs4.Eof if rs4("sex")="M" then sex="男生" elseif rs4("sex")="F" then sex="女生" else sex="不明" end if%>

<%=Trim(rs4("name"))%>(<%=sex%>)回覆 <% if rs4("MAIL")<>"" then %>

<% end if %><% if rs4("homepage")<>"" then %>

<% end if %><%=rs4("time")%><% if session("root")="root"then %>　IP:<%=rs4("IP")%><% End If %>

<% if rs3("secret")="0" and session("root")<>"root"then %> <%Else%> <% end if %>

<% if session("root")="root" then %>" onmouseover="window.status='刪除'; return true;" onmouseout="window.status='';" target="_self">

alt="刪除" border=0><%Else%>

border=0><% end if %>

" target="_top">悄悄話要悄悄看喔~~~

><%=rs4("message")%>

<% rs4.MoveNext Wend rs4.Close Set rs4=Nothing End if %>

<% rs3.movenext loop end if %>

<% if Page=1 or Page="" then Response.Write "上一頁" Else PageNo=Page-1 Response.Write "上一頁" end if Response.Write " || " if Page=rs3.PageCount then Response.Write "下一頁" Else PageN=Page+1 Response.Write "下一頁" end if %>

跳頁選擇：