📄 g_plantj.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()
userclass=TableVisitor("G_TblClosePlan",username)
if userclass<1 then
response.write"<br>"
response.write"<br>"
response.write "<center><font size=2>抱歉，您没有此项操作权限！<a href=G_mainplan.asp>返回</a>"
response.end
end if
%>
<%
'***************************************
'
'Author:Ruphi Update Time:2001-08-21
'功能说明：计划统计（即业务员是否制定计划以及制定计划的情况），用到视图
'
'**************************************
%>
<%
tag=request("tag") '返回的标志
wid=request("WeekID") '周次
sid=request("departID") '部门代号
%>
<%
'找出符合条件的计划记录
set Myrst=server.createobject("adodb.recordset")
str="select StuffNum,Stuffname,count(ClientNum) as total,DepartCode,CloseWeek from G_viewplan where departcode like '"&Session("DepartID")&"%'"
if wid<>"" then
str=str&" and CloseWeek='"&wid&"'"
end if
if sid<>"" then
str=str&" and DepartCode='"&sid&"'"
end if
str=str&" group by stuffNum,Stuffname,DepartCode,CloseWeek"
Myrst.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_plantj.asp?page="+document.myform.page1.value+"&weekid="+document.myform.weekid.value+"&departID="+document.myform.departID.value+"&tag="+document.myform.tag.value
' msgbox a
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_plantj.asp" name="myform">
<p>
<table border="0" width="100%" >
<tr>
<td width="100%">
<p align="left"><font size="2">（提示：当前为第<%=datepart("ww",date())%>周）
</font>
</p>
</td>
</tr>
</table>
<table border="0" cellspacing="0" width="100%" align="center" bgcolor="#F1E8DA">
<tr>
<td width="17%" align="center" >
<p align="right">
<font size="2">周次</font>
</p>
</td>
<td width="14%" align="center" >
<p align="left">
<select name="WeekID" size="1" style="width: 78; height: 23">
<% if wid<>"" then%>
<option value="">全部</option>
<% for i=1 to 54 %>
<option value="<%=i%>" <% if cint(trim(wid))=i then
response.write ("selected")
end if
%>>第<%=i%>周</option>
<%next%>
<%else%>
<option value="">全部</option>
<%for i=1 to 54 %>
<option value="<%=i%>" >第<%=i%>周</option>
<%next%>
<%end if %>
</select>
</p>
</td>
<td width="6%" align="center">
<p align="right">
<font size="2">单位
</font>
</p>
</td>
<td width="34%" align="center">
<p align="left">
<select name="departID" style="width:100" size="1">
<%
set rst=Server.CreateObject("ADODB.RecordSet")
sql="Select departcode,name from A_DepartInfo where DepartCode like '"&Session("DepartID")&"%' and delflag<>'1' "
rst.open sql,pubconn,1
%>
<option value="">全部</option>
<%do while not rst.eof%>
<option value="<%=rst("DepartCode")%>"
<%
if sid<>"" then
if trim(sid)=rst("DepartCode") then
response.write("selected")
end if
end if
%> ><%=rst("Name")%></option>
<%
rst.movenext
loop
set rst=nothing
%>
</select> <input type="submit" value="查询" class="hand" style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
</p>
</td>
</tr>
</table>
<%
if Myrst.eof then%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -