kehuziliao.asp

现代化的企业越来越重视科学技术

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<link href="../other/admin.css" rel="stylesheet" type="text/css">
<title><%=appname%></title>

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

</body>
<style type="text/css">
<!--
.style1 {font-size: 9px}
-->
</style>
<table width="821" height="37" border="0" cellpadding="1" cellspacing="1" bordercolor="#FF00FF">
  <tr bordercolor="#000000" bgcolor="#FFFFFF">
    <th width="73" height="14"> <div align="center" class="green">客户编号 </div></th>
    <th width="149" class="green"> <div align="center">客户名称 </div></th>
    <th width="72"><div align="center" class="green"> 客户类型</div></th>
    <th width="90" class="green"><div align="center">联系人</div></th>
    <th width="100"><div align="center" class="green"> 联系电话</div></th>
    <th width="95" class="green"><div align="center">传　真</div></th>
    <th width="105" class="green"><div align="center">网址/MAIL</div></th>
    <th width="83"><div align="center" class="green">相关操作</div></th>
  </tr>
  <% dim i,intPage,page,pre,last,filepath
  set rs = server.CreateObject("adodb.recordset")
   sql="select * from pro_kehuziliao   Order by id desc"'where name="&"'"&Id&"'"
      rs.PageSize = 25    
      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 onmouseover="this.style.background='#E1F4EE';" onmouseout="this.style.background='#FFFFFF'" >
    <td width="73" height="20"> <div align="center" class="blue"> 
      <div align="center"><%=rs("kehubianhao")%></div>
    </div></td>
    <td width="149" class="green">  <div align="center"><%=rs("kehuname")%> </div></td>
    <td width="72"><div align="center" class="blue"> 
      <div align="center"><%daima2=rs("kehuleixing")
	  
	   set rst = server.CreateObject("adodb.recordset")
   sql="select * from pro_kehuleixing where leixingdaima='"&daima2&"'"    
      rst.Open sql,conn,0,2,1 
	if not (rst.EOF or rst.BOF) then
	    
	    response.write rst("leixingname")
		else
		response.write "类型已删"
		end if
		rst.close
		set rst= nothing
	  %> 
	   </div>
    </div></td>
    <td width="90"><div align="center" class="red"><%=rs("lianxiren")%>&nbsp;</div></td>
    <td width="100"><div align="center" class="maroon">
      <div align="center" class="red"><%=rs("dianhua1")%>  </div>
    </div></td>
    <td width="95"><div align="center" class="blue" ><%=rs("chuanzhen")%>&nbsp;</div></td>
    <td width="105"><div align="center" class="blue"><a href=<%=rs("kehuweb")%>>网址</a>/<a href=mailto:<%=rs("kehuMAIL")%>>MAIL</a></div>
    </td>
    <td width="83"><div align="center" class="red"><a href="deletegonghuoshang.asp?id=<%=rs("id")%>">删除</a>/<a href="upgonghuoshang.asp?id=<%=rs("id")%>&leixing=<%=rs("kehuleixing")%>">修改</a></div></td>
  </TR>
   <%  
     rs.movenext
    next
   %>
</table>
<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="gonghuoshang.asp?page=1">首页</a>| 
      <%if pre then%>
      <a href="gonghuoshang.asp?page=<%=intpage -1%>">上页</a>| 
      <%end if%>          
      <%if last then%>
      <a href="gonghuoshang.asp?page=<%=intpage +1%>">下页</a> |
      <%end if%>
      <a href="gonghuoshang.asp?page=<%=rs.PageCount%>">尾页</a> </p>
  </div>
  <p class="blue">
  当前共有 ：<%=rs.recordcount%> (位)客户
  <%
  set rs=nothing
  call endconn()
  %>
  </p>
  <p align="left" class="white">&nbsp;</p>
</html>