?? c_marketinfolist.asp
字號:
<%
'*********************************頁面說明區(qū)****************************
'開發(fā)者 金壽吉
'首次開發(fā)時間 2001-08-31
'最后一次修改時間 2001-09-04
'主要功能 系統(tǒng)名詞列表數(shù)據(jù)
'特別提示 用戶不能刪除此表的任何數(shù)據(jù),但可調(diào)整其中的數(shù)據(jù) %>
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%
'******************************變量的說明**********************************
dim UserName '當(dāng)前用戶名
dim userclass '表示用戶的權(quán)限級別
dim userCheck '表示用戶是否有審核權(quán)限
dim Authors(20) '表示文檔集合的作者
dim DepartID(20) '表示文檔集合的部門標(biāo)識
Dim DataRow '數(shù)據(jù)的實(shí)際行數(shù)
dim TotalPage '總頁數(shù)
dim curPage '當(dāng)前頁
dim NextPage '下一頁
dim PrevPage '前一頁
dim Keyitem(20,10) '保存數(shù)據(jù)的值的數(shù)組(行小于20,列小于10)
dim ShowField '主要顯示的字段
dim DelSucc '表示刪除數(shù)據(jù)成功的標(biāo)志
'*********************************設(shè)置常量和變量的值************************
'bgColor :表示主頁背景顏色 firstclor :表示奇數(shù)行的顏色
'SecondColor:表示偶數(shù)行的顏色 MainTable :主表名(控制對用戶的權(quán)限)
'budStyle :表示按紐的樣式 TableSql :查詢表達(dá)式
'TableOrder :表示查詢中的排序字樣 ShowField :主要顯示的字段
'MainPage :對應(yīng)的詳細(xì)頁面 RowCount :控制的最多顯示的行數(shù)
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
'*********************************設(shè)置查詢對話框的數(shù)值************************
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="宋體">報告標(biāo)題:</font><font size="2"><input type="text" name="Subject" size="35" tabindex="2" ></font><font size="2" face="宋體">
業(yè)務(wù)員</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">報告標(biāo)題</font>
</td>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -