<%@ LANGUAGE="VBScript" %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/articlechar.inc"-->
<!-- #include file="Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td align="center" valign="top"> <br> 
      <table width="560" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" >
        <tr> 
          <td height="28" class="back_southidc"> 
            <div align="center"><strong>留言管理 <br>
              </strong></div></td>
        </tr>
        <tr> 
          <td> 
<div align="center"> 
<% 
const MaxPerPage=5 '分頁顯示的紀錄個數 
dim sql 
dim rs 
dim totalPut 
dim CurrentPage 
dim TotalPages 
dim i,j 
 
 
if not isempty(request("page")) then 
  currentPage=cint(request("page")) 
else 
  currentPage=1 
end if 
set rs=server.createobject("adodb.recordset") 
sql="select * from book order by id desc" 
rs.open sql,conn,1,1 
 
if rs.eof and rs.bof then 
  response.write "<p align='center'>還沒有任何留言!</p>" 
else 
  totalPut=rs.recordcount  
if currentpage<1 then 
  currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
  if (totalPut mod MaxPerPage)=0 then 
   currentpage= totalPut \ MaxPerPage 
  else 
   currentpage= totalPut \ MaxPerPage + 1 
  end if 
end if 
if currentPage=1 then 
  showpages 
  showContent 
  showpages 
else 
 if (currentPage-1)*MaxPerPage<totalPut then 
  rs.move (currentPage-1)*MaxPerPage 
  dim bookmark 
  bookmark=rs.bookmark 
  showpages 
  showContent 
  showpages 
 else 
  currentPage=1 
  showContent 
 end if 
end if 
rs.close 
end if 
set rs=nothing 
conn.close 
set conn=nothing 


sub showContent 
dim i 
i=0 
do while not (rs.eof or err) %>
              <table  width="560" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000" >
                <tr bgcolor="#A4B6D7"> 
                  <td width="18%" height="25"> 
                    <div align="center"> 
                      <%if rs("name")="管理員"then%>
                      『管理員公告』 
                      <%else%>
                      用戶名 
                      <%end if%>
                    </div></td>
                  <td width="82%">&nbsp;&nbsp;<%=rs("name")%> &nbsp; <a href="Delbook.asp?id=<%=rs("ID")%>">刪除</a>&nbsp;&nbsp;&nbsp;&nbsp; 
                    <a href="Manage_Rebook.asp?id=<%=rs("id")%>"> 
                    <%if rs("name")<>"管理員" then%>
                    <%if rs("name")<>"未注冊用戶" then 
response.write "回復" 
end if 
%>
</a> <%if rs("name")="未注冊用戶" then 
response.write "沒有注冊為會員通過E-amil回復！" 
end if%> <%end if%> </td>
                </tr>
                <%if rs("email")<>"" then%>
                <tr bgcolor="#ECF5FF"> 
                  <td height="10"> 
                    <div align="center">公司名稱</div></td>
                  <td>&nbsp;&nbsp;<%=rs("CompanyName")%></td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="10"> 
                    <div align="center">聯系人</div></td>
                  <td>&nbsp;&nbsp;<%=rs("Receiver")%></td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="22"> 
                    <div align="center">聯系電話</div></td>
                  <td>&nbsp;&nbsp;<%=rs("Phone")%></td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="22"> 
                    <div align="center">聯系傳真</div></td>
                  <td>&nbsp;&nbsp;<%=rs("Fax")%></td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="22"> 
                    <div align="center">E-mail</div></td>
                  <td><a href="AdminMaillist.asp?email=<%=rs("email")%>"><%=rs("email")%></a></td>
                </tr>
                <%end if%>
                <tr bgcolor="#A4B6D7"> 
                  <td height="25"> 
                    <div align="center">主 題</div></td>
                  <td height="25">&nbsp;&nbsp;<%=rs("title")%>&nbsp;&nbsp;[<%=rs("time")%>]</td>
                </tr>
                <tr bgcolor="#ECF5FF"> 
                  <td height="25"> 
                    <div align="center">內 容</div></td>
                  <td height="25">&nbsp;&nbsp;<%=rs("content")%></td>
                </tr>
                <%if rs("rebook")<>""then%>
                <tr bgcolor="#ECF5FF"> 
                  <td height="22"> 
                    <div align="center">回復內容</div></td>
                  <td height="22">&nbsp;&nbsp;<%=rs("rebook")%></td>
                </tr>
                <%end if%>
              </table>
            </div></td>
        </tr>
      </table>
      <br> <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><div align="center">
              <% i=i+1 
 if i>=MaxPerPage then exit do 
 rs.movenext 
loop 
end sub 
sub showpages() 
 dim n 
 if (totalPut mod MaxPerPage)=0 then 
   n= totalPut \ MaxPerPage 
 else 
   n= totalPut \ MaxPerPage + 1 
 end if 
 if n=1 then 
  exit sub 
 end if 
 dim k 
 response.write "<p align='left'>&gt;&gt; 留言分頁 " 
 for k=1 to n 
 if k=currentPage then 
   response.write "[<b>"+Cstr(k)+"</b>] " 
 else 
   response.write "[<b>"+"<a href='Manage_Book.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] " 
 end if 
 next 
end sub 
%>
            </div></td>
        </tr>
      </table>
      <br> <br> </td>
  </tr>
</table>
<!-- #include file="Inc/Foot.asp" -->