<%jsr=replace(jsr,"||","|")
			  m=0
			  do while jsr<>"" and len(jsr)>1
			     jsr=mid(jsr,instr(jsr,"|")+1)
				 temp=mid(jsr,1,instr(jsr,"|")-1)
				 jsr=mid(jsr,instr(jsr,"|"))
			  %>
                  <td width="12%"><%=temp%></td>
            <%m=m+1
			     if m mod 8=0 then response.write "</tr><tr class=fontsize12h20>"
			  loop%>
			     <%if m mod 8<>0 then
				       for n=m mod 8 to 7
					       %><td width="12%">　</td><%
					   next
				   end if%>
                </tr>
              </table>
		<%end if%>
			  </td>
          </tr>
        </table>
		<%end if%>
		<%if doing="listlooked" then%>
        <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
          <tr> 
            <td width="130" height="20" valign="top" class="fontsize12h20wu"> 
              <div align="center"><strong>已查看此信息人名單</strong></div></td>
            <td width="598"><table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr> 
		<%ykr=replace(ykr,"||","|")
		  m=0
		  do while ykr<>"" and len(ykr)>1
		      ykr=mid(ykr,instr(ykr,"|")+1)
			  temp=mid(ykr,1,instr(ykr,"|")-1)
			  ykr=mid(ykr,instr(ykr,"|"))
		%>
                  <td width="33%" class="fontsize12h20"><%=temp%></td>
         <%m=m+1
		      if m mod 3=0 then response.write "</tr><tr class=fontsize12h20>"
		    loop%>
			     <%if m mod 3<>0 then
				       for n=m mod 3 to 2
					       %><td width="33%" class="fontsize12h20">　</td><%
					   next
				   end if%>			
                </tr>
              </table></td>
          </tr>
        </table> 
		<%end if%>
		<%if doing="listnotlook" then%>
        <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
          <tr> 
            <td width="130" height="20" valign="top" class="fontsize12h20"> 
              <div align="center"><strong>未查看此信息人名單</strong></div></td>
            <td width="596"> 
              <%if user_all="1" then%>
              <table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr> 
				<%str="select 姓名 from user_teacher order by "&jsrx&""
				  set rs=conn.execute(str)
				  m=0
				  do while not rs.eof
				     if instr(ykr,"|"&rs("姓名")&"(")=0 then
					    m=m+1%>
                      <td width="12%" class="fontsize12wu"><%=rs("姓名")%></td>
				     <%end if%>
                 <%rs.movenext
				     if m mod 8=0 then response.write "</tr><tr class=fontsize12wu>"
				   loop
				   rs.close%>
				   <%if m mod 8<>0 then
				       for n=m mod 8 to 7
					       %><td width="12%">　</td><%
					   next
				   end if%>
                </tr>
              </table>
              <%else%>
              <table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr> 
				<%jsr=replace(jsr,"||","|")
				  m=0
		          do while jsr<>"" and len(jsr)>1
		             jsr=mid(jsr,instr(jsr,"|")+1)
			         temp=mid(jsr,1,instr(jsr,"|")-1)
			         jsr=mid(jsr,instr(jsr,"|"))
				         if instr(ykr,"|"&temp&"(")=0 then
					        m=m+1%>
                  <td width="12%" class="fontsize12h20"><%=temp%></td>
				        <%end if
						if m mod 8=0 then response.write "</tr><tr class=fontsize12wu>"
			       loop%>
				   <%if m mod 8<>0 then
				       for n=m mod 8 to 7
					       %><td width="12%">　</td><%
					   next
				   end if%>
                </tr>
              </table>
			  <%end if%> </td>
          </tr>
        </table>
		<%end if%>
<%if doing="listclear" then%>
        <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
          <tr> 
            <td width="130" height="20" class="fontsize12h20wu">
