allxkf.asp

客户管理系统-支持 Ms Sql-Server

if request("xkfzb")="all" then
        sql="select * from "&kfglzlbm&"  where (xkfscbj is null  or xkfscbj=0) and kfglid=" &request("kfglid")&" and ("&left(id,len(id)-4)&")"&"   order by xkfid desc" 
		 sqllb="select * from "&kfglzlbm&"  where (xkfscbj is null  or xkfscbj=0) and kfglid=" &request("kfglid")&" and ("&left(id,len(id)-4)&")"&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12  and xkfsj like '0%')) " 
		
						  else
		sql="select * from "&kfglzlbm&"  where (xkfscbj is null  or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and ("&left(id,len(id)-4)&")"&"  order by xkfid desc" 
		
sqllb="select * from "&kfglzlbm&"  where (xkfscbj is null  or xkfscbj=0) and kfglid=" &request("kfglid")&" and xkfzb=" &request("xkfzb")&" and ("&left(id,len(id)-4)&")"&" and (xkfsj is not null and (datalength(xkfsj)=11 and xkfsj like '1%') or ( datalength(xkfsj) between 10 and 12  and xkfsj like '0%')) "	

						
						
						  end if    
						  end if 
	
	if id="" and request("wchar")<>"" then  
	 sql="select * from "&kfglzlbm&"  where 1+2=4" 
	end if
	
rsn.Open sql,conn,1,3	  
%>  
<%kfglid=request("kfglid")%>
<%xkfzb=request("xkfzb")%>
<form name="frm1" method="post" action="delallxkf.asp?xkfid=<%=xkfid%>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&page=<%=page%>" >
  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
    <tr>
      <td height="30" class="black12px"><strong>&nbsp;&nbsp;<font color="#003399">您现在的位置：</font></strong><font color="#003399">客户管理系统 <span class="nav">-&gt;</span> 用户中心 <span class="nav">-&gt;</span> 客户管理</font> </td>
    </tr>
  </table>
  <TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%" 
      bgColor=#dbeaf5 border=0>
    <TBODY>
      <TR>
        <TD height="20" align="left" valign="middle"><SPAN 
            class=blue12px><STRONG>&nbsp;&nbsp;&nbsp;</font></STRONG></SPAN></TD>
      </TR>
      <TR bgColor=#c1cdd8>
        <TD align=middle height=1></TD>
      </TR>
      <TR bgColor=#c1cdd8>
        <TD align=middle 
height=1></TD>
      </TR>
    </TBODY>
  </TABLE>
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#fff7e5" class="tbbk">
    <tr>
      <td><table border="0" cellpadding="0" cellspacing="0" width="100%" >
          <tr>
            <td valign="top"><div align="right">
               
                <%
if rsn.eof and rsn.bof then
else
xkfid=rsn("xkfid")
end if

session("sqllb")=sqllb
%>
                
                &nbsp;&nbsp; </div>
                <table border="0" cellpadding="0" cellspacing="0" width="100%" bordercolor="#FFFFFF" bordercolorlight="#FFFFFF" bordercolordark="#FFFFFF">
                  <center>
                    <tr> &nbsp;<font color="#000000">当前组</font>
                        <%if xkfzb="all"then%>
                        <strong>全部</strong>
                        <%else%>
                        <strong><%=request("fzbm")%></strong>
                        <%end if%>
                    </tr>
                    <tr valign="middle">
                      <td height="30" colspan="7" align="left" ><%
  sqlfzb = "select * from "&kfglfzbm&"  where kfglid=" &request("kfglid")&" order by fzbid desc"
  Set rsnfzb = Server.CreateObject("ADODB.RecordSet")
  rsnfzb.Open sqlfzb,conn,1,2
  %>
                        &nbsp;<a href="allxkf.asp?xkfzb=0&kfglid=<%=kfglid%>&fzbm=未分组">未分组</a>
                        <% do while not rsnfzb.eof %>
                        <a href="allxkf.asp?xkfzb=<%=rsnfzb("fzbid")%>&kfglid=<%=kfglid%>&fzbm=<%=rsnfzb("fzbm")%>"><%=rsnfzb("fzbm")%>&nbsp;</a>
                        <%  rsnfzb.movenext
		        loop
          		rsnfzb.close
		  		set rsnfzb=nothing
				%>                      </td>
                    </tr>
                  </center>
                  <tr>
                    <td width="50" height="18" valign="bottom"><p align="center" class="style1">选择</p></td>
                    <center>
                      <font color="#FF6600"></font>
                      <td width="50" height="18" valign="bottom"><span class="style1">姓名</span></td>
                      <td width="50" valign="bottom"><span class="style1">尊称</span></td>
                      <td width="80" valign="bottom"><span class="style1">手机</span></td>
                      <td width="80" valign="bottom">电话</td>
                      <td width="109" valign="bottom"><span class="style1">单位名称</span>&nbsp;</td>
                      <td height="18" valign="bottom"><p align="center" class="style1">- 执行 -</p></td>
                    </center>
                  </tr>
                  <tr>
                    <td height="3" valign="top" colspan="7" bgcolor="#000000"></td>
                  </tr>
                  <% 
rsn.pagesize=15
if page<=1 then 
   page=1
elseif page>=rsn.pagecount then
   page=rsn.pagecount
end if
if rsn.eof and rsn.bof then
else
rsn.absolutepage=clng(page)
end if
for i=1 to rsn.pagesize
if rsn.eof then exit for 
%>



                   <tr   bgcolor="#FFF7E5" style="background-color:#FFF7E5;" onmouseover = "this.style.backgroundColor='#E5F0FF'" onmouseout = "this.style.backgroundColor =''" >
                     <td width="50" height="18" align="center" valign="bottom" class="td_line">                       <input type="checkbox" name="xkfid" value="<%=rsn("xkfid")%>">                      </td>
                     <td width="50" height="18" valign="bottom" class="td_line" title="<%=rsn("xkfxm")%>"><%=Left(rsn("xkfxm"),3)%>&nbsp;</td>
                     <td width="50" height="18" valign="bottom" class="td_line"><%=Left(rsn("xkfzc"),4)%>&nbsp;</td>
                     <td width="80" height="18" valign="bottom" class="td_line"><%=Left(rsn("xkfsj"),12)%>&nbsp;</td>
                     <td width="80" height="18" valign="bottom" class="td_line"><%=Left(rsn("xkfdh"),12)%>&nbsp;</td>
                     <td width="109" height="18" valign="bottom" class="td_line"><a href="#" title="<%=rsn("xkfdwmc")%>"><%=Left(rsn("xkfdwmc"),8)%></a>&nbsp;</td>
                     <td height="18" valign="bottom" class="td_line"><p align="center"><a href="addxkf.asp?xkfid=<%=rsn("xkfid")%>&page=<%=pagecount%>&kfglid=<%=kfglid%>&fzbidsave=<%=rsn("xkfzb")%>" target="I4">修改</a> <a href="kfglxw.asp?xkfid=<%=rsn("xkfid")%>&page=<%=pagecount%>&kfglid=<%=kfglid%>&fzbidsave=<%=rsn("xkfzb")%>&xkfsj=<%=rsn("xkfsj")%>" target="I4">行为</a></p></td>
                  </tr>
<%   
rsn.movenext
next
%>
                  <tr>
                    <td height="3" valign="top" colspan="7" bgcolor="#000000"></td>
                  </tr>
                  <tr align="right">
                    <td height="15" colspan="7" valign="bottom"></td>
                  </tr>
                  <tr align="right">
                    <td height="30" colspan="7"  valign="middle" >共<%=rsn.pagecount%>页 <%=rsn.recordcount%>条记录 每页<%=rsn.pagesize%>条 当前第<%=page%>页<% If rsn.pagecount>1 Then %>
                        <a href="?page=1&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">首页</a>&nbsp;<a href="?page=<%= page-1 %>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">上一页</a>&nbsp;<a href="?page=<%= page+1 %>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">下一页</a>&nbsp;<a href="?page=<%=rsn.pagecount%>&kfglid=<%=kfglid%>&xkfzb=<%=xkfzb%>&wchar=<%=request("wchar")%>">尾页</a>&nbsp;&nbsp;
                        <% End If %><input type="checkbox" name="llBox" onClick="javascript:fncSelectAll(true,false);">
                        <span id="yesorno">全选本页</span>&nbsp;&nbsp;移至<%

  sqlfzb = "select * from "&kfglfzbm&"  where kfglid=" &request("kfglid")&" order by fzbid desc"
  Set rsnfzb = Server.CreateObject("ADODB.RecordSet")
  rsnfzb.Open sqlfzb,conn,1,2
  
  'response.write sqlfzb
%>
                        <select id="ydzb"  name="ydzb">
                          <option value="0" selected="selected">不归组</option>
                          <% do while not rsnfzb.eof %>
                          <option value="<%=rsnfzb("fzbid")%>" <% if int(fzbidsave)=rsnfzb("fzbid") then response.write " selected" %>><%=rsnfzb("fzbm")%></option>
                          <%  rsnfzb.movenext
		  loop
          		rsnfzb.close
		  		set rsnfzb=nothing
		  		
				%>
                        </select>组&nbsp;
                    <input name="yd" type="submit" id="yd" class=button style="COLOR: #ffcc33"   onClick="Javascript:return confirm('确定将您所选的客户移动到所选组吗？');" value="移动">
                        <input name="del" type="submit" id="del" class=button style="COLOR: #ffcc33"  onClick="Javascript:return confirm('确定将您所选的客户删除吗？删除后您可以在垃圾箱中找到这些客户！');" value="删除">
						<input name="cdsc" type="submit" id="cdsc" class=button style="COLOR: #ffcc33"  onClick="Javascript:return confirm('一但彻底删除，这些客户将无法恢复，你确定这样做吗？');" value="彻底删除">
                    </td>
                  </tr>
              </table></td>
          </table></td>
    </tr>
  </table>
  <TABLE id=data_table cellSpacing=0 cellPadding=3 width="100%" 
      bgColor=#dbeaf5 border=0>
  <TBODY>
    <TR>
      <TD height="20" align="right" valign="middle">&nbsp;</TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle height=1></TD>
    </TR>
    <TR bgColor=#c1cdd8>
      <TD align=middle 
height=1></TD>
    </TR>
  </TBODY>
</TABLE>
<%'response.write sql%>
</form>

</body>
</html>