showhtclass.asp

contract management system

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>
<base  oncontextmenu=self.event.returnValue=false>
<%Classid=Trim(Request("Classid"))%>

<span class="blue"><%=Classid%>
类别下合同列表[具体请点击合同编号查看]</span> : <a href="addhtong.asp?classid=<%=classid%>">增加新合同</a><br>
<table width="1756" height="28" border="0" cellpadding="1" cellspacing="0">
  <tr class="back_southidc">
    <% dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_ht  where htclassid ='"&Classid&"' 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
	 %>
   
   
    <td width="84"><div align="center">合同编码</div></td>
    <td width="163"><div align="center">合同名称</div></td>
    <td width="84"><div align="center">合同类型</div></td>
    <td width="87"><div align="center">业务员</div></td>
    <td width="73"><div align="center">合同金额</div></td>
    <td width="74"><div align="center"> 签定日期 </div></td>
    <td width="87"><div align="center"> 合同开始日期</div></td>
    <td width="87"><div align="center"> 合同截止日期 </div></td>
    <td width="144"><div align="center">甲方</div></td>
    <td width="142"><div align="center">乙方</div></td>
    <td width="72"><div align="center">甲负责人</div></td>
    <td width="76"><div align="center">乙负责人</div></td>
    <td width="141"><div align="center">相关文件</div></td>
    <td width="64"><div align="center">收/付款</div></td>
    <td width="91"><div align="center">合同状态</div></td>
    <td width="61"><div align="center">相关操作</div></td>
  </tr>
    <%    
   for i=1 to rs.PageSize
     if rs.EOF or rs.BOF then exit for
  %>
  <tr class="tr_southidc">
    <td><a href="ShowHT.asp?HTid=<%=rs("HTid")%>&HTclassID=<%=rs("HTclassID")%>&htYWY=<%=rs("HTywyID")%>&htflagid=<%=rs("HTflagid")%>&ht=<%=rs("HT")%>"><%=rs("HTid")%></a></td>
    <td><%=rs("HTname")%></td>
    <td>
	  <%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>
	 <%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><%=rs("HTmoney")%></td>
    <td><%=rs("HTqidingtime")%></td>
    <td><%=rs("HTstartime")%></td>
    <td><%=rs("HTovertime")%></td>
    <td>
	<%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>
    <td>
	<%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>
    <td><%=rs("HTjiafangren")%></td>
    <td><%=rs("HTyifangren")%></td>
    <td><a href="<%=rs("HTfile")%>" target="_blank"><%=rs("HTfile")%></a></td>
    <td><%=rs("HT")%></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>
    <td><div align="center"><a href="delHT.asp?id=<%=rs("id")%>">删除</a></div></td>
  </tr>
  <%  
     rs.movenext
    next
   %>
</table>
 <p></p>
</div>
<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="showHTclass.asp?page=1&Classid=<%=Classid%>">首页</a>| 
      <%if pre then%>
      <a href="showHTclass.asp?page=<%=intpage -1%>&Classid=<%=Classid%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="showHTclass.asp?page=<%=intpage +1%>&Classid=<%=Classid%>">下页</a> |
      <%end if%>
    <a href="showHTclass.asp?page=<%=rs.PageCount%>&Classid=<%=Classid%>">尾页</a> <br>
  </p>
  <form name="form1" method="post" action="">
    <div align="left">
      <input type="text" name="textfield">
      <select name="select">
      </select>
    &nbsp;&nbsp;&nbsp;&nbsp;
    <input type="submit" name="Submit" value=" 提 交 ">
    &nbsp;&nbsp;
    <input type="reset" name="Submit2" value=" 重 置 ">
    <br>
    <span class="Select">可选显示的字段:
    <input type="checkbox" name="checkbox" value="1">
    合同编码    <input type="checkbox" name="checkbox2" value="1">
    合同名称    <input type="checkbox" name="checkbox3" value="1">
    合同类型    <input type="checkbox" name="checkbox4" value="1">
    业务员
    <input type="checkbox" name="checkbox5" value="1">
    合同金额
    <input type="checkbox" name="checkbox6" value="1">
    签定日期    <input type="checkbox" name="checkbox7" value="1">
    合同开始日期    <input type="checkbox" name="checkbox8" value="1">
    合同截止日期    <input type="checkbox" name="checkbox9" value="1">
    甲方
    <input type="checkbox" name="checkbox10" value="1">
    已方
    <input type="checkbox" name="checkbox11" value="1">
    甲方负责人
    <input type="checkbox" name="checkbox12" value="1">
    乙方负责人
    <input type="checkbox" name="checkbox13" value="1">
    相关文件    <input type="checkbox" name="checkbox14" value="1">
    收/付款
    <input type="checkbox" name="checkbox15" value="1">
    合同状态    </span></div>
  </form>
  <p class="blue">&nbsp;  </p>
</div>