application("siliao" & 40)    = trim(request("towhoway"))
          application("zixiao" & 40)    = zixiao
          application("page" & 40)      = inpm
          application("tuan" & 40)      = tuan
          application("tietu" & 40)     = tietu
          application("saytime" & 40)   = time
          application.unlock
   end if

   r_title=replace(r_title," ","")

if application("title")<>"" then  response.write "<center>"&application("title")&"</center><br>"
if r_refresh="down" then
   for i=1 to 40 step 1
   if application("systemsay"&i)<>"" or application("me"&i)<>"" or application("to"&i)<>"" or application("page"&i)<>"" then
       if application("systemsay"&i)="yes" then %>
          <font color=<%=application("color"&i)%>><%=r_title%>公告：<a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
          <%if application("sexsay"&i)="boy" then%>
          #3366FF>Boy
          <%else%>
          #FF0000>Girl
          <%end if%> <%=application("me"&i)%></font></a>
		  <%if session("userlevel")>5 then%>
		  <font size=-3>[<%=application("showip"&i)%>]</font>
		  <%end if%>
          <%=application("page"&i)%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
       <% elseif application("systemsay"&i)="function" then%>
	      <font color=<%=application("color"&i)%>>
          <%if application("sexsay"&i)="boy" then
		       functioncolor="<font color=#3366FF>"
			else
			   functioncolor="<font color=#FF6060>"
			end if
			functionuser=application("me"&i)
			if session("userlevel")>5 then
			   functionip="<font size=-3>["&application("showip"&i)&"]</font>"
			   else
			   functionip=""
			   end if
			   if application("me"&i)=session("user") then
			      changefunction="〖<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='選取"&functionuser&" 作為談話對象'>"&functioncolor&functionuser&"</font></a>〗"&functionip&" "
               else
			     changefunction="<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='選取"&functionuser&" 作為談話對象'>"&functioncolor&functionuser&"</font></a>"&functionip&" "
                 end if
  		   response.write replace(replace(application("page"&i),"var_who",changefunction),"var_to",application("to"&i))%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
	   <%
	   else
	   if application("to"&i)="大家" then %>
	            <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對 大家 說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
                <%
	   else
          if application("siliao"&i)="yes" then
             if application("me"&i)=session("user") or application("to"&i)=session("user") then%>
                →<font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對<%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>悄悄說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
                <%end if%>
             <%else%>
                <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對<%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
             <%end if
		  end if
       end if
   else
   end if
   next
else
   for i=40 to 1 step -1
   if application("systemsay"&i)<>"" or application("me"&i)<>"" or application("to"&i)<>"" or application("page"&i)<>"" then
       if application("systemsay"&i)="yes" then %>
          <font color=<%=application("color"&i)%>><%=r_title%>公告：<a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
          <%if application("sexsay"&i)="boy" then%>
          #3366FF>Boy
          <%else%>
          #FF6060>Girl
          <%end if%> <%=application("me"&i)%></font></a>
		  <%if session("userlevel")>5 then%>
		  <font size=-3>[<%=application("showip"&i)%>]</font>
		  <%end if%>
          <%=application("page"&i)%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
       <% elseif application("systemsay"&i)="function" then%>
	      <font color=<%=application("color"&i)%>>
          <%if application("sexsay"&i)="boy" then
		       functioncolor="<font color=#3366FF>"
			else
			   functioncolor="<font color=#FF6060>"
			end if
			functionuser=application("me"&i)
			if session("userlevel")>5 then
			   functionip="<font size=-3>["&application("showip"&i)&"]</font>"
			   else
			   functionip=""
			   end if
			   if application("me"&i)=session("user") then
			      changefunction="〖<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='選取"&functionuser&" 作為談話對象'>"&functioncolor&functionuser&"</font></a>〗"&functionip&" "
               else
			     changefunction="<a href='javascript:selectwho("&chr(34) & functionuser & chr(34)&");' title='選取"&functionuser&" 作為談話對象'>"&functioncolor&functionuser&"</font></a>"&functionip&" "
                 end if
  		   response.write replace(replace(application("page"&i),"var_who",changefunction),"var_to",application("to"&i))%></font><font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
	   <%
	   else
	   if application("to"&i)="大家" then %>
	            <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對 大家 說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
                <%
	   else
          if application("siliao"&i)="yes" then
             if application("me"&i)=session("user") or application("to"&i)=session("user") then%>
                →<font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對<%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>悄悄說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
                <%end if%>
             <%else%>
                <font color=<%=application("color"&i)%>><%if application("me"&i)=session("user") then response.write "〖"%><a href="javascript:selectwho('<%=application("me"&i)%>');" title="選取 <%=application("me"&i)%> 作為談話對象"><font color=
                <%if application("sexsay"&i)="boy" then%>
                #3366FF><%else%>#FF6060><%end if%><%=application("me"&i)%></font></a><%if application("me"&i)=session("user") then response.write "〗"%><%if session("userlevel")>5 then%><font size=-3>[<%=application("showip"&i)%>]</font>
                <%end if%><%=application("mood"&i)%>對<%if application("to"&i)=session("user") then response.write "〖"%><%=application("to"&i)%><%if application("to"&i)=session("user") then response.write "〗"%>說：
                <%=application("page"&i)%><font face=wingdings><%=application("tuan"&i)%></font><%=application("tietu"&i)%></font> <font size=-3 color=black>(<%=application("saytime"&i)%>)</font><br>
             <%end if
		  end if
       end if
   else
   end if
   next
end if
response.write r_link
 %>
   <a name="dian"></a>
</body>
</html>