📄 list.asp

📁 === ==ASP销售管理系统
💻 ASP
字号:
<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 1000100	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Customer_Name = request("Customer_Name")
State = request("State")
City = request("City")
Address = request("Address")
Tel = request("Tel")
Fax = request("Fax")
Email = request("Email")
Homepage = request("Homepage")
Trade_Code = request("Trade_Code")
Employee_ID = request("Employee_ID")
Contract_Status = request("Contract_Status")
Order_By = request("Order_By")
ASC_DESC = request("ASC_DESC")
if Trim(Order_By) = "" then Order_By = "Customer_ID"
if Trim(ASC_DESC) = "" then ASC_DESC = "DESC"
if Trim(Trade_Code) = "" then Trade_Code = 0

Cookie_Hidden_Yes_No_Address = request.cookies("Cookie_Hidden_Yes_No_Address")
Cookie_Hidden_Yes_No_Tel = request.cookies("Cookie_Hidden_Yes_No_Tel")
Cookie_Hidden_Yes_No_Fax = request.cookies("Cookie_Hidden_Yes_No_Fax")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
	<title>Untitled</title>
	<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
	<LINK rel="stylesheet" type="text/css" href="../style.css">
	<script language="JavaScript" type="text/javascript">
	function ConfirmOption(Employee_ID,Employee_Name){
		if(<%= Session("Employee_ID") %> == 1 || Employee_ID == <%= Session("Employee_ID") %>){			
			if(confirm('您确定要修改/删除客户吗？')){
				return true;
			}else{
				return false;
			}
		}else{
			alert('警告！您不是该客户资料的录入者，请联系 ' + Employee_Name + ' 进行修改/删除。');
			return false;
		}
	}
	</script>
</head>
<body>
<form name="frm" action="list.asp" method="post">
<table border=0 cellpadding=0 cellspacing=0 width="100%">
<tr>
	<td width="97%">◆<a href="search.asp" target="foot">客户查询</a> ◆<a href="new.asp" target="foot">添加新客户</a></td>
	<td width="1%"><nobr>客户名称：</nobr></td>
	<td width="1%"><input type="text" name="Customer_Name" value="<%= Customer_Name %>"></td>
	<td width="1%"><input type="submit" name="Submit" value="快速查询"></td>
</tr>
</table>
<hr size=1>
<table bgcolor="#FFFFFF" border=0 cellpadding=1 cellspacing=1 width="100%">
<tr bgcolor="#EFEFEF">
	<td><nobr>客户名称</nobr></td>
	<td><nobr>地址
	<% If Cookie_Hidden_Yes_No_Address <> "no" then %>
	<a href="hidden_yes_no.asp?Address=no&Tel=<%=Cookie_Hidden_Yes_No_Tel%>&Fax=<%=Cookie_Hidden_Yes_No_Fax%>" target="foot" title="隐藏客户地址"><strong>×</strong></a>
	<% Else  %>
	<a href="hidden_yes_no.asp?Address=yes&Tel=<%=Cookie_Hidden_Yes_No_Tel%>&Fax=<%=Cookie_Hidden_Yes_No_Fax%>" target="foot" title="显示客户地址"><strong>√</strong></a>
	<% End If %>
	</nobr>
	</td>
	<td><nobr>电话
	<% If Cookie_Hidden_Yes_No_Tel <> "no" then %>
	<a href="hidden_yes_no.asp?Address=<%=Cookie_Hidden_Yes_No_Address%>&Tel=no&Fax=<%=Cookie_Hidden_Yes_No_Fax%>" target="foot" title="隐藏客户联系电话"><strong>×</strong></a>
	<% Else  %>
	<a href="hidden_yes_no.asp?Address=<%=Cookie_Hidden_Yes_No_Address%>&Tel=yes&Fax=<%=Cookie_Hidden_Yes_No_Fax%>" target="foot" title="显示客户联系电话"><strong>√</strong></a>
	<% End If %>
	</nobr></td>
	<td><nobr>传真
	<% If Cookie_Hidden_Yes_No_Fax <> "no" then %>
	<a href="hidden_yes_no.asp?Address=<%=Cookie_Hidden_Yes_No_Address%>&Tel=<%=Cookie_Hidden_Yes_No_Tel%>&Fax=no" target="foot" title="隐藏客户传真"><strong>×</strong></a>
	<% Else  %>
	<a href="hidden_yes_no.asp?Address=<%=Cookie_Hidden_Yes_No_Address%>&Tel=<%=Cookie_Hidden_Yes_No_Tel%>&Fax=yes" target="foot" title="显示客户传真"><strong>√</strong></a>
	<% End If %>
	</nobr></td>
	<td><font face="Wingdings">*</font></td>
	<td><nobr>业务员</nobr></td>
	<td><nobr>操作</nobr></td>
</tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr

'总共客户数量
sql = "sp_Customer_Amount"
set rs = conn.execute(sql)
Customers_Total = rs(0)
'本人录入客户数量
sql = "sp_Customer_My_Amount " & Session("Employee_ID")
set rs = conn.execute(sql)
My_Customers_Total = rs(0)
rs.close

sql = " select Customers.*,Employee.Employee_Name from Customers,Employee where Customers.Available = 1 and Customers.Employee_ID = Employee.Employee_ID "
'搜索条件
if IsNot(Customer_Name,"s") then sql = sql & " and Customers.Customer_Name like '%" & Customer_Name & "%'"
if IsNot(State,"s") then sql = sql & " and Customers.State = '" & State & "'"
if IsNot(City,"s") then sql = sql & " and Customers.City = '" & City & "'"
if IsNot(Address,"s") then sql = sql & " and Customers.Address like '%" & Address & "%'"
if IsNot(Tel,"s") then sql = sql & " and Customers.Tel like '%" & Tel & "%'"
if IsNot(Fax,"s") then sql = sql & " and Customers.Fax like '%" & Fax & "%'"
if IsNot(Email,"s") then sql = sql & " and Customers.Email like '%" & Email & "%'"
if IsNot(Homepage,"s") then sql = sql & " and Customers.Homepage like '%" & Homepage & "%'"
if Trade_Code > 0 then sql = sql & " and Customers.Trade_Code = " & Trade_Code
if IsNot(Employee_ID,"n") then sql = sql & " and Customers.Employee_ID = " & Employee_ID
if IsNot(Contract_Status,"n") then sql = sql & " and Customers.Contract_Status = " & Contract_Status
sql = sql & " order by Customers." & Order_By & " " & ASC_DESC
'response.write sql
'保存本次查询 SQL
LastResultSQL_Customer = request.Cookies("LastResultSQL_Customer")
UseResult = request("UseResult")	'是否使用上次查询结果
if UseResult = "yes" then
	sql = LastResultSQL_Customer
end if
response.Cookies("LastResultSQL_Customer") = sql
rs.open sql,conn,1
if rs.eof then
	response.write "<tr><td colspan=18>暂时没有记录</td></tr></table>"
	response.end
end if
PageSize = request.Cookies("PageSize")
if not IsNot(PageSize,"n") then PageSize = DefaultPageSize
rs.pagesize = PageSize
PageCount = rs.PageCount
PageNo = request("PageNo")
if PageNo = "" or CInt(PageNo) < 1 then PageNo = 1
if CInt(PageNo) > PageCount then PageNo = PageCount
rs.absolutepage = PageNo

