action.asp

档案管理系统

<!--#include file="docdb.inc"-->
<%

	dim sOp
	dim url
	on error resume next
	sOp=request("op")
	if sOp="deldept" then
		removeDept "" & Trim(request.QueryString("deptname"))
		url = "deptmng.asp"
	elseif sOp = "setDeptDesc" then
		setDeptDesc "" & Trim(request.QueryString("deptname")),"" & Trim(request.QueryString("deptdesc"))
		url = "deptmng.asp"
	elseif sOp = "addDept" then
		addDept "" & Trim(request.QueryString("deptname"))
		url = "deptmng.asp"
	elseif sOp="adddocclass" then

		addDocClass "" & Trim(request.QueryString("name"))
		url="docclasslist.asp"
	elseif sOp="deldocclass" then
		removeDocClass "" & Trim(request.QueryString("name"))
		url="docclasslist.asp"
	elseif sOp="setdocclassnote" then
		setClassNote "" & Trim(request.QueryString("name")),"" & Trim(request.QueryString("note"))
		url="docclasslist.asp"
	elseif sOp="setdocclassadmin" then	
		setClassAdmin "" & Trim(request.QueryString("name")),"" & Trim(request.QueryString("admin"))
		url="docclasslist.asp"
	elseif sOp="adddoc" then
		addDoc "" & Trim(request.Form("name")),"" & Trim(request.Form("dept")),"" & Trim(request.Form("docyear")),"" & Trim(request.Form("timelimit")),"" & Trim(request.Form("docclass")),"" & Trim(request.Form("note"))
		url="doclist.asp?docclass=" & Trim(request.Form("docclass"))
	elseif sOp="deldoc" then
		url="doclist.asp?docclass=" & getDocClsById(Trim(request.QueryString("id")))
		removeDoc Trim(request.QueryString("id"))
	elseif sOp="changedocclass" then
		url="doclist.asp?docclass=" & getDocClsById(Trim(request.QueryString("docid")))
		setDocClass Trim(request.QueryString("docid")),"" & Trim(request.QueryString("todocclass"))
	elseif sOp="updateDoc"	then
		if request.Form("submit") = "更新信息" then
			updateDoc Trim(request.Form("id")),"" & Trim(request.Form("dept")),"" & Trim(request.Form("docyear")),Trim(request.Form("timelimit")),"" & Trim(Request.Form("note"))
			url = "docinfo.asp?id=" & Trim(request.Form("id"))
		elseif request.Form("submit") = "归档" then
			setDocAttr Trim(request.Form("id")),1
			url = "docinfo.asp?id=" & Trim(request.Form("id"))
		end if
	elseif sOp="setAttrOut" then
		setDocAttr Trim(request.Form("id")),0
		url = "docinfo.asp?id=" & Trim(request.Form("id"))
	elseif sOp="libinfo" then
		intId = CInt(Trim(request.QueryString("libid")))
		url = "liblist.asp?docclass=" & getDocClsById(getLibDocById(intId))
		if request.QueryString("submit") = "批准" then
			response.Write("hi")
			response.Write "" & intId
			setLibState intId
		elseif request.QueryString("submit") = "不批准" then
			removeLibInfo intId,"您所申请借阅的" & getDocNameById(getLibDocById(intId)) & "已拒绝"
		elseif request.QueryString("submit") = "提醒归还" then
			addmsg "" & getLibBorrowerById(intId),"您借阅的" & getDocNameById(getLibDocById(intId)) & "该归还了"
		elseif request.QueryString("submit") = "归还" then
			retLib intId
		end if
	elseif sOp="addlibinfo" then
		strBeginTime = request.Form("by") & "-" & request.Form("bm") & "-" & request.Form("bd")
		strEndTime = request.Form("ey") & "-" & request.Form("em") & "-" & request.Form("ed")
		addLibInfo request.Form("doc"),strBeginTime,strEndTime,request.Form("reason")
		url = "docsearch.asp"
	elseif sOp="setmsg" then
		setMsgOver Trim(request.QueryString("id"))
		url = "mylib.asp"
	end if
	closeConnection
	checkerror
	response.Redirect url


%>