admin_default.asp

contract management system

<!--#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>