i = 0
while not rs.eof and i < rs.pagesize
	f_Customer_ID = rs("Customer_ID")
	ID_Pointer = f_Customer_ID
	f_Customer_Name = rs("Customer_Name")
	f_State = rs("State")
	f_City = rs("City")
	f_Address = rs("Address")
	f_Tel = rs("Tel")
	f_Fax = rs("Fax")
	f_Email = rs("Email")
	f_Employee_ID = rs("Employee_ID")
	f_Employee_Name = rs("Employee_Name")
	if i mod 2 = 0 then
		response.write "<tr>"
	else
		response.write "<tr bgcolor=#EFEFEF>"
	end if
	%>
	<td><a href="detail.asp?Customer_ID=<%=f_Customer_ID%>"><%=f_Customer_Name%></a>&nbsp;</td>
	<% If Cookie_Hidden_Yes_No_Address <> "no" then %>
	<td><%=f_State & f_City & f_Address%>&nbsp;</td>
	<% Else  %>
	<td><a class="na" title="<%= f_State & f_City & f_Address %>"><%= left(f_State & f_City & f_Address,2) %>...</a></td>
	<% End If %>
	<td><nobr>
	<% If Cookie_Hidden_Yes_No_Tel <> "no" then %>
	<%=f_Tel%>
	<% Else  %>
	<a class="na" title="<%= f_Tel %>"><%= left(f_Tel,4) %>...</a>
	<% end if %>&nbsp;</nobr>
	</td>
	<td><nobr>
	<% If Cookie_Hidden_Yes_No_Fax <> "no" then %>
	<%=f_Fax%>
	<% Else  %>
	<a class="na" title="<%= f_Fax %>"><%= left(f_Fax,4) %>...</a>
	<% end if %>&nbsp;</nobr>
	</td>
	<% If len(f_Email) > 5 then %>
	<td><nobr><a href="mailto:<%=f_Email%>" title="<%=f_Email%>"><font face="Wingdings">*</font></a>&nbsp;</nobr></td>
	<% Else  %>
	<td>&nbsp;</td>
	<% end if %>
	<td><nobr><a href="../employee/detail.asp?Employee_ID=<%= f_Employee_ID %>" target="foot"><%= f_Employee_Name %></a></nobr></td>
	<td><nobr><a href="detail.asp?Customer_ID=<%=f_Customer_ID%>&op=modi" onClick="return ConfirmOption(<%= f_Employee_ID %>,'<%= f_Employee_Name %>')">修改</a>/<a href="del.asp?Customer_ID=<%=f_Customer_ID%>" target="foot" onClick="return ConfirmOption(<%= f_Employee_ID %>,'<%= f_Employee_Name %>')">删除</a></nobr></td>
	</tr>
	<%
	i = i + 1
	rs.movenext
wend
rs.close
set rs = nothing
set conn = nothing
%>
<tr bgcolor="#EFEFEF">
	<td colspan=3>
	<a href="list.asp?PageNo=1&Customer_Name=<%= Customer_Name %>&State=<%= State %>&City=<%= City %>&Address=<%= Address %>&Tel=<%= Tel %>&Fax=<%= Fax %>&Email=<%= Email %>&Homepage=<%= Homepage %>&Trade_Code=<%= Trade_Code %>&Employee_ID=<%= Employee_ID %>&Contract_Status=<%= Contract_Status %>"><font face="Webdings">5</font>第一页</a>
	<a href="list.asp?PageNo=<%= PageNo - 1 %>&Customer_Name=<%= Customer_Name %>&State=<%= State %>&City=<%= City %>&Address=<%= Address %>&Tel=<%= Tel %>&Fax=<%= Fax %>&Email=<%= Email %>&Homepage=<%= Homepage %>&Trade_Code=<%= Trade_Code %>&Employee_ID=<%= Employee_ID %>&Contract_Status=<%= Contract_Status %>"><font face="Webdings">3</font>上一页</a>
	<a href="list.asp?PageNo=<%= PageNo + 1 %>&Customer_Name=<%= Customer_Name %>&State=<%= State %>&City=<%= City %>&Address=<%= Address %>&Tel=<%= Tel %>&Fax=<%= Fax %>&Email=<%= Email %>&Homepage=<%= Homepage %>&Trade_Code=<%= Trade_Code %>&Employee_ID=<%= Employee_ID %>&Contract_Status=<%= Contract_Status %>"><font face="Webdings">4</font>下一页</a>
	<a href="list.asp?PageNo=<%= PageCount %>&Customer_Name=<%= Customer_Name %>&State=<%= State %>&City=<%= City %>&Address=<%= Address %>&Tel=<%= Tel %>&Fax=<%= Fax %>&Email=<%= Email %>&Homepage=<%= Homepage %>&Trade_Code=<%= Trade_Code %>&Employee_ID=<%= Employee_ID %>&Contract_Status=<%= Contract_Status %>"><font face="Webdings">6</font>最后一页</a>
	</td>
	<td colspan=5 align="right"><nobr>共：<%= Customers_Total %> 个客户（<%= PageCount %>页），<%= Session("Employee_Name") %>录入：<%= My_Customers_Total %> 个</nobr></td>
</tr>
</table>
</form>
</body>
</html>
💿 文件大小 688 K
👤 上传用户 zhangpeng
📂 所属分类 *行业应用
🏷️ 相关标签

#ASP #销售 #管理系统
⌨️ 快捷键说明

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