📄 custemlist.asp

📁 网络办公系统源码
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../config.asp"-->
<!--#include file="../checklogin.asp"-->
<!--#include file="../../inc/navigate.asp"-->
<%

dim sPageNavigate  '分页表格 
dim iRecordCount,iMaxPageCount,iPageCount,iCurrentPageIndex,i,sTMP  '分页
iMaxPageCount=20 '一页多少行记录
Submit=trim(request.Form("Submit"))
blogid=replace(trim(request.Form("blogid"))," ","")
if Submit="删除信息" then
	if  ChkAdmin("oa_managecus")=False then
   		call message("您没有删除客户信息的权限","back")
   		call endexit()
	end if
	if blogid="" then
		call message("请至少选择一项删除","back")
		call EndExit()
	end if
	bid=split(blogid,",")
	for i=0 to ubound(bid)
		delsql="delete from oa_crm_cus where id="&bid(i)&""
		conn.execute(delsql)
	next
	call message("删除成功","custemlist.asp")
	call EndExit()
elseif 	Submit="查看联系人" then
		if blogid="" then
			call message("请选择一项数据查看","back")
			call EndExit()
		elseif instr(blogid,",")>0 then
			call message("请选择一项数据查看","back")
			call EndExit()
		else
			response.Redirect("cus_contactlist.asp?cusid="&blogid&"")
		end if

end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../img/css1.css" type=text/css rel=stylesheet>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {color: #FFFFFF}
.style3 {color: #FFFFFF; font-weight: bold; }
-->
</style>
</head>
<body>
<form name="form1" method="post" action="custemlist.asp">
  <table width="99%"  border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#F2F2F2" class="tabel1">
    <tr align="right" bgcolor="#CC0000">
      <td height="25" colspan="7" align="left">
        <input name="Submit" type="submit" class="bon" id="Submit" value="删除信息">
        <input name="Submit" type="button" class="bon" onClick="window.location.href='cus_input.asp'" value="添加客户信息">
        <input name="Submit" type="button" class="bon" id="Submit" onClick="window.location.href='cus_addcontact.asp'" value="新建联系人">
        <input name="Submit" type="submit" class="bon"  value="查看联系人">
      <input name="Submit" type="button" class="bon" onClick="window.location.href='cus_addform.asp'" value="新建跟单"></td>
    </tr>
    <tr bgcolor="#F9F9F9">
      <td height="25" colspan="7" align="left" bgcolor="#F2F2F2"><input name="cus_name" type="text" class="tabel1">
      <input name="Submit" type="submit" class="tabel1" value="按客户名称搜索">
      </td>
    </tr>
    <tr bgcolor="#CC6633">
      <td width="5%" height="25" align="center"><input name="checkbox" type=checkbox onclick=sel('blogid')> </td>
      <td width="37%" height="25" align="center"><span class="style3">客户名称</span></td>
      <td width="12%" align="center"><span class="style1"><strong> 联系人 </strong></span></td>
      <td width="12%" align="center"> <span class="style1"><strong>电话 </strong></span></td>
      <td width="12%" align="center"><span class="style1"><strong>手机</strong></span></td>
      <td width="14%" align="center"><span class="style1"><strong>业务员</strong></span></td>
      <td align="center"><span class="style3">操作</span></td>
    </tr>
    <tr >
      <td height="5" colspan="7" bgcolor="#666666"></td>
    </tr>
    <%
	'//业务员登陆后只看到自己的可户列表
	cus_name=replace(trim(request.Form("cus_name")),"'","")
	if cus_name="" then
		Sql="select id,cus_name,cus_contactname,cus_contactphone,cus_contactmobile,uid from oa_crm_cus  where uid="&session("adminid")&"  order by id desc"
	else
		Sql="select id,cus_name,cus_contactname,cus_contactphone,cus_contactmobile,uid from oa_crm_cus  where uid="&session("adminid")&" and  cus_name like '%"&cus_name&"%' order by id desc"
	end if
	'response.Write(Sql)	
				Call GetCurrentPageIndex()  '取得当前页码
				set my_rs=server.CreateObject("adodb.recordset")
				my_rs.open Sql,conn,1,3
				my_rs.PageSize=iMaxPageCount
				my_rs.CacheSize =iMaxPageCount
				if my_rs.recordCount <>   0   then   my_rs.Absolutepage=iCurrentPageIndex
				iRecordCount=my_rs.RecordCount  '所有查询出来的记录数
				iPageCount=my_rs.PageCount  '最终多少页
				if iCurrentPageIndex>iPageCount then iCurrentPageIndex=iPageCount  '控制当前页不得超出范围
				sPageNavigate=GetNavigate("custemlist.asp?cus_name="&cus_name&"",iRecordCount,iMaxPageCount,iCurrentPageIndex,true,true,"项")  '取得分页表格
				if Not my_rs.Eof then
				For i = 1 to iMaxPageCount '利用for next 循环依次读出当前页的记录 
			  if my_rs.EOF then  Exit For
				bgColor="#F8F8F8"
				if i mod 2=0 then bgColor="#DFEFFF"
				ysql="select truename from oa_admin where id="&my_rs("uid")
				set yrs=conn.execute(ysql)
				if not yrs.eof then
					yname=yrs(0)
				else
					yname="人员不存在"
				end if
				yrs.close
				set  yrs=nothing	
	%>
    <tr bgcolor="<%=bgColor%>">
      <td height="25" align="center"><input type="checkbox" name="blogid" value="<%=my_rs(0)%>">
      </td>
      <td height="25" align="center"><a href="view_cus.asp?id=<%=my_rs(0)%>"><%=my_rs(1)%></a></td>
      <td height="25" align="center"><%=my_rs(2)%></td>
      <td height="25" align="center"><%=my_rs(3)%></td>
      <td height="25" align="center"><%=my_rs(4)%></td>
      <td height="25" align="center"><%=yname%></td>
      <td width="8%" align="center"><a href="cus_input.asp?id=<%=my_rs(0)%>&act=edits">修改</a></td>
    </tr>
    <%
						my_rs.MoveNext()
				       Next
                     End if
                  my_rs.close
                 set my_rs=nothing
				%>
  </table>
  <table width="99%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20">&nbsp;</td>
  </tr>
  <tr>
    <td height="20"><%=sPageNavigate%></td>
  </tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明

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