<div align="center"><strong>清除此信息人名單</strong></div></td>
            <td width="598"><table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr>
	<%qcr=replace(qcr,"||","|")
	  m=0
		do while qcr<>"" and len(qcr)>1
			     qcr=mid(qcr,instr(qcr,"|")+1)
				 temp=mid(qcr,1,instr(qcr,"|")-1)
				 qcr=mid(qcr,instr(qcr,"|"))
			  %>
                  <td width="12%" class="fontsize12wu"><%=temp%></td>
             <%m=m+1
			     if m mod 8=0 then response.write "</tr><tr class=fontsize12h20>"
		loop%>
			     <%if m mod 8<>0 then
				       for n=m mod 8 to 7
					       %><td width="12%">　</td><%
					   next
				   end if%>
                </tr>
              </table></td>
          </tr>
        </table>
<%end if%>
        <table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="fontsize10">　</td>
          </tr>
        </table> </td>
    </tr>
  </table>
  <table width="760" border="0" align="center" cellpadding="0" cellspacing="0" class="tablelrb">
    <tr>
      <td class="fontsize04"> 　</td>
    </tr>
  </table>
<%if sendyesno="1" or user_class="管理員" then%>
  <table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
    <tr>
      <td width="757" bgcolor="#6699FF">
<table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="fontsize10">　</td>
          </tr>
        </table>
        <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><form name="formly" method="post" action="admin_disp.asp?doing=liuyan&disp_id=<%=disp_id%>&pageno=<%=pageno%>&m=<%=n%>">
                <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
                  <tr> 
                    <td height="30"> <div align="center" class="fontsize14"><strong>對 
                        此 信 息 留 言</strong></div></td>
                  </tr>
                  <tr> 
                    <td><div align="center"> 
                        <textarea name="ly" style="font-family:宋體;font-size:14px" cols="100" rows="4" id="ly"></textarea>
                      </div></td>
                  </tr>
                  <tr> 
                    <td height="30"> <span class="fontsize12wu">　　附件：</span> 
                      <input type="button" name="Submit2" class="inputbox" value="上傳附件" style="font-size: 9pt;cursor:hand" onclick="javascript:upload1()" title="選擇上傳文件"></td>
                  </tr>
                  <tr>
                    <td height="30"><div align="center">
                        <input name="Submit" type="submit" class="inputbox" value="發送留言">
                        　　　　　　 
                        <input name="Submit2" type="reset" class="inputbox" value="重寫留言">
                      </div></td>
                  </tr>
                </table>
              </td></form>
          </tr>
        </table>
        <table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td class="fontsize10">　</td>
          </tr>
        </table></td>
    </tr>
  </table>
<%end if%>
  <table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
    <tr>
      <td class="fontsize04">　</td>
    </tr>
  </table>
<%if lycount>0 then%>
  <table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelrb">
    <tr> 
      <td bgcolor="#6699FF"><table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="fontsize10">　</td>
          </tr>
        </table>
        <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
           <tr>
            <td height="30" valign="middle"><div align="center" class="fontsize14"><strong>留 
                言 信 息</strong></div></td>
            <td valign="middle">
<div align="center" class="fontsize14"><strong>已 有 留 言 內 容</strong></div></td>
          </tr>
          <%str="select id,內容,發文日期,發文時間,發文者,附件數,附件說明,附件 from woa where 跟貼主題="&disp_id&" order by id"
  rs.open str,conn,3,2
  rs.pagesize=lypagesize
  
  '確定顯示的頁碼
   pagenoly=request("pagenoly")
     if isnumeric(pagenoly)=false then pagenoly=1 end if
   pagenoly=cint(pagenoly)
   if pagenoly="" or pagenoly<=0 then
     pagenoly=1
   end if
   if pagenoly>rs.pagecount then
     pagenoly=rs.pagecount
   end if
   'response.write pagenoly
