doc_e.inc

来自「物业管理和办公自动化系统」· INC 代码 · 共 27 行

<%
Sub UpdateDocInfor()
	dim sSQL
	dim iDocTypeId			: iDocTypeId = GetParam("doc_type_id")
	dim iDocUrgentLevel	: iDocUrgentLevel = GetParam("doc_urgent_level")
	dim iDocSecretLevel	: iDocSecretLevel = GetParam("doc_secret_level")
	dim sDocKeyword		: sDocKeyword = GetParam("doc_keyword")
	dim sDocNumber		: sDocNumber = GetParam("doc_number")
	dim sDocReportPerson: sDocReportPerson = GetParam("doc_report_person")
	dim sDocSendPerson	: sDocSendPerson = GetParam("doc_send_person")
	dim sDocSender			: sDocSender = GetParam("doc_sender")

	sSQL = "update t_document" & _
			" set doc_type_id = " & ToSQL(iDocTypeId, "Number") & _
			", doc_urge_level = " & ToSQL(iDocUrgentLevel, "Number") & _
			", doc_secret_level = " & ToSQL(iDocSecretLevel, "Number") & _
			", doc_keyword = " & ToSQL(sDocKeyword, "Text") & _
			", doc_number = " & ToSQL(sDocNumber, "Text") & _
			", doc_report_person = " & ToSQL(sDocReportPerson, "Text") & _
			", doc_send_person = " & ToSQL(sDocSendPerson, "Text") & _
			", doc_sender = " & ToSQL(sDocSender, "Text") & _
			" where doc_id = " & ToSQL(pDocId, "Number")
	call ExecuteSQL(dbLocal, sSQL)
	
	response.redirect "doc_p.asp?doc_id=" & pDocId & "&"
End Sub
%>