<SCRIPT RUNAT=SERVER LANGUAGE=VBScript>
function show_secrecy(secrecy)
	dim strSecrecy
	select case secrecy
	case 0:
		strSecrecy="平件"
	case 1:
		strSecrecy="机密"
	case 2:
		strSecrecy="高度机密"
	end select
	show_secrecy=strSecrecy
end function

function show_priority(priority)
	dim strPriority
	select case priority
	case 0:
		strPriority="一般"
	case 1:
		strPriority="重要"
	case 2:
		strPriority="紧急"
	end select
	show_priority=strPriority
end function

function show_doc_type(doc_type)
	dim strDoc_type
	select case doc_type
	case 1:
		strDoc_type="收文登记"
	case 2:
		strDoc_type="发文拟稿"
	case 3:
		strDoc_type="会议申请"
	case 4:
		strDoc_type="用车申请"
	case 5:
		strDoc_type="请示"
	case 6:
		strDoc_type="报告"
	case 7:
		strDoc_type="请假条"
	case 8:
		strDoc_type="物品请领单"
	case 9:
		strDoc_type="通知"
	case 10:
		strDoc_type="工作总结"
	case 11:
		strDoc_type="简报"
	case 12:
		strDoc_type="申请"
	end select
	show_doc_type=strDoc_type
end function

function show_state(doc_state)
	dim strDoc_state
	select case trim(doc_state)
	case 0:
		strDoc_state="还没被审批"
	case 1:
		strDoc_state="已经存档"
	case 2:
		strDoc_state="在轮流传阅"
	case 3:
		strDoc_state="在同时传阅"
	case 4:
		strDoc_state="被退回"
	case 7:
		strDoc_state="领导签发完成"
	case 9:
		strDoc_state="审核通过"
	case 100:
		strDoc_state="草稿"
	end select
	show_state=strDoc_state
end function

function show_action(action)
	dim strAction
	select case action
	case 0:
		strAction="文件未处理"
	case 4:
		strAction="退稿"
	case 5:
		strAction="提交别的领导审核"
	case 6:
		strAction="文件被退回"
	case 7:
		strAction="文件处理完闭"
	end select
	show_action=strAction
end function
</SCRIPT>