<!--#include file="inc/dbconn.asp" -->
<!--#include file="inc/config.asp" -->

<link href="other/admin.css" rel="stylesheet" type="text/css">
<SCRIPT language=Javascript>
function tdClick(objName)
{
objName.style.display=(objName.style.display =='none')?'':'none';

}

</SCRIPT>
<div align="center">
<table width="632" border="0" cellpadding="1" cellspacing="0">
  <tr>
    <td ><div align="center" class="table_southidc"><strong>合同事務提醒</strong></div></td>
  </tr>
</table>

<%
set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_tixing  Order by id desc "'where name="&"'"&Id&"'  Order by id desc"
   
    rs.PageSize =10  
      rs.CursorLocation = 3
      rs.Open sql,conn,0,2,1   
      pre = true
      last = true
      page = trim(Request.QueryString("page"))
      
      if len(page) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(page) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(page) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(page)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage
    end if%>
	  <%    
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %><div align="center">
  <table width="632" height="20" border="0" cellpadding="1" cellspacing="0">
    <tr class="back_southidc">
      <td width="93"><img src="imgs/1.gif" width="10" height="9"><a href="#"onclick=tdClick(TTr<%=i%>) >查看詳細信息</a></td>
      <td width="182">時間：<span class="red"><%=rs("htdatetime")%></span></td>
      <td width="351">主題：<%=rs("htzhuti")%></td>
    </tr>
  </table>
  <table width="632" height="20" border="0" cellpadding="1" cellspacing="0" id="TTr<%=i%>"  style="DISPLAY: none">
    <tr class="tr_southidc">
      <td>內容：</td>
      <td colspan="2"><%=rs("htneirong")%></td>
    </tr>
    <tr class="tr_southidc">
      <td width="93">相關合同編號：</td>
      <td width="130"><%=rs("htid")%></td>
      <td width="403">合同名稱 ：
	    <%daima2=rs("htid")
	  
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_HT where HTID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTName")
		else
		response.write "已刪"
		end if
		rst.close
		set rst= nothing
	  %> 
	  
	  </td>
    </tr>
  </table>
</div>
 <%  
     rs.movenext
    next
   %>
   <div align="center"><span class="blue">
  <%if rs.pagecount > 0 then%>
  </span>
</div>
<td width="15%" align="left" class="blue"><div align="center" class="blue">當前頁<%=intpage%>/<%=rs.PageCount%></div></td>
<div ><span class="blue">
  <%else%>
  </span>
</div>
<td width="12%" align="left" class="blue"><div align="center"><BR>尚無任何記錄</div></td>
<div align="center"><span class="blue">
  <%end if%>
  </span>
</div>
<td width="73%" align="right"> <div align="center">
  <p class="blue"><a href="Admin_Default.asp?page=1&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">首頁</a>| 
      <%if pre then%>
      <a href="Admin_Default.asp?page=<%=intpage -1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">上頁</a>| 
      <%end if%>          
      <%if last then%>
      <a href="Admin_Default.asp?page=<%=intpage +1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">下頁</a> |
      <%end if%>
    <a href="Admin_Default.asp?page=<%=rs.PageCount%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">尾頁</a> </p> </div>
  
  
    <%
	rs.close
	set rs=nothing
	%>
    <div align="center">
      <table width="632" border="0" cellpadding="1" cellspacing="0">
        <tr>
          <td colspan="8"><hr></td>
        </tr>
        <tr>
          <td width="76" rowspan="2"><img src="imgs/yuan_01.gif" width="76" height="67"></td>
          <td width="96" height="37">[<a href="HTClass/index.asp">合同類型維護</a>]</td>
          <td width="65" rowspan="2"><img src="imgs/yuan_03.gif" width="63" height="67"></td>
          <td width="76">[<a href="HTyewuyuan/index.asp">業務員管理</a>]</td>
          <td width="72" rowspan="2"><img src="imgs/yuan_02.gif" width="72" height="69"></td>
          <td width="88">[<a href="HTdanwei/DanWeiclass.asp">往來單位類型</a>]</td>
          <td width="63" colspan="-2" rowspan="2"><img src="imgs/yuan_04.gif" width="63" height="69"></td>
          <td width="80">[<a href="HTdanwei/ShowHTdanwei.asp">聯系記錄</a>]</td>
        </tr>
        <tr>
          <td height="14">[<a href="HTflag/index.asp">合同狀態維護</a>]</td>
          <td>[<a href="HTclass/AddHTong.asp">增加新合同</a>]</td>
          <td>[<a href="HTdanwei/AddDanWei.asp">增加往來單位</a>]</td>
          <td>&nbsp;</td>
        </tr>
        <tr>
          <td height="14" colspan="8">&nbsp;</td>
        </tr>
        <tr>
          <td>系統管理 ： </td>
          <td height="14">[<a href="HTadmin/bak.asp">數據備份</a>]</td>
          <td>[<a href="HTadmin/0.asp">數據清空</a>]</td>
          <td>&nbsp;</td>
          <td>&nbsp;</td>
          <td colspan="3"><a href="http://hi.baidu.com/aspsoft" target="_blank">http://hi.baidu.com/aspsoft</a></td>
        </tr>
      </table>
      <%call endconn() %>
  </div>