htsub.asp

contract management system

<%sub money()%>
<SCRIPT language=javascript>
<!--
function popwin(path)
{		
window.open(path,"add","height=180,width=480,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>
<%htid=Trim(Request("htid"))%>
<div class="table_southidc" ><a href=javascript:popwin("addfukuan.asp?HTid=<%=htid%>")>增加新收/付款项目</a></div>
<table width="642" height="30" border="0" cellpadding="1" cellspacing="0">
  <tr>
    <td width="78" height="15"><div align="center">发生日期</div></td>
    <td width="91"><div align="center">票据号码</div></td>
    <td width="88"><div align="center">应收金额</div></td>
    <td width="79"><div align="center">应收日期</div></td>
    <td width="70"><div align="center">实收金额</div></td>
    <td width="72"><div align="center">实收日期</div></td>
    <td width="92"><div align="center">开票金额</div></td>
    <td width="56"><div align="center">操作</div></td>
  </tr> <% dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_sf  where HTid='"&HTid&"' Order by id desc "'where name="&"'"&Id&"'  Order by id desc"
      rs.PageSize = 15   
      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
  %>
  <tr class="blue">
    <td height="15"><div align="center"><%=rs("sfdate")%></div></td>
    <td><div align="center"><%=rs("SFhaoma")%></div></td>
    <td><div align="center"><%=rs("SFyingshoujine")%></div></td>
    <td><div align="center"><%=rs("sfdate")%></div></td>
    <td><div align="center"><%=rs("SFyingshoudate")%></div></td>
    <td><div align="center"><%=rs("SFshishoudate")%></div></td>
    <td><div align="center"><%=rs("SFjine")%></div></td>
    <td><div align="center"><a href="DELSF.ASP?id=<%=rs("id")%>">删</a>/<a href="#">改</a></div></td>
  </tr>
   <%  
     rs.movenext
    next
   %>
</table>
<BR>
<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="showHT.ASP?page=1&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">首页</a>| 
      <%if pre then%>
      <a href="showHT.ASP?page=<%=intpage -1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="showHT.ASP?page=<%=intpage +1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">下页</a> |
      <%end if%>
    <a href="showHT.ASP?page=<%=rs.PageCount%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">尾页</a> </p> </div>
<%end sub%>
<%sub Tixing()%>
<%htid=Trim(Request("htid"))%>
<SCRIPT language=javascript>
<!--
function popwin(path)
{		
window.open(path,"add","height=180,width=480,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>
<%htid=Trim(Request("htid"))
set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_tixing  where HTid='"&HTid&"' 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
	 %>
   



<div class="table_southidc" >
  <div align="center"><a href=javascript:popwin("addtixing.asp?HTid=<%=htid%>")>增加新提醒</a></div>
</div>

  <div align="center">
    <%    
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %>

    <table width="642" border="0" cellpadding="1" cellspacing="0">
      <tr>
        <td width="102" class="red">提醒时间&nbsp;&nbsp;[<a href="deltixing.asp?id=<%=rs("id")%>">删</a>]</td>
        <td width="120"><%=rs("HTdatetime")%></td>
        <td width="61">事务主题</td>
        <td width="351" colspan="4"><%=rs("HTzhuti")%></td>
      </tr>
      <tr>
        <td class="blue">内 &nbsp;&nbsp;&nbsp;容 </td>
        <td colspan="6"><%=rs("HTneirong")%></td>
      </tr>
    </table>
	
	 <%  
     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="showHT.ASP?page=1&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">首页</a>| 
      <%if pre then%>
      <a href="showHT.ASP?page=<%=intpage -1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="showHT.ASP?page=<%=intpage +1%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">下页</a> |
      <%end if%>
    <a href="showHT.ASP?page=<%=rs.PageCount%>&htid=<%=htid%>&htClassid=<%=htClassid%>&htYWY=<%=htYWY%>&htFlagid=<%=htFlagid%>&ht=<%=ht%>">尾页</a> </p> </div>
  
  
    <%
	rs.close
	set rs=nothing
	
	end sub%>
  </div>