?? 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 + -