search.asp

物业管理和办公自动化系统

<%
'************************************************************************************************
' 文件名: search.asp
' Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'
' 　创建人 : 周秋舫
' 　日　期 : 2002-05-13
' 修改历史 :
'   ****年**月**日 ****** 修改内容:**************************************************
' 功能描述 : 消息查找
' 　版　本 :
'************************************************************************************************
option explicit
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "no-cache"
Response.Expires = -1
%>

<!-- #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="../include/emp.inc" -->

<!-- #include file="../common/commonpage.inc" -->
<!-- #include file="../include/message.inc" -->
<!-- #include file="msg.inc" -->
<!-- #include file="msg_l.inc" -->

<%
'call CheckSecurity()

'********************************************************************************************************
' 服务器端代码
'' 参数：
dim pKeyword	: pKeyword = GetParam("keyword")
dim pDay1			: pDay1 = GetParam("day1")
dim pDay2			: pDay2 = GetParam("day2")
dim pFolder		: pFolder = GetParam("folder")
if IsEmpty(pDay1) then pDay1 = date
if IsEmpty(pDay2) then pDay2 = date
if IsEmpty(pFolder) then pFolder = "0"

'' 是不是独立的页面
dim pFreePage	: pFreePage = GetParam("freepage")


'' 如果是提交，则进行删除操作
if UCase(Request.ServerVariables("REQUEST_METHOD") = "POST") then
	dim choose, sFormAction
	choose = GetParam("choose")
	sFormAction = GetParam("FormAction")
	''response.write "formAction: " &  sFormAction & "...here:" & choose & "<br>"
	select case sFormAction
	case "delete"
		call DeleteMsg(choose)
	case "perdelete"
		call PerDeleteMsg(choose)
	case "restore"
		call RestoreMsg(choose)
	end select
end if

'-------------------------------------------------------------------------------------------------------------------------------------------------
' 分页相关的变量定义
'-------------------------------------------------------------------------------------------------------------------------------------------------
Dim sSQL, sWhere, sOrderby
Dim sFileName			: sFileName = "search.asp"
Dim iTotalRecords		: iTotalRecords = 0			' 分页
Dim iRecordsPerPage	: iRecordsPerPage = 10
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 = ""

sFormParams = "day1=" & pDay1 & "&day2=" & pDay2 & "&keyword=" & pKeyword & "&freepage=" & pFreePage & "&"

''********************************************************************************************************
'' 构造分页的SQL语句
''********************************************************************************************************
sSQL = "select * from t_msg"
sOrderby = " order by send_time desc"

sWhere = " where emp_serial = " & GetEmpSerial & _
			" and send_time >= " & ToSQL(pDay1,"Text") & " and send_time < " & ToSQL(DateAdd("d", 1, pDay2),"Text") & _
			" and (subject like " & ToSQL("%" & pKeyword & "%","Text") & " or content like " & ToSQL("%" & pKeyword & "%", "Text")& ")"

select case CStr(pFolder)
case "0"
	' do nothing，and search through all messages
case IN_BOX, OUT_BOX, DRAFT_BOX
	sWhere = sWhere & " and folder = " & pFolder
case INBOX_BULLETIN, INBOX_MEETING, INBOX_APPROVE, INBOX_TASK
	sWhere = sWhere & " and folder = " & pFolder
case TRASH_BOX
	sWhere = sWhere & " and folder >= 4"		'' 查找回收站内的消息
end select

''response.write sSQL & sWhere & sOrderby & "<br>"
''********************************************************************************************************
'' 分页SQL语句构造完毕，调用PrepareListData进行分页前的准备
'' 收件箱、回收站显示发件人
'' 发件箱、草稿箱显示收件人
''-------------------------------------------------------------------------------------------------------------------------------------------------
dim arrayFields(3), sDelimiter
sDelimiter = "*"
arrayFields(0) = "status"
arrayFields(1) = "subject"
arrayFields(2) = "send_time"
arrayFields(3) = "sender"
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">

<style type="text/css">
.shadow2 {color:black;FILTER: DropShadow(color=cccccc, offX=1, offY=1, positive=1); width:100%;}
.shadow1 {color:#990000;FILTER: DropShadow(color=cccccc, offX=2, offY=2, positive=1); width:100%;}
</style>

<script language="javascript" src="msg_l.js"></script>

<!-- 日历 -->
<IFRAME style="display:none;position:absolute;width:148;height:194;z-index=100" ID="CalFrame" MarginHeight=0 MarginWidth=0 noresize frameborder=0 scrolling=no src="../common/cal/calendar.htm"></IFRAME>
<script language="javascript" src="../common/cal/calendar.js"></script>
<script for=document event="onclick()">
<!--
document.all.CalFrame.style.display="none";
//-->
</script>
<!-- 日历 -->

</head>

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

<%
if Not IsEmpty(pFreePage) then
	Response.Write "<br>" & vbLF
	Response.Write OuterTableHeader
	Response.Write HeaderWithMenu
	Response.Write InnerTableHeader

	iRecordsPerPage = 12
end if

'********************************************************************************************************
' 主体从这里开始
'-------------------------------------------------------------------------------------------------------------------------------------------------

Response.Write TableSearch

Response.Write FrameTitle("消息查询结果", "images/search.gif", "#0099cc", "navy")
Response.Write TableHeader
Response.Write TableRecords(sSQL & sWhere & sOrderby, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams )
Response.Write TableTailer

Response.Write ActionLink

'-------------------------------------------------------------------------------------------------------------------------------------------------
' 主体到这里结束
'********************************************************************************************************
if Not IsEmpty(pFreePage) then
	Response.Write MsgLinkTable

	Response.Write InnerTableTailer
	Response.Write Footer
	Response.Write OuterTableTailer
end if
%>

</body>
</html>