%>
          <%rs.absolutepage=pagenoly
        for nn=1 to rs.pagesize%>
          <tr> 
            <td width="130" valign="top"> <table width="125" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr> 
                  <td class="fontsize12">留 言 者：<%=rs("發文者")%></td>
                </tr>
                <tr> 
                  <td class="fontsize12">留言日期：<%=rs("發文日期")%></td>
                </tr>
                <tr> 
                  <td class="fontsize12">留言時間：<%=rs("發文時間")%></td>
                </tr>
		<%if rs("發文者")=user_name or user_class="管理員" then%>
                <tr>
                  <td class="fontsize12"><div align="center">　<span class="inputbox"><a href="admin_disp.asp?doing=delely&disp_id=<%=disp_id%>&dele_id=<%=rs("id")%>&pageno=<%=pageno%>&pagenoly=<%=pagenoly%>&m=<%=n%>" class="fontsize12wu">刪除留言</a></span>　</div></td>
                </tr>
		<%end if%>
              </table></td>
            <td width="598" valign="top"><span class="fontsize12h20">　　<%=rs("內容")%>　 
              <%if rs("附件數")>0 then %>
              </span> 
              <table width="98%" border="0" align="center" cellpadding="2" cellspacing="0">
                <tr> 
                  <td colspan="2"><hr></td>
                </tr>
                <tr> 
                  <td width="60" height="20" valign="top" class="fontsize14h20"> 
                    <div align="right">附件：</div></td>
                  <td><table width="90%" border="0" cellspacing="0" cellpadding="2">
                      <%fj_sm=rs("附件說明")
			  fj_name=rs("附件")
			  for m=1 to rs("附件數")
			     temp1=mid(fj_sm,1,instr(fj_sm,"|")-1)
				 fj_sm=mid(fj_sm,instr(fj_sm,"|")+1)
				 temp2=mid(fj_name,1,instr(fj_name,"|")-1)
				 fj_name=mid(fj_name,instr(fj_name,"|")+1)
			%>
                      <tr> 
                        <td><a href=<%=temp2%> target="_blank" class="fontsize12"><%=temp1%></a></td>
                      </tr>
                      <%next%>
                    </table></td>
                </tr>
              </table>
              <span class="fontsize12h20">
              <%end if%>
              </span></td>
          </tr>
          <%rs.movenext
	     if rs.eof then exit for
	    next%>
        </table>
        <table width="700" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="fontsize04">　</td>
          </tr>
        </table>
        <table width="740" border="1" align="center" cellpadding="2" cellspacing="0" borderColorLight="#000000" borderColorDark="#ffffff" bgcolor="#99CCFF">
          <tr> 
            <td height="30" class="fontsize12">　　
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=1 class="fontsize12wu">首頁</a> 
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=<%=pagenoly-5%> class="fontsize12wu">前五頁</a> 
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=<%=pagenoly-1%> class="fontsize12wu">前頁</a> 
			第<font color="#FF0000"><strong><%=pagenoly%></strong></font>頁 
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=<%=pagenoly+1%> class="fontsize12wu">后頁</a> 
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=<%=pagenoly+5%> class="fontsize12wu">后五頁</a> 
			<a href=admin_disp.asp?disp_id=<%=disp_id%>&pageno=<%=pageno%>&pagenoly=<%=rs.pagecount%> class="fontsize12wu">尾頁</a>　　　共有留言<strong><font color="#FF0000"><%=rs.recordcount%></font></strong>　每頁<font color="#FF0000"><strong><%=rs.pagesize%></strong></font>　共<font color="#FF0000"><strong><%=rs.pagecount%></strong></font>頁</td>
          </tr>
        </table>
        <table width="600" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td class="fontsize10">　</td>
          </tr>
        </table></td>
    </tr>
  </table>
  <table width="760" border="0" cellpadding="0" cellspacing="0" class="tablelr">
    <tr>
      <td class="fontsize04">　</td>
    </tr>
  </table>
<%end if%>
  <table width="760" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td><!--#include file="bottom.asp" --></td>
    </tr>
  </table>
</div>
</body>
</html>