subs.asp

contract management system

<% sub lianxi() '多个联系人操作!%>

  <table width="529" height="30" border="0" cellpadding="1" cellspacing="0">
    <tr  class="back_southidc">
      <td width="71" height="15"><div align="center">联系人</div></td>
      <td width="92"><div align="center">日期</div></td>
      <td width="303"><div align="center">内容</div>        <div align="center"></div>        <div align="center"></div></td>
      <td width="43"><div align="center">操作</div></td>
    </tr>
	</tr>
    <%
	
	 dim i,intPage,page,pre,last,filepath
	 HtdanweiID =	Trim(Request("ID"))
HtdanweiclassID =	Trim(Request("classID"))
'response.write  HtdanweiID&HtdanweiclassID
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_JiLu  where HTdanweiID='"&HTdanweiID&"' 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
      pagess = trim(Request.QueryString("pagess"))
      
      if len(pagess) = 0 then
                  intpage = 1
                  pre = false
      else
          if cint(pagess) =< 1 then
               intpage = 1
               pre = false
          else
              if cint(pagess) >= rs.PageCount then
                  intpage = rs.PageCount
                  last = false
              else
                   intpage = cint(pagess)
             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="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
      <td height="15"><%=rs("htlianxirenid")%></td>
      <td><%=rs("HTdate")%></td>
      <td><%=rs("beizhu")%></td>
      <td><a href="dellianxi.asp?id=<%=rs("id")%>">删除</a> </td>
    </tr>
	 <%  
     rs.movenext
    next
   %>
  </table>
</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="show.asp?pagess=1&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">首页</a>| 
      <%if pre then%>
      <a href="show.asp?pagess=<%=intpage -1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="show.asp?pagess=<%=intpage +1%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">下页</a> |
      <%end if%>
      <a href="show.asp?pagess=<%=rs.PageCount%>&id=<%=HTdanweiID%>&classID=<%=HtdanweiclassID%>">尾页</a> <br>
  </p>
  <div align="center">
    <form name="form2" method="post" action="saveLianxi.asp">  

      <div align="center">
        <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 colspan="3">内容</td>
            <td width="173">&nbsp;</td>
          </tr>
          <tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
            <td><input name="lianxirenid" type="text" id="lianxirenid" size="10"></td>
            <td><input name="htdate" type="text" id="htdate" value="<%=now()%>" size="15"></td>
            <td colspan="4"><input name="beizhu" type="text" id="beizhu" size="50" maxlength="50"></td>
          </tr>
          <tr class="tr_southidc" onmouseover="this.style.background='#EfF4Ef';" onmouseout="this.style.background='#FFFFFF'">
            <td>&nbsp;</td>
            <td>&nbsp;</td>
            <td width="49"><input type="submit" name="Submit3" value=" 提 交 "></td>
            <td width="35"><input type="reset" name="Submit4" value=" 重 置 "></td>
            <td width="60">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
        </table>
      </div>
    </form>
  </div>
 
    <%
rs.close
set rs=nothing
end sub %>