📄 g_mainexec.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PublicWeek.asp"-->
<% username=Getuser()%>
<%
'********************************
'
'Author:Ruphi Update Time:2001-08-30
'功能说明：客户执行主界面，显示登录者前10天的执行情况
'对于不同的记录状态，有不同的操作情况
'
'********************************
'所有的内容不送到缓冲区， 马上显示所改变的内容。
%>
<%
'找出登陆者前十天计划执行的记录
set rstj=server.createobject("adodb.recordset")
str="select * from G_TblClosePlan where (cdate(closedate) between (date()-10) and date() ) and StuffNum='"&Session("UserID")&"' and DepartID='"&Session("DepartID")&"' order by id desc"
rstj.open str,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="vbscript">
sub GoPage()
a="G_mainexec.asp?page="+document.myform.page1.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>
<p align="left">
<% if rstj.eof then %>
<font size="2">您近10天内未执行计划。
<br>
</font>
<input type="button" value="新增" name="B1" onclick="location.href='G_exec.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<input type="button" value="明细查询" name="B1" onclick="location.href='G_execdetail.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<input type="button" value="统计查询" name="B1" onclick="location.href='G_exectj.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<input type="button" value="审核" name="B1" onclick="location.href='G_execsh.asp'" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</p>
<p align="left">
<% Response.End %>
<%else
if request.querystring("page")<>"" then
page=cint(request.querystring("page"))
else
page=1
end if
rstj.pagesize=10
if page>=rstj.pagecount then
page=rstj.pagecount
else
if page<1 then
page=1
end if
end if
rstj.absolutepage=page
%>
<br>
<font size="2">您近10天内的计划执行情况如下：</font>
<form action="G_execdel.asp" method="post" name="myform">
<table border="1" cellspacing="0" width="100%" height="30">
<tr>
<td width="19" height="24" align="center" bgcolor="#DDD2C4">
</td>
<td width="81" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">计划跟进日期
</font>
</td>
<td width="61" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">星期
</font>
</td>
<td width="81" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">跟进时间
</font>
</td>
<td width="60" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">跟进客户
</font>
</td>
<td width="69" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">跟进对象
</font>
</td>
<td width="52" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">职务
</font>
</td>
<td width="59" height="24" align="center" bgcolor="#DDD2C4">
<font size="2">跟进方式
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -