📄 searchmgr.inc.bak
字号:
<%
'################################################################################################
'#
'# 文件名 : searchmgr.inc
'#
'#
'# 创建人 : zhouyun
'# 日 期 : 2002-05-13
'#
'# 修改历史 : ****年**月**日 ****** 修改内容:**************************************************
'#
'# 功能描述 : 公文查询管理函数文件
'# 版 本 :
'#
'# Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'################################################################################################
'***************************************************************************************************
' Name : TableAdd
' Function : Form Table to Implement Insert, Modify, Delete According to the Post Action
' In : No
' Out : No
' Return : Table Add, Modify, Delete
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableAdd()
'---------------------------------------------------
' declares
'---------------------------------------------------
Dim sNameText,sFormName, sTemp,id,sDeptText,sTimeText,sStartText,sEndText,sTypeText
'---------------------------------------------------
' get parameters
'---------------------------------------------------
id = GetParam("id")
'---------------------------------------------------
' construct a table contains all buttons
'---------------------------------------------------
sTemp = "<td width=300><table width=300 cellspacing=0 cellpadding=0 border=0><tr><td width=300 align=center>"
'---------------------------------------------------
' show buttons
'---------------------------------------------------
If IsEmpty(id) Then
' --------------------------------
' add
'---------------------------------
sNameText = ""
sDeptText = ""
sTimeText = Date
sStartText = Date
sEndText = Date
sTypeText = ""
sTemp = sTemp & _
"<span id=btnAdd style=""cursor:hand"" title=""制度信息，点击新增按钮""><img border=0 src=""../images/button/add.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnClear style=""cursor:hand"" title=""清空""><img border=0 src=""../images/button/clear.gif"" style=""vertical-align:bottom""></span>"
Else
'----------------------------------
' upd and del
'----------------------------------
Dim crs : Set crs = New CRecordset
Dim sSQL : sSQL = "select name,dept,settime,starttime,endtime,type,path from T_Rule_Info where sn=" & ToSQL(id, "Number")
Dim rs : Set rs = crs.open(dbLocal,sSQL)
While Not rs.EOF
sNameText = crs.GetValue("name")
sDeptText = crs.GetValue("dept")
sTimeText = crs.GetValue("settime")
sStartText = crs.GetValue("starttime")
sEndText = crs.GetValue("endtime")
sTypeText = crs.GetValue("type")
rs.movenext
Wend
crs.Close()
sTemp = sTemp & _
"<span id=btnMod style=""cursor:hand"" title=""修改制度名称，点击更新按钮""><img border=0 src=""../images/button/update.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnDel style=""cursor:hand"" title=""点击删除按钮删除制度名称""><img border=0 src=""../images/button/delete.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnRes style=""cursor:hand"" title=""重置""><img border=0 src=""../images/button/reset.gif"" style=""vertical-align:bottom""></span>" & _
" " & _
"<span id=btnCancel style=""cursor:hand"" title=""取消""><img border=0 src=""../images/button/cancel.gif"" style=""vertical-align:bottom""></span>"
End If
sTemp = sTemp & "</td></tr></table></td>"
'----------------------------------------------------
' draw add table and return
'----------------------------------------------------
TableAdd = _
TableTitle("制度信息", 300, "", "") & _
"<table cellspacing=0 cellpadding=0 width=300 align=left border=0>" & _
"<form name=frmInfoMgr method=post action=""infomgr.asp"">" & _
"<tr height=60 valign=center>" & _
" <td width=300 align=center colspan=3><br>" & _
" 制度名称：<input type=text name=newname value='" & sNameText & "' maxlength=50><br><BR>" & _
" 制定部门：<input type=text name=newdept value='" & sDeptText & "' maxlength=50><br><BR>" & _
" 制度类别：<select name=newtype maxlength=50>" & SelectOptions(dblocal, "t_rule_types", "type", "type", sTypeText, "") & "</select><BR><BR>" & _
"" & DrawCal("有效起始日期", sStartText, "newstart", "dateimg1") & "<br><BR>" & _
"" & DrawCal("有效终止日期", sEndText, "newend", "dateimg2") & "<br><BR>" & _
"" & DrawCal("制 定 日 期", sTimeText, "newtime", "dateimg3") & "<br><BR>" & _
" <input type=hidden name=id value='" & id & "'>" & _
" <input type=hidden name=formAction>" & _
" </td>" & _
" </tr>" & _
"<tr height=40 align=center>" & _
sTemp & _
"</tr>" & _
"<tr height=10><td colspan=3 width=300> </td></tr>" & _
"</form>" & _
"</table>"
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableHeader
' Function : Table head for Record Table
' In : No
' Out : No
' Return : Table head of table record
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableHeader()
sFileName = "searchmgr.asp"
TableHeader = _
TableTitle("系统公文查询列表", 600, "", "#0040a0") & _
"<table cellspacing=0 cellpadding=0 width=600 align=center class=tablelist>" & _
"<tr>" & _
"<td class=tdHead align=center width=130>" & TableHeaderField(sFileName, "doc_subject", "公文主题", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead align=center width=60>" & TableHeaderField(sFileName, "type_desc", "类型", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead align=center width=140>" & TableHeaderField(sFileName, "doc_sender", "公文单位", sFormParams, iSort, iSorted) & "</td>" & _
"<td class=tdHead align=center width=90>" & TableHeaderField(sFileName, "doc_sent_date", "印发日期", sFormParams, iSort, iSorted) & "</td>" & _
"</tr>"
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableRecords
' Function : Table List the Records
' In : 9 parameters
' sSQL --- sql statement
' iCols --- columns
' iRecordsPerPage --- records per page
' iTotalRecords --- total records
' iCurrentPage --- current page
' iTotalPages --- total pages
' sFileName --- file name
' sFormParams --- form parameters
' sSortParam --- sort parameters
' Out : No
' Return : Table head of table record
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableRecords(sSQL, iCols, iRecordsPerPage, iTotalRecords, iCurrentPage, iTotalPages, sFileName, sFormParams, sSortParams)
'-------------------------------------------------------------
' declares
'-------------------------------------------------------------
Dim sTemp : sTemp = "" ' 临时字符串变量
Dim j ' 临时循环变量
Dim iCounter : iCounter = 1
Dim iPrevPage, iNextPage
Dim crs : Set crs = New CRecordset
Dim rs : Set rs = crs.open(dbLocal,sSQL)
Dim sRuleName,sRuleSN,sRuleStart,sRuleEnd,sRuleSet,sRuleDept,sRuleType
Dim sDocId,sDocSubject,sDocSender,sDocSentDate,sDocType
'--------------------------------------------------------------
' 如果未到记录尾，将记录定位到你翻到的页面的第一个记录，否则显示空行
'---------------------------------------------------------------
' response.write(sSQL)
' response.end
if Not rs.EOF then
rs.Move (iCurrentPage - 1) * iRecordsPerPage
end if
'--------------------------------------------------
' write the record list table
'--------------------------------------------------
while not rs.EOF and iCounter <= iRecordsPerPage
' sRuleName = crs.GetValue("name")
' sRuleSN = crs.GetValue("sn")
' sRuleStart = crs.GetValue("starttime")
' sRuleEnd = crs.GetValue("endtime")
' sRuleSet = crs.GetValue("settime")
' sRuleDept = crs.GetValue("dept")
' sRuleType = crs.GetValue("type")
'
sDocId = crs.GetValue("doc_id")
sDocSubject = crs.GetValue("doc_subject")
sDocType = crs.GetValue("type_desc")
sDocSender = crs.GetValue("doc_sender")
sDocSentDate = crs.GetValue("doc_sent_date")
sTemp = sTemp & "<tr valign=center>" & _
"<td class=tdlist align=left width=130 title='" & sDocSubject & "' style=""cursor:hand"" onclick=""javascript:location.href='../docmgr/searchmgr.asp?id=" & sDocId & "';""><img src=""../images/bg/ar-g.gif"" width=8 height=8> " & ToHtml(Bref(sDocSubject,25)) & " </td>" & _
"<td class=tdlist width=60 title='" & sDocType & "' style=""cursor:hand"" >" & sDocType & " </td>" & _
"<td class=tdlist width=140 title='" & sDocSender & "' >" & ToHtml(Bref(sDocSender,25)) & " </td>" & _
"<td class=tdlist width=90 title='" & sDocSentDate & "' >" & sDocSentDate & "</td>" & _
"</tr>"
iCounter = iCounter + 1
rs.movenext
wend
crs.Close()
'------------------------------------------------
' 填补空白行
'------------------------------------------------
sTemp = sTemp & WhiteRows(iCols, iCounter, iRecordsPerPage)
'-----------------------------------------------
' 首页、前页、后页、尾页等分页信息
'-----------------------------------------------
sTemp = sTemp & "<tr><td class=tdlist colspan=" & iCols & " align=right>" & _
Paginate(sFileName, sFormParams, sSortParams, iCurrentPage, iTotalPages) & _
" </td></tr>"
'------------------------------------------------
' return
'------------------------------------------------
TableRecords = sTemp
End Function
'***************************************************************************************************
'***************************************************************************************************
' Name : TableDetail
' Function : Table Show the Search records detail
' In : No
' Out : No
' Return : Table of record detail
' Comment : No
'
'---------------------------------------------------------------------------------------------------
Function TableDetail()
'-----------------------------------------------------
' declares
'-----------------------------------------------------
Dim sTemp : sTemp = "" ' 临时字符串变量
Dim j ' 临时循环变量
'-----------------------------------------------------
' Get Parameters
'-----------------------------------------------------
Dim id : id = GetParam("id")
If IsEmpty(id) Then
Exit Function
End If
'-----------------------------------------------------
' Connect to Database
'-----------------------------------------------------
Dim crs : set crs = New CRecordset
Dim sql : sql = "select * from t_document, t_doc_type, t_doc_urgent, t_doc_secret,v_user_account where doc_type_id=type_id and doc_secret_level=secret_level and doc_urge_level=urgent_level and doc_id=" & ToSQL(id,"Number")
Dim rs : set rs = crs.open(dbLocal,sql)
Dim sRuleName,sRuleSN,sRuleStart,sRuleEnd,sRuleSet,sRuleDept,sRuleType
Dim sDocType, sDocSubject, sDocNumber, sDocUrgent, sDocSecret, sDocPages, sDocKeywords, sDocReports, sDocSends, sDocSender,sDocSentDate,sDocRegman,sDocRegDate,sDocPath
'-----------------------------------------------------
' show detail infomations
'-----------------------------------------------------
If Not rs.EOF Then
sDocType = crs.GetValue("type_desc")
sDocSubject = crs.GetValue("doc_subject")
sDocNumber = crs.GetValue("doc_number")
sDocUrgent = crs.GetValue("urgent_desc")
sDocSecret = crs.GetValue("secret_desc")
sDocPages = crs.GetValue("doc_pages")
sDocKeywords = crs.GetValue("doc_keyword")
sDocReports = crs.GetValue("doc_report_person")
sDocSends = crs.GetValue("doc_send_person")
sDocSender = crs.GetValue("doc_sender")
sDocSentDate = crs.GetValue("doc_sent_date")
sDocRegman = crs.GetValue("account_name")
sDocRegDate = crs.GetValue("doc_reg_date")
sDocPath = crs.GetValue("doc_path")
End If
rs.close()
sql = "select * from t_doc_attachment where doc_id=" & ToSQL(id,"Number")
set rs = crs.open(dbLocal,sql)
dim sAttachSubject,sAttachPath,sl
sl = ""
while not rs.eof
sAttachSubject = crs.GetValue("attach_subject")
sAttachPath = crs.GetValue("attach_path")
If sAttachPath = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -