📄 clientlist.asp

📁 客户管理crm xitong ,希望能给你带来帮助
💻 ASP
字号:
<!--#include file="../function/connect.asp"-->
<%
	meth=request("meth")
	if meth="del" and request("IID")<>"" then
		strsql="delete from clients where client_id in (" & request("IID") &")"
		objConn.execute strsql
		strsql="delete from Contacts where client_ID in (" & request("IID") &")"
		objConn.execute strsql
		strsql="delete from chances where chance_client in (" & request("IID") &")"
		objConn.execute strsql
		strsql="delete from acts where act_client in (" & request("IID") &")"
		objConn.execute strsql
	end if
	client_name=request("client_name")
	strsql="select * from clients where (client_owner='" & session("loginuser") & "' or IsPublic=1) "
	if client_name<>"" then
	strsql=strsql & " and client_name like '%" & client_name & "%'"
	end if
	strsql=strsql & " order by client_id desc"
	'response.write strsql
	Set objRs = Server.CreateObject("adodb.recordset")
	    objRs.Open strsql,objConn,1,1
	    
    	If Request("Page") = "" Then
		intPage = 1
	Else
		intPage = Clng(Request("Page"))
	End If
	objRs.PageSize = 15
	If intPage > objRs.PageCount Then
		intPage = objRs.PageCount
	End If
	If intPage <= 0 Then
		intPage = 1
	End If
	If Not objRs.EOF Then
		objRs.AbsolutePage = intPage
	End If
%>
<html>
<head>
<title>客户</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../cssD.css" rel=stylesheet>
<script>
	function checkNum()
	{
		rNum=0;
		var actID=document.all.IID;
		for(i=0;i<actID.length;i++){
			if(actID[i].checked==true){
				rNum=rNum +1 ;
			}
		}
		return rNum;
	}
	function checkAll()
	{
		var actID=document.all.IID;
		if(document.form1.checkall.checked==false){
			for(i=0;i<actID.length;i++){
				actID[i].checked=false;
			}
		}else{
			for(i=0;i<actID.length;i++){
				actID[i].checked=true;
			}
		}
	}
	function modify()
	{
		//alert(checkNum());
		if(checkNum()!=1)
		{
			alert('修改的项目只能是一个.');
		}else{
			document.form1.action="editclient.asp";
			document.form1.submit();
		}
	}
	
	function formsubmit(page)
	{
		str=document.form1;
		str.page.value=page;
		str.submit();
	}
	function changepage()
	{
		str=document.form1;
		str.page.value=str.selectpage.value;
		str.submit();
	}

</script>
</head>

<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="103%" border="1" cellspacing="0" cellpadding="2" bordercolorlight='#000000' bordercolordark='#FFFFFF'>
 <form name="form1" method="post" action="clientlist.asp">
 <tr> 
	<td  align="left" height="22" colspan="7" bgcolor="#ffffff"> 
		客户名称:<input type="text" name="client_name" size="20" class="input" value="<%=client_name%>">&nbsp;<input type="submit" value=" 检索 " class="button1">
	<td>
 </tr>
  <tr class="tablehead"> 
    <td width="4%">
    <input type="checkbox" name="checkall" value="1" onclick="checkAll();">
    <input type="checkbox" name="client_id" value="0" disabled style="display:none;">
    </td>
    <td width="20%" nowrap> 
      <div align="center">客户名称</div>
    </td>
    <td width="19%" nowrap> 
      <div align="center">客户编号</div>
    </td>
    <td width="19%" nowrap> 
      <div align="center">Email</div>
    </td>
    <td width="19%" nowrap> 
      <div align="center">电话</div>
    </td>
    <td width="19%" nowrap> 
      <div align="center">地址</div>
    </td>
    <td width="19%" nowrap> 
      <div align="center">添加日期</div>
    </td>
  </tr>
  <%
  if not objrs.eof then
	    For intLoop = 1 To objRs.PageSize
		If Not objRs.EOF Then
  %>
  <tr align="center"> 
        <td width="4%" class="tablehead">
        <input type="checkbox" name="IID" value="<%=objrs.fields("client_id")%>">
      </td>
    <td width="20%" nowrap>&nbsp;<a href="editclient.asp?IID=<%=objrs.fields("client_id")%>"><%=objrs.fields("client_name")%></a></td>
    <td width="19%" nowrap>&nbsp;<%=objrs.fields("client_code")%></td>
    <td width="19%" nowrap>&nbsp;<%=objrs.fields("client_email")%></td>
    <td width="19%" nowrap>&nbsp;<%=objrs.fields("client_tel")%></td>
    <td width="19%" nowrap>&nbsp;<%=objrs.fields("client_address")%></td>
    <td width="19%" nowrap>&nbsp;<%=objrs.fields("client_date")%></td>
  </tr>
  <%
  		objRs.MoveNext
		End If
	      Next
  else%>
  <tr align="center"> 
	  <td colspan="7">
	  	没有客户
	  </td>
  </tr>
  <%end if%>
    <input type="hidden" name="meth" value="del">
  <tr> 
		      <td  align="Right" height="22" colspan="7" bgcolor="#ffffff"> 
		        <%
		        If intPage = 1 Or intPage = 0 Then
					Response.Write "前一页"
		        Else
		        %>
		        <a href="javascript:formsubmit('<%=intPage - 1%>');">前一页</a> 
		        <%
		        End If
		        %>
		        &nbsp;&nbsp; 
		        <%
		        If intPage = objRs.PageCount or objRs.PageCount=0 Then
					Response.Write "下一页"
		        Else
		        %>
		        <a href="javascript:formsubmit('<%=intPage + 1%>');">下一页</a> 
		        <%
		        End If
		        %>
		        &nbsp; 转向 
		        <select name="selectpage" onchange="changepage();">
		          <%
					If objRs.PageCount <= 0 Then
						Response.Write "<option value=''>无</option>"
					Else
						For intLoop = 1 To objRs.PageCount
							If intPage = intLoop Then
								Response.Write "<option value='" & intLoop & "' selected>" & intLoop & "</option>"
							Else
								Response.Write "<option value='" & intLoop & "'>" & intLoop & "</option>"
							End If
						Next
					End If
					%>
		        </select>页
		      </td>
		    </tr>
	    <input type="hidden" name="page" value="">
  <tr align="center"> 
	  <td colspan="7">
	  	<input type="button" value=" 添加 " class="button" onclick="location.href='addclient.asp?ID=<%=ID%>';">&nbsp;<input type="submit" value=" 删除 " class="button">&nbsp;<input type="button" value=" 修改 " class="button" onclick="modify();">
	  </td>
  </tr>
    </form>
</table>
</body>
</html>
⌨️ 快捷键说明

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