infomgr1_a.inc

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

<%
'#############################################################################################
'#
'#	文件名	 : infomgr1_a.inc
'#
'#
'#	创建人	 : zhouyun
'# 　	日　期	 : 2002-05-13
'#
'#	修改历史  : ****年**月**日 ****** 修改内容:**********************************************
'#
'#	功能描述	 : 公文附件信息管理函数文件
'# 　	版  　本	 :
'#	
'#	Copyright(c) 2001-2002 上海阿尔卡特网络支援系统有限公司
'#
'#############################################################################################


'*********************************************************************************************
'	Name		: InfoMaintain
'	Function	: Insert, Modify, Delete According to the Post Action
'	In		: No
'	Out		: No
'	Return		: No
'	Comment		: No
'
'---------------------------------------------------------------------------------------------

Sub InfoMaintain()

	'-------------------------------------------------------
	'Declares
	'-------------------------------------------------------
	Dim sNameOld, sNameNew, sAction, sSQL, sError,id,sDeptNew,sTimeNew,sStartNew,sEndNew,sTypeNew
	Dim sDocType, sDocSubject, sDocNumber, sDocUrgent, sDocSecret, sDocPages, sDocKeywords, sDocReports, sDocSends, sDocSender,sDocSentDate,sDocRegman,sDocRegDate
	
	Dim sAttachSubject, sAttachSize
	Dim did,aid

	'-------------------------------------------------------
	'Get parameters
	'--------------------------------------------------------
	did=GetParam("did")
	aid=GetParam("aid")
	sAction = GetParam("formAction")
	sAction = LCase(sAction)

	'---------------------------------------------------------
	' Operate according to sAction
	'---------------------------------------------------------

	select case sAction
	case "addtype"
		'------------------------------------------
		' add ---- insert
		'------------------------------------------
		sAttachSubject		= GetParam("newsubject")
		sAttachSize		= GetParam("newpages")
		
		Dim num
		sSQL = "select count(*) num from t_doc_attachment where doc_id=" & ToSQL(did,"Number")
		Dim crs	: set crs = New CRecordset
		Dim rs	: set rs = crs.open(dbLocal,sSQL)
'		response.write(sSQL)
'		response.end
		If Not rs.EOF Then
			num  = crs.GetValue("num")
			rs.movenext
		End If
		crs.Close()
		If num >= 5 Then
			Response.Write "<script language=""javascript"">alert('对不起，公文附件不能超过5个！')</script>"
			Exit Sub
		End If
		sSQL = "insert into T_Doc_attachment (doc_id, attach_subject, attach_size) values(" & _
				ToSQL(did,"Number") & "," & ToSQL(sAttachSubject,"Text")  & "," & ToSQL(sAttachSize,"Number")  & _
				")"
	case "updtype"
		'------------------------------
		' upd --- modify
		'------------------------------
		sAttachSubject		= GetParam("newsubject")
		sAttachSize		= GetParam("newpages")

		sSQL = "update T_Doc_attachment set attach_subject=" & ToSQL(sAttachSubject,"Text")  & "," & _
		       "		      attach_size=" & ToSQL(sAttachSize,"Number")  & _
		       " where attach_id=" & ToSQL(aid, "Number")
'		response.write (sSQL)
'		response.end

'		sSQL = "update T_Rule_Info set name=" & ToSQL(sNameNew, "Text") & ", dept=" & ToSQL(sDeptNew,"Text") & ", settime=" & ToSQL(sTimeNew,"Text") & _
'				", starttime=" & ToSQL(sStartNew,"Text") & ", endtime=" &ToSQL(sEndNew,"Text") & ", type=" & ToSQL(sTypeNew,"Text") & " where sn =" & ToSQL(id, "Number")
	case "deltype"
		'-------------------------------
		' del --- delete
		'-------------------------------
		sSQL = "delete from T_Doc_Attachment where attach_id =" & ToSQL(aid, "Number")
	end select

	sError = ExecuteSQL(dbLocal, sSQL)

	response.redirect "infomgr1_a.asp?did=" & did

	'-----------------------------------------
	' error handling
	'-----------------------------------------
	if sError <> "" then
		if sAction = "addtype" then
			Response.Write "<script language=""javascript"">alert('对不起，制度名称已存在，不能重复新增！')</script>"
			exit sub
		end if
		if sAction = "deltype" then
			Response.Write "<script language=""javascript"">alert('对不起，制度名称下存在制度，不能删除该名称！')</script>"
			exit sub
		end if
		Response.Write "<script language=""javascript"">alert('对不起，操作中发生错误，请查阅帮助文件！')</script>"
	end if
End Sub
'***************************************************************************************************


'***************************************************************************************************
'	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

	Dim sDocType, sDocSubject, sDocNumber, sDocUrgent, sDocSecret, sDocPages, sDocKeywords, sDocReports, sDocSends, sDocSender,sDocSentDate,sDocRegman,sDocRegDate

	Dim sAttachSubject, sAttachSize
	Dim did,aid

	'---------------------------------------------------
	' get parameters
	'---------------------------------------------------

	did = GetParam("did")
	aid = GetParam("aid")

	'---------------------------------------------------
	' 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(aid) then
		' --------------------------------
		' add
		'---------------------------------
''			sDocType			= 
'			sDocSubject			= ""
'			sDocNumber			= ""
''			sDocUrgent			= crs.GetValue("doc_urge_level")
''			sDocSecret			= crs.GetValue("doc_secret_level")
'			sDocPages			= ""
'			sDocKeywords			= ""
'			sDocReports			= ""
'			sDocSends			= ""
'			sDocSender			= ""
'			sDocSentDate			= date
''			sDocRegman			= crs.GetValue("doc_reg_person")
'			sDocRegDate			= date
		
		sAttachSubject = ""
		sAttachSize = ""

'		sTemp = sTemp & _
'			"<span id=btnAdd style=""cursor:hand"" title=""制度信息，点击新增按钮""><img border=0 src=""../images/button/add.gif"" style=""vertical-align:bottom""></span>" & _
'			"&nbsp;" & _
'			"<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 * from T_doc_attachment where attach_id=" & ToSQL(aid, "Number")
		dim rs	: set rs = crs.open(dbLocal,sSQL)
		
		while not rs.EOF 
'			sDocType			= crs.GetValue("doc_type_id")
'			sDocSubject			= crs.GetValue("doc_subject")
'			sDocNumber			= crs.GetValue("doc_number")
'			sDocUrgent			= crs.GetValue("doc_urge_level")
'			sDocSecret			= crs.GetValue("doc_secret_level")
'			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("doc_reg_person")
'			sDocRegDate			= crs.GetValue("doc_reg_date")
			
			sAttachSubject			=	crs.GetValue("attach_subject")
			sAttachSize			=	crs.GetValue("attach_size")

			rs.movenext
		wend
		crs.Close()
		''get sNameText end