📄 c_marketinfolist.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_MarketInfo"
const budStyle="background-color: #D1D1D1; border-style: solid; border-width:1"
const TableSql="select ID,Subject,Sales,ReportDate,Suggest,authors,departid from C_MarketInfo where delflag<>'1'"
const TableOrder="ReportDate Desc"
ShowField="ID,Subject,Sales,ReportDate,Suggest"
DelSucc=1
const MainPage="C_MarketInfo.asp"
Const KeyField="ID"
const RowCount=12
'*********************************设置查询对话框的数值************************
Subject=Request("Subject")
Sales=Request("Sales")
gopage=Request("gopage")
%>
<!--#include file="../BaseInfo/ListData.Server"-->
<% Set PubConn=Nothing %>
<Script Language="VBScript">
'功能：表单的初始化代码
sub formini()
document.forms(0).Subject.value="<%=Subject%>"
document.forms(0).Sales.value="<%=Sales%>"
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 lcSubject
dim lcSales
dim condition
lcSubject=document.fn.Subject.value
lcSales=document.fn.Sales.value
if lcSubject<>"" then
condition="Subject like '%"+lcSubject+"%'"
end if
if lcSales<>"" then
if Condition<>"" then
Condition=Condition+" and "
end if
Condition=Condition+"Sales like '%"+lcSales+"%'"
end if
document.fn.Condition.value=condition
fn.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_MarketInfoList.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">
</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="宋体">报告标题：</font><font size="2"><input type="text" name="Subject" size="35" tabindex="2" ></font><font size="2" face="宋体">
业务员</font><font size="2"><input type="text" name="Sales" size="23" tabindex="2" >
</font><input type="button" value="查询" name="Search" onclick="SearchClick()" tabindex="4" class=hand style="<%=budStyle%>">
</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>
<td width="4%" align="center" height="28" bgcolor="#DDD2C4">
<input type="checkbox" name="C0" value="ON" onclick="selectclick()">
</td>
<td width="14%" align="center" height="28" bgcolor="#DDD2C4">
<font size="2">报告标题</font>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -