📄 g_execdetail.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PublicWeek.asp"-->
<% username=Getuser()
userclass=TableVisitor("G_TblClosePlan1",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainexec.asp>返回</a>"
response.end
end if
%>
<%
'***************************
'
'Author:Ruphi Writing Time:2001-08-25
'功能说明：执行活动中明细查询
'Update Time:2001-09-02
'增加查询条件：客户能可输入可选
'
'***************************
%>
<%
'**********************************
'客户查询传过来的值(G_cx2.asp)
khxh=request("khxh")
khmc=khname(khxh)
'***********************************
'按查询按扭后，提交后的值
wid=request("WeekID") '周次
sid=request("txtstuff") '业务员
'******************
%>
<%
'不管该计划执行或未执行都显示，只不过用状态来表示执行否，若执行则可浏览其具体内容。
set RSty=server.createobject("adodb.recordset")
str="select * from G_TblClosePlan where DepartID like '"&Session("DepartID")&"%' "
if khxh<>"" then
str=str&" and ClientNum='"&khxh&"' "
end if
if sid<>"" then
str=str&" and StuffNum='"&sid&"' "
end if
if wid<>"" then
str=str&" and CloseWeek='"&wid&"' "
end if
RSty.open str&"order by id desc",pubconn,1
'response.write str
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>单据查询</title><link href="cread.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
//输入客户序号时，产生其对应的名称
var onecount;
onecount=0;
subcat = new Array();
<%count = 0
set rs5=server.CreateObject("adodb.recordset")
rs5.open "SELECT * FROM D_clientinfo where ( tag='khindex'or (type='潜在客户' and tag='kh') or (type='预期客户' and tag='kh')or (type='首次购买客户' and tag='kh') or (type='忠诚客户'and tag='kh') or (type='重复购买客户' and tag='kh') or tag='hbdealer' ) ",Pubconn,1,3
if rs5.recordcount> 0 then
do while not rs5.eof%>
subcat[<%=count%>] = new Array("<%= trim(rs5("clientnum"))%>","<%=trim(rs5("clientname"))%>");
<%count = count + 1
rs5.movenext
loop
end if
rs5.close
set rs5=nothing%>
onecount=<%=count%>;
function khxx()
{
//客户名称响应
var tag;
tag=0;
for (i=0;i<onecount;i++)
{
if(document.myform.khxh.value==subcat[i][0])
{
document.myform.khmc.value=subcat[i][1];
tag=1;
break;
}
}
if (tag==0)
document.myform.khmc.value="";
}
</script>
<script language="vbscript">
sub kh()
selywy=document.myform.txtstuff.value
selzc=document.myform.weekid.value
window.open "G_cx2.asp?weekid="+selzc+"&txtstuff="+selywy,"客户信息","menubar=no,status=no,width=600,height=500,scrollbars=yes"
end sub
sub GoPage()
a="G_execdetail.asp?page="+document.myform.page1.value+"&weekid="+document.myform.weekid.value+"&txtstuff="+document.myform.txtstuff.value+"&khxh="+document.myform.khxh.value
window.location=a
end sub
</script>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font><font size="2">客户跟进计划执行明细查询</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<form method="post" action="G_execdetail.asp" name="myform">
<p>
<table border="0" width="100%">
<tr>
<td width="100%">
<p align="left">（提示：当前为第<%=datepart("ww",date())%>周） <b>
</b>
</p>
</td>
</tr>
</table>
<table border="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="73" align="center" bgcolor="#F1E8DA" >
<p align="right">
<font size="2">周次</font>
</p>
</td>
<td width="152" align="center" bgcolor="#F1E8DA">
<p align="left">
<select name="WeekID" size="1" style="width: 75; height: 23">
<% if wid<>"" then%>
<option value="">全部</option>
<% for i=1 to 53 %>
<option value="<%=i%>" <% if cint(trim(wid))=i then
response.write ("selected")
end if
%>>第<%=i%>周</option>
<%next%>
<%elseif zc<>"" then%>
<option value="">全部</option>
<% for i=1 to 53 %>
<option value="<%=i%>" <% if cint(trim(zc))=i then
response.write ("selected")
end if
%>>第<%=i%>周</option>
<%next%>
<%else%>
<option value="">全部</option>
<%for i=1 to 53 %>
<option value="<%=i%>" >第<%=i%>周</option>
<%next%>
<%end if %>
</select>
</p>
</td>
<td width="73" align="center" bgcolor="#F1E8DA">
<p align="right">
业务员
</p>
</td>
<td width="163" align="center" bgcolor="#F1E8DA">
<p align="left">
<select name="txtstuff" style="width:100" size="1">
<%
'业务员列表
set rst=Server.CreateObject("ADODB.RecordSet")
sql="Select stuffnum,name from A_StuffInfo Where SaleFlag='1' and delflag='0' and Departcode like '"&Session("DepartID")&"%'"
rst.open sql,pubconn,1
%>
<option value="">全部</option>
<%do while not rst.eof%>
<option value="<%=rst("StuffNum")%>"
<%
if sid<>"" then
if trim(sid)=rst("StuffNum") then
response.write("selected")
end if
end if
%> ><%=rst("Name")%></option>
<%
rst.movenext
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -