📄 hotspot_a.asp.bak

📁 物业管理和办公自动化系统
💻 BAK
字号:
<%
'************************************************************************************************
' 文件名: HotSpot_a.asp
' 功能描述 : 大事记查询列表
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
'response.end
%>

<!-- #include file="../include/config.inc" -->
<!-- #include file="../include/common.inc" -->
<!-- #include file="../include/debug.inc" -->
<!-- #include file="../include/db.inc" -->
<!-- #include file="../include/date.inc" -->
<!-- #include file="../include/datahandle.inc" -->
<!-- #include file="../include/recordlist.inc" -->
<!-- #include file="../include/security.inc" -->

<!-- #include file="../common/commonpage.inc" -->
<!-- #include file="HotSpot_a.inc" -->

<%
'call CheckSecurity()

'********************************************************************************************************
' 服务器端代码

'-------------------------------------------------------------------------------------------------------------------------------------------------
' 分页相关的变量定义
'-------------------------------------------------------------------------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby
Dim sFileName			: sFileName = "HotSpot_a.asp"
Dim iTotalRecords		: iTotalRecords = 0			' 分页
Dim iRecordsPerPage	: iRecordsPerPage = 12
Dim iTotalPages			: iTotalPages = 0
Dim iCols					: iCols = 5
Dim iCurrentPage		: iCurrentPage = GetParam("Page")
Dim iSort					: iSort = GetParam("Sorting")
Dim iSorted				: iSorted = GetParam("Sorted")
Dim sSortParams		: sSortParams = ""
Dim sFormParams		: sFormParams = ""
Dim sDirection			: sDirection = ""

'-----------------------------------------------------------------------------------------------------'
' 查询参数:部门、主题、发生时间
'------------------------------------------------------------------------------------------------------
dim pDept	: pDept	= GetParam("Dept")
dim pSubject	: pSubject	= GetParam("Subject")
dim pHappen_Time	: pHappen_Time	= GetParam("Happen_Time")

sFormParams =  "Dept=" & pDept & "&Subject=" & pSubject & "&Happen_Time=" & pHappen_Time & "&"


''********************************************************************************************************
'' 构造分页的SQL语句
''********************************************************************************************************
sSQL = "select Serial, " & _
    "Dept, " & _
    "Subject, " & _
	"Content, "& _
	"Recorder_ID, "& _
    "Happen_Time, " & _
	"Record_Time " & _ 
    "from T_Hotspot " 
sWhere = ""

sOrderby = " order by Happen_Time desc"

''********************************************************************************************************
'' 查询条件限制
''********************************************************************************************************
if Not IsEmpty(pDept) then sWhere = sWhere & " where Dept = " & ToSQL(pDept,"TEXT")
if Not IsEmpty(pSubject) then sWhere = sWhere & " and Subject like " & ToSQL(pSubject,"Text")
if Not IsEmpty(pHappen_Time) then sWhere = sWhere & " and Happen_Time like " & ToSQL(pHappen_Time,"Date")
'********************************************************************************************************
' 分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'-------------------------------------------------------------------------------------------------------------------------------------------------
dim arrayFields(6), sDelimiter
sDelimiter = "*"
arrayFields(0) = "Dept"
arrayFields(1) = "Subject"
arrayFields(2) = "Serial"
arrayFields(3) = "Recorder_ID"
arrayFields(4) = "Record_Time"
arrayFields(5) = "Happen_Time"
arrayFields(6) = "Content"
call PrepareListData(sSQL & sWhere & sOrderby, Join(arrayFields, sDelimiter), sDelimiter)
'********************************************************************************************************
%>

<html>
<head>
<title>上海信息大楼 Shanghai Information Tower</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../common/common.css" type="text/css">

<script language="VBScript">
Sub btnSearch_OnClick()
	document.all.frmSearch.submit()
End Sub
</script>
</head>

<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" background="../images/bg/bg0.jpg">
<br>

<%
Response.Write OuterTableHeader
Response.Write HeaderWithMenu
Response.Write InnerTableHeader
'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------
Response.Write TableSearch

Response.Write TableHeader
Response.Write TableRecords(sSQL & sWhere & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )

Response.Write TableLink
'-------------------------------------------------------------------------------------------------------------------------------------------------
' 主体到这里结束
'********************************************************************************************************
Response.Write InnerTableTailer
Response.Write Footer
Response.Write OuterTableTailer
%>

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -