📄 c_salepromotionlist.asp
字号:
<%
'*********************************页面说明区****************************
'开发者 金寿吉
'首次开发时间 2001-08-31
'最后一次修改时间 2001-09-04
'主要功能 促进销售活动
%>
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'******************************变量的说明**********************************
dim UserName '当前用户名
dim userclass '表示用户的权限级别
dim userCheck '表示用户是否有审核权限
dim Authors(20) '表示文档集合的作者
dim DepartID(20) '表示文档集合的部门标识
Dim DataRow '数据的实际行数
dim TotalPage '总页数
dim curPage '当前页
dim NextPage '下一页
dim PrevPage '前一页
dim Keyitem(20,10) '保存数据的值的数组(行小于20，列小于10)
dim ShowField '主要显示的字段
dim DelSucc '表示删除数据成功的标志
'*********************************设置常量和变量的值************************
'bgColor ：表示主页背景颜色 firstclor ：表示奇数行的颜色
'SecondColor：表示偶数行的颜色 MainTable ：主表名(控制对用户的权限)
'budStyle ：表示按纽的样式 TableSql ：查询表达式
'TableOrder ：表示查询中的排序字样 ShowField ：主要显示的字段
'MainPage ：对应的详细页面 RowCount ：控制的最多显示的行数
const bgcolor="#ffffff"
const firstcolor="#f7f7f7"
const secondcolor="#EDEBEC"
const MainTable="C_SalePromotion"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
const TableSql="select ID,Topic,PYear,PMonth,PDay,Customer,PlanCost,FactCost,SaleMoney,Sales,authors,departid from C_SalePromotion where delflag<>'1'"
const TableOrder="Pyear Desc,Pmonth Desc,PDay Desc"
ShowField="ID,Topic,PYear,PMonth,PDay,Customer,PlanCost,FactCost,SaleMoney,Sales"
DelSucc=1
const MainPage="C_SalePromotion.asp"
Const KeyField="ID"
const RowCount=12
'*********************************设置查询对话框的数值************************
Topic=Request("Topic")
vYear=Request("vYear")
if vYear="" then
vYear=year(now())
end if
vMonth=Request("vMonth")
vDay=Request("vDay")
gopage=Request("gopage")
%>
<!--#include file="../BaseInfo/ListData.Server"-->
<% 'Set PubConn=Nothing %>
<Script Language="VBScript">
'功能：表单的初始化代码
sub formini()
document.forms(0).vYear.value="<%=vYear%>"
document.forms(0).vMonth.value="<%=vMonth%>"
document.forms(0).vDay.value="<%=vDay%>"
document.forms(0).Condition.value="<%=Condition%>"
document.forms(0).gopage.value="<%=gopage%>"
if document.forms(0).gopage.value="" then document.forms(0).gopage.value="1"
End Sub
'功能：形成查询条件
Sub SearchClick()
dim lcTopic
dim lcYear,lcMonth,lcDay
dim condition
lcTopic=trim(document.fn.Topic.value)
lcYear=trim(document.fn.vYear.value)
lcMonth=trim(document.fn.vMonth.value)
lcDay=trim(document.forms(0).vDay.value)
if lcTopic<>"" then
condition="Topic like '%"+lcTopic+"%'"
end if
if lcYear<>"" then
if Condition<>"" then
Condition=Condition+" and "
end if
Condition=Condition+"PYear='"+lcYear+"'"
end if
if lcMonth<>"" then
if Condition<>"" then
Condition=Condition+" and "
end if
Condition=Condition+"PMonth like '"+lcMonth+"'"
end if
if lcDay<>"" then
if Condition<>"" then
Condition=Condition+" and "
end if
Condition=Condition+"PDay='"+lcDay+"'"
end if
document.forms(0).Condition.value=condition
document.forms(0).submit()
End Sub
</Script>
<!--#include file="../BaseInfo/ListData.Client"-->
<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>
</head>
<body bgcolor="#FFFFFF" onload="formini()">
<form method="GET" action="C_SalePromotionList.asp" name="fn">
<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" width="34" height="15">
</font><font size="2">市场活动管理</font></b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<table border="1" width="100%" cellspacing="0" cellpadding="0" height="41">
<tr>
<td width="100%" height="39" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<p align="center"><font size="2" face="宋体">促销主题 <input maxLength="32" name="Topic" size="28" value="<%=Topic%>" tabindex="1">
活动时间 </font><font size="2"><input type="text" name="vYear" size="4" tabindex="2" >
年
<select size="1" name="vMonth" tabindex="3">
<option value="">无</option>
<% for i=1 to 9
b="0"+cstr(i) %>
<option value=<%=b%>>0<%=i%></option>
<% next %>
<% for i=10 to 12 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>月<select size="1" name="vDay" >
<option value="">无</option>
<% for i=1 to 9
b="0"+cstr(i) %>
<option value=<%=b%>>0<%=i%></option>
<% next %>
<% for i=10 to 31 %>
<option value="<%=i%>"><%=i%></option>
<% next %>
</select>日
</font>
<input type="button" value="查询" name="Search" onclick="SearchClick()" tabindex="4" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
</td>
</tr>
</table>
<table width="100%" height="1"><tr><td height="1"></td></tr></table>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="19">
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -