⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 showhtdanwei.asp

📁 contract management system
💻 ASP
字号:
<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">

<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="../Inc/config.asp" -->

<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>


<SCRIPT language=javascript>
<!--
function popwin(path)
{		
window.open(path,"","height=480,width=550,resizable=no,scrollbars=no,status=no,toolbar=no,menubar=no,location=no");
}
//-->
</SCRIPT>

</body>
<style type="text/css">
<!--
.style1 {font-size: 9px}
-->
</style>
<div align="center">
  <form name="form1" method="post" action="ScHTdanwei.asp">
    <div align="left">
      <table width="861" height="37" border="0" cellpadding="1" cellspacing="0">
        <tr>
          <td width="154" height="23"><input name="values" type="text" id="values"></td>
          <td width="107"><select name="tablename" id="tablename">
            <option value="htdanweiID">单位编号</option>
            <option value="htdanweiname">单位名称</option>
            <option value="HTdanweilianxiren">主要联系人</option>
            <option value="HTdanweiDiZhi">地址</option>
            <option value="HTdanweishouji">手机</option>
            <option value="HTdanweichuanzhen">传真</option>
            <option value="HTdanweiyoubian">邮政编码</option>
            <option value="HTdanweidianhua">固定电话</option>
            <option value="HTdanweiyinhang">开户银行</option>
            <option value="HTdanweizhanghao">银行帐号</option>
            <option value="HTdanweinashuihao">纳税号</option>
            <option value="HTdanweiweb">公司主页</option>
            <option value="HTdanweimail">公司MAIL</option>
            <option value="HTdanweifaren">公司法人</option>
            <option value="HTdanweibeizhu">备 注</option>
            <option value="HTdanweiclassID">单位类型(完整查询)</option>
          </select></td>
          <td colspan="2">可选显示字段内容:
          <input name="HTdanweiID" type="checkbox" id="HTdanweiID" value="1" checked>
          单位编码
          <input name="HtdanweiName" type="checkbox" id="HtdanweiName" value="1" checked>
          单位名称
          <input name="Htdanweilianxiren" type="checkbox" id="Htdanweilianxiren" value="1" checked>
          主联系人
          <input name="HtdanweiDiZhi" type="checkbox" id="HtdanweiDiZhi" value="1" checked>
          地址          </td>
          <td width="161"><input name="Submit" type="submit" id="Submit" value=" 提 交 ">
          &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
          <input type="reset" name="Submit" value=" 重 置 "></td>
        </tr>
        <tr>
          <td colspan="5"><input name="HtdanweiClassID" type="checkbox" id="HtdanweiClassID" value="1" checked>
            单位类型
              <input name="Htdanweishouji" type="checkbox" id="Htdanweishouji" value="1" checked>
              手机
              <input name="Htdanweichuanzhen" type="checkbox" id="Htdanweichuanzhen" value="1">
              传真 
              <input name="Htdanweiyoubian" type="checkbox" id="Htdanweiyoubian" value="1">
              邮政编码
              <input name="Htdanweidianhua" type="checkbox" id="Htdanweidianhua" value="1" checked>
              固定电话
              <input name="Htdanweiyinhang" type="checkbox" id="Htdanweiyinhang" value="1">
              开户银行
              <input name="Htdanweizhanghao" type="checkbox" id="Htdanweizhanghao" value="1">
              银行帐号
              <input name="Htdanweinashuihao" type="checkbox" id="Htdanweinashuihao" value="1">
              纳税号
              <input name="Htdanweiweb" type="checkbox" id="Htdanweiweb" value="1">
              公司主页
              <input name="Htdanweimail" type="checkbox" id="Htdanweimail" value="1">
              电子油箱
              <input name="Htdanweifaren" type="checkbox" id="Htdanweifaren" value="1" checked>
              法人
              <input name="Htdanweibeizhu" type="checkbox" id="Htdanweibeizhu" value="1">
          备注</td>
        </tr>
      </table>
</div>
  </form>
<table width="1791" height="37" border="0" cellpadding="1" cellspacing="1" bordercolor="#996699">
    <tr class="back_southidc">
      <th width="97" height="14"> <div align="center" class="green">
        <div align="center">单位编码</div>
      </div></th>
      <th width="189"><div align="center">单位名称</div></th>
      <th width="82"><div align="center">联系人</div></th>
      <th width="206"><div align="center">地址</div></th>
      <th width="90"><div align="center">单位类型</div></th>
      <th width="101"><div align="center">手机</div></th>
      <th width="98"><div align="center">传真</div></th>
      <th width="91"><div align="center">邮 编</div></th>
      <th width="90"><div align="center">固定电话</div></th>
      <th width="162"><div align="center"> 开户银行 </div></th>
      <th width="134"><div align="center"> 银行帐号 </div></th>
      <th width="100"><div align="center"> 纳 税 号 </div></th>
      <th width="82"><div align="center"> 公司主页 </div></th>
      <th width="71"><div align="center"> 电子油箱 </div></th>
      <th width="78" class="green"><div align="center"> 公司法人 </div></th>
      <th width="71"><div align="center" class="green">
        <div align="center">相关操作</div>
      </div></th>
    </tr>
    <% dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_danwei   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="tr_southidc" onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" >
      <td width="97" height="20"> <div align="center" class="blue"> <a href=javascript:popwin("Show.asp?id=<%=rs("HTdanweiID")%>&ClassId=<%=rs("HTdanweiClassID")%>")><%=rs("HTdanweiID")%></a></div></td>
      <td width="189"><%=rs("HTdanweiName")%></td>
      <td width="82"><%=rs("HTdanweilianxiren")%></td>
      <td width="206"><%=rs("HTdanweiDiZhi")%></td>
      <td width="90">
	  
	  
	  <%daima2=rs("HTdanweiClassID")
	  
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_HTdanweiClass where HTdanweiClassID='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("HTdanweiClassName")
		else
		response.write "类型已删"
		end if
		rst.close
		set rst= nothing
	  %> </td>
      <td width="101"><%=rs("HTdanweishouji")%></td>
      <td width="98"><%=rs("HTdanweichuanzhen")%></td>
      <td width="91"><%=rs("HTdanweiyoubian")%></td>
      <td width="90"><%=rs("HTdanweidianhua")%></td>
      <td width="162"><%=rs("HTdanweiyinhang")%></td>
      <td width="134"><%=rs("HTdanweizhanghao")%></td>
      <td width="100"><%=rs("HTdanweinashuihao")%></td>
      <td width="82"><%=rs("HTdanweiweb")%></td>
      <td width="71"><%=rs("HTdanweimail")%></td>
      <td width="78" class="green"><div align="center" class="blue"> <%=rs("HTdanweifaren")%></div></td>
      <td width="71"><div align="center" class="red">/<a href="#">修改</a>/<a href="delHTdanwei.asp?id=<%=rs("id")%>">删除</a></div></td>
    </TR>
     <%  
     rs.movenext
    next
   %>
  </table> 
  <p></p>
  <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="ShowHTdanwei.asp?page=1">首页</a>| 
      <%if pre then%>
      <a href="ShowHTdanwei.asp?page=<%=intpage -1%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="ShowHTdanwei.asp?page=<%=intpage +1%>">下页</a> |
      <%end if%>
    <a href="ShowHTdanwei.asp?page=<%=rs.PageCount%>">尾页</a> </p>
  <p align="left" class="red"><br>
    ***查询单位类型为 完整查询!其他为模糊查询!</p>
</div>
  </html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -