sub.asp

contract management system

        <table width="517" border="0" cellpadding="1" cellspacing="0">
          <tr class="back_southidc">
            <td colspan="6"><div align="center">增加记录
              <input name="HTdanweiID" type="hidden" value="<%=HtdanweiID %>">
            </div></td>
          </tr>
          <tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
            <td width="100">联系人姓名</td>
            <td width="88">电话</td>
            <td width="49">地址</td>
            <td width="35">职务</td>
            <td width="60">其他</td>
            <td width="173">&nbsp;</td>
          </tr>
          <tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
            <td><input name="lianxirenname" type="text" id="lianxirenname" size="10"></td>
            <td><input name="tel" type="text" id="tel" size="15"></td>
            <td><input name="dizhi" type="text" id="dizhi"></td>
            <td><input name="zhiwu" type="text" id="zhiwu" size="10"></td>
            <td><input name="qita" type="text" id="qita"></td>
            <td>&nbsp;</td>
          </tr>
          <tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td><input type="submit" name="Submit3" value=" 提 交 "></td>
            <td><input type="reset" name="Submit4" value=" 重 置 "></td>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </div>
    </form>
  </div>
 
    <%
rs.close
set rs=nothing
end sub %>

<%sub ht()%>
<%HtdanweiID =	Trim(Request("ID"))
HtdanweiclassID =	Trim(Request("classID"))

 set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_ht  WHERE HTdanweiID1='"&HTdanweiID&"' or HTdanweiID2 ='"&HTdanweiID&"'Order by id desc "

       rs.PageSize = 10  
      rs.CursorLocation = 3
      rs.Open sql,conn,0,2,1   
      pre = true
      last = true
      pages = trim(Request.QueryString("pages"))
      
      if len(pages) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(pages) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(pages) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(pages)
             end if
         end if
      end if
    if not rs.eof then
         rs.AbsolutePage = intpage
    end if
	%>
<SCRIPT language=Javascript>
function tdClick(objName)
{
objName.style.display=(objName.style.display =='none')?'':'none';

}

</SCRIPT>
<% 
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
 
%>
  <!-- xunhuan  Start *** -->
<table width="534" border="0" cellpadding="1" cellspacing="0">
  <tr class="back_southidc">
    <td width="93"><a href="#" onclick=tdClick(TTr<%=i%>) >→查看详细资料</a></td>
    <td width="61">合同编号:</td>
    <td width="104"><%=rs("HTid")%></td>
    <td width="70">合同名称:</td>
    <td width="196"><%=rs("HTname")%></td>
    </tr>
</table>
  <!-- Ziliao Start *** --> 
   <table width="534" border="0" cellpadding="1" cellspacing="0" id="TTr<%=i%>"  style="DISPLAY: none" >
  <tr bgcolor="#FFFFCC" >
    <td width="65" height="15">合同类型:</td>
    <td width="92"><%daima2=rs("HTclassID")
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_HTClass where HTClassID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTClassName")
		else
		response.write "类型已删"
		end if
		rst.close
		set rst= nothing
	  %></td>
    <td width="70">甲 方:</td>
    <td colspan="3"><%daima2=rs("HTdanweiID1")
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_danwei where HTdanweiID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTdanweiName")
		else
		response.write "已删"
		end if
		rst.close
		set rst= nothing
	  %></td>
    </tr>
  <tr bgcolor="#FFFFCC" >
    <td>业务员:</td>
    <td> <%daima2=rs("HTywyID")
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_HTywy where HTywyID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTywyName")
		else
		response.write "已删"
		end if
		rst.close
		set rst= nothing
	  %></td>
    <td>乙 方:</td>
    <td colspan="3"><%daima2=rs("HTdanweiID2")
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_danwei where HTdanweiID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTdanweiName")
		else
		response.write "已删"
		end if
		rst.close
		set rst= nothing
	  %></td>
    </tr>
  <tr bgcolor="#FFFFCC">
    <td>金额:</td>
    <td><%=rs("HTmoney")%></td>
    <td>甲负责人</td>
    <td width="106"><%=rs("HTjiafangren")%></td>
    <td width="70">乙负责人</td>
    <td width="119"><%=rs("HTyifangren")%>
    </td>
  </tr>
  <tr bgcolor="#FFFFCC" >
    <td> 签定日期:</td>
    <td><%=rs("HTqidingtime")%></td>
    <td> 开始日期:</td>
    <td><%=rs("HTstartime")%></td>
    <td> 截止日期:</td>
    <td><%=rs("HTovertime")%></td>
  </tr>
  <tr bgcolor="#FFFFCC">
    <td>收/付款:</td>
    <td><%=rs("HT")%> 款</td>
    <td>合同状态：</td>
    <td >
	<%daima2=rs("HTflagid")
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_HTflag where HTflagID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTflagName")
		else
		response.write "已删"
		end if
		rst.close
		set rst= nothing
	  %>

	
	
	</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="show.asp?pages=1&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">首页</a>| 
      <%if pre then%>
      <a href="show.asp?pages=<%=intpage -1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="show.asp?pages=<%=intpage +1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">下页</a> |
      <%end if%>
      <a href="show.asp?pages=<%=rs.PageCount%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">尾页</a> <br>
  </p>
  </div>
<%

rs.close
set rs=nothing


end sub%>