📄 d_acceptrecord.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PublicWeek.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%departid=session("departid")
'**********************************
'客户查询传过来的值(G_cx2.asp)
par_id=trim(request("par_id"))
'response.write par_id
'***********************************
'按查询按扭后，提交后的值
wid=request("WeekID") '周次
sid=request("txtstuff") '业务员
'******************
%>
<%
'不管该计划执行或未执行都显示，只不过用状态来表示执行否，若执行则可浏览其具体内容。
set RSty=server.createobject("adodb.recordset")
str="select * from G_TblClosePlan where clientnum='"& par_id &"' and departid like '"&departid&"%' "
if wid<>"" then
str=str&"and CloseWeek='"&wid&"'"
end if
if sid<>"" then
str=str&"and StuffNum='"&sid&"' "
end if
RSty.open str&"order by id desc",pubconn,1
'response.write str
'response.end
%>
<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>
<body bgcolor="#FFFFFF">
<script language="vbscript">
sub GoPage()
a="D_acceptrecord.asp?page="+document.myform.page11.value+"&index="+document.myform.index.value+"&weekid="+document.myform.weekid.value+"&par_id="+document.myform.par_id.value+"&par_type="+document.myform.par_type.value+"&par_level="+document.myform.par_level.value+"&page1="+document.myform.page1.value
window.location=a
end sub
</script>
<form method="post" action="D_Acceptrecord.asp" name="myform">
<p>
<table border="0" width="100%">
<tr>
<td width="100%">
<p align="center">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">客户跟进计划执行明细查询</font></b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="100%">
<p align="left">（提示：当前为第<%=datepart("ww",date())%>周）
</p>
</td>
</tr>
</table>
<table border=0 cellspacing="0" width="100%" align="center" bordercolorlight="#FFFFFF" bordercolor="#000000" height="45">
<tr bgcolor="F1E8DA">
<td width="73" align="center" >
<p align="right">
<font size="2">周次</font>
</p>
</td>
<td width="152" align="center" >
<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">
<p align="right">
业务员
</p>
</td>
<td width="163" align="center">
<p align="left">
<select name="txtstuff" style="width:100" size="1">
<%
%>
<%
'业务员列表
set rst=Server.CreateObject("ADODB.RecordSet")
sql="Select * from A_StuffInfo Where SaleFlag='1'"
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
if ywy<>"" then
if trim(ywy)=rst("StuffNum") then
response.write("selected")
end if
end if
%> ><%=rst("Name")%></option>
<%
rst.movenext
loop
set rst=nothing
%>
</select> </td>
<td><input type="submit" name="Search" value="查询" style="background-color: #F1E8DA; border: 1 solid #95825E" class="lf" > </td>
</tr>
</table> <br>
<input type="hidden" name="page1" value=<%=trim(request("page1"))%>>
<input type="hidden" name="par_type" value=<%=trim(request("par_type"))%>>
<input type="hidden" name="par_clientnum" value=<%=trim(request("par_clientnum"))%>>
<input type="hidden" name="par_level" value=<%=trim(request("par_level"))%>>
<input type="hidden" name="par_id" value=<%=trim(request("Par_id"))%>>
<input type="hidden" name="par_name" value=<%=trim(request("par_name"))%>>
<input type="hidden" name="index" value=<%=request("index")%>>
<%
if RSty.eof then%>
<center><font size="2">提示:没有符合条件的记录！</font><br><br>
<%'response.write trim(request("par_id"))%>
<%if request("index")="true" then%>
<font size="2">
<a href="D_khindexsubfrm.asp?tag=2&page1=<%=trim(request("page1"))%>&par_id=<%=trim(request("par_id"))%>&par_name=<%=trim(request("par_name"))%>&par_level=<%=trim(request("par_level"))%>&par_type=<%trim(request("par_type"))%>">返回</a>
<%else%>
<a href="D_khsubfrm.asp?tag=2&page1=<%=trim(request("page1"))%>&par_id=<%=trim(request("par_id"))%>&par_name=<%=trim(request("par_name"))%>&par_level=<%=trim(request("par_level"))%>&par_type=<%trim(request("par_type"))%>">返回</a>
</font>
<%end if%>
<%response.end%>
<%else
'若有数据时，则分页
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
RSty.pagesize=10
if page>=RSty.pagecount then
page=RSty.pagecount
else
if page<1 then
page=1
end if
end if
RSty.absolutepage=page
%>
<table border="1" cellspacing="0" width="100%" height="30" bgcolor="#D1D1D1">
<tr>
<td width="69" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">计划跟进日期
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -