job_show.asp

OFFICE办公自动化

<%
'功能：查看指定任务详细信息
'参数：	request("id")=int #任务ID;
'	request("reurl")=int #返回ＵＲＬ; request("page")=int #当前页码; request("selectdate")="date" #显示当日任务
%>

<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<%
'response.buffer=false

'------------------------------------------------设置参数
LoginID=trim(session("LoginID")) : if LoginID="" then LoginID=0 '当前用户ID
reurl=request("reurl") : if reurl="" then reurl="job_list_enact.asp" '返回ＵＲＬ
currentpage=request("page") : if currentpage="" then currentpage=1 '当前页码
selectdate=request("selectdate") '是否显示所有任务
pid=request("id") '任务ID
'------------------------------------------------
'------------------------------------------------增加进程
if request.form("edit_subed")="add" then 
'增加进程表单提交后
	table="tbioaJobRelative" '表名
	Body=Request.Form("Body")'内容
	
	'添加时使用的字段
	field1=array("UserID","JobID","Body")
	value1=array(LoginID,pid,Body)
	for i=0 to ubound(field1)
		value1(i)=replace(value1(i),"'","''")
	next
	sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
	oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------编辑进程
if request.form("edit_subed")="edit" then
'编辑进程表单提交后
	table="tbioaJobRelative" '表名
	rid=Request.Form("rid")'进程ID
	Body=Request.Form("Body")'内容
	
	'添加时使用的字段
	field1=array("Body")
	value1=array(Body)
	sql="UPDATE " & table & " SET "
	for i=0 to ubound(field1)
		sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'" 
		if i <> ubound(field1) then sql=sql & ","  else  sql=sql & " where id=" & rid 
	next
	oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------删除进程
if request.form("edit_subed")="dele" then 
'删除进程提交后
	rid=request.form("rid") '进程ID
	oConn.Execute "DELETE FROM tbioaJobRelative WHERE ID="&rid&" and UserID="&LoginID
end if
'------------------------------------------------
'------------------------------------------------编辑完成情况
if request.form("edit_subed")="finish" then 
'编辑完成情况表单提交后
	table="tbioaJob" '表名
	finish=Request.Form("finish")'完成情况
	
	'添加时使用的字段
	field1=array("Finish")
	value1=array(Finish)
	sql="UPDATE " & table & " SET "
	for i=0 to ubound(field1)
		sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'" 
		if i <> ubound(field1) then sql=sql & ","  else  sql=sql & " where id=" & pid 
	next
	oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------增加参与者
if request.form("edit_subed")="addassign" then 
'增加参与者表单提交后
	table="tbioaJobAssign" '表名
	userlist=Split(Request.Form("userlist"),",")'参与者列表
	
	for r=0 to ubound(userlist)
		set rs_assign=Server.CreateObject("ADODB.RecordSet")
		sql="select * from " & table & " where JobID="& pid &" and AssignUserID="&userlist(r)
		rs_assign.open sql,oConn,1,1
		if rs_assign.EOF then
			field1=array("JobID","UserID","AssignUserID")
			value1=array(pid,LoginID,trim(userlist(r)))
			sql = "INSERT INTO " & table & " (" & Join(field1, ",") & ") VALUES ('" & Join(value1, "','") & "')"
			oConn.Execute sql
		end if
		rs_assign.close
	next
end if
'------------------------------------------------
'------------------------------------------------删除参与者
if request.form("edit_subed")="deleassign" then 
'删除参与者提交后
	rid=request.form("rid") '进程ID
	oConn.Execute "DELETE FROM tbioaJobAssign WHERE ID="&rid
end if
'------------------------------------------------
'------------------------------------------------修改负责人
if request.form("edit_subed")="selectmanager" then 
'编辑负责人表单提交后
	table="tbioaJob" '表名
	manager=Request.Form("manager")'负责人
	
	'修改时使用的字段
	field1=array("ManagerID")
	value1=array(manager)
	sql="UPDATE " & table & " SET "
	for i=0 to ubound(field1)
		sql = sql & field1(i) & "='" & replace(value1(i),"'","''") & "'" 
		if i <> ubound(field1) then sql=sql & ","  else  sql=sql & " where id=" & pid 
	next
	oConn.Execute sql
end if
'------------------------------------------------
'------------------------------------------------取记录
'取要查看的任务记录 （返回rs对象）
'
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from vioaJob where ID="&pid
rs.open sql,oConn,1,1
'------------------------------------------------
'------------------------------------------------取进程
'取要查看的任务的进程 （返回rs_r对象）
'
set rs_r=Server.CreateObject("ADODB.RecordSet")
sql="SELECT tbioaJobRelative.*,tbioaUser.Name AS UserName FROM tbioaUser INNER JOIN tbioaJobRelative ON tbioaJobRelative.UserID = tbioaUser.ID where tbioaJobRelative.JobID="&pid&" order by tbioaJobRelative.ID desc"
rs_r.open sql,oConn,1,1
'------------------------------------------------
'------------------------------------------------取参与者
'取要查看的任务的参与者 （返回rs_a对象）
'
set rs_a=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from vioaJobAssign where JobID="&pid&" order by ID"
rs_a.open sql,oConn,1,1
'------------------------------------------------
'------------------------------------------------确定权限
'确定查看者权限 （返回变量UserMod）
'
dim UserMod
UserMod = 0 '参与者
if (cint(LoginID)=rs("ManagerID")) then UserMod = 1 '负责人
if (cint(LoginID)=rs("UserID")) then UserMod = 2 '制定者
'------------------------------------------------
%>


<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type=text/css>
<title>main</title>
<base target="FrmMain">
<script src="../js/front_chec.js"></script>
<script language="javascript">
<!--
function BodySize()
{
  eventfrm.Body.style.width=Math.max(document.body.clientWidth-240,0);
}
function ShowBody(rid)
{
  if (Relative.style.display=='none' || rid){
  	eventfrm.Body.value='';
	Relative.style.display='';
	if (rid){
		eventfrm.edit_subed.value="edit";
		eventfrm.rid.value=rid;
		eval('eventfrm.Body.value=Relative_'+rid+'.innerText');
		RelativeTitle.innerHTML='<table width="300"><tr><td><img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoSave(eventfrm)" onfocus="this.blur()">保 存</a></td><td><img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowBody()" onfocus="this.blur()">取 消</a></td><td>（编辑进程内容）　</td></tr></table>'
	}
	else{
		eventfrm.edit_subed.value="add";
		RelativeTitle.innerHTML='<table width="300"><tr><td><img border="0" src="../images/icon_save.gif" align="left"> <a href="javascript: GoSave(eventfrm)" onfocus="this.blur()">添 加</a></td><td><img border="0" src="../images/icon_close.gif" align="left"> <a href="#" onclick="return ShowBody()" onfocus="this.blur()">取 消</a></td><td>（请填写进程内容）</td></tr></table>'
	}
  }
  else{
	Relative.style.display='none';
	RelativeTitle.innerHTML='<img border="0" src="../images/icon_open.gif" align="left"> <a href="#bottom" onclick="ShowBody()" onfocus="this.blur()">填 写 进 程</a>'
	return false;
  }
}
function ShowEditFinish()
{
  if (EditFinish.style.display=='none'){
  	frmfinish.finish.value=<%=rs("finish")%>
	EditFinish.style.display='';
	ShowFinish.style.display='none';
  }
  else{
	EditFinish.style.display='none';
	ShowFinish.style.display='';
  }
  return false;
}
function GoSave(form)
{
  if (checnull(form.Body,"请填写进程内容！")) form.submit();
}
function GoDele(rid)
{
  if (confirm('确定要删除该条任务进程吗？\n该操作不可恢复！')){
  	eventfrm.edit_subed.value="dele";
  	eventfrm.rid.value=rid;
  	eventfrm.submit();
  }
}
function GoFinish(form)
{
  if (form.finish.value>=0 && form.finish.value<=100 && form.finish.value!="" && !/[.]/.test(form.finish.value)){
  	form.submit();
  }
  else{
	alert("完成情况必须填写0~100的整数"); 
	form.finish.value=<%=rs("finish")%>
	form.finish.focus();
  }
}
function assignadd(form)
{
	form.userlist.value = showModalDialog("job_selectuser.asp", "", "dialogWidth:22em; dialogHeight:14em; center: Yes; scroll:No; resizable: No; status: No; help: No;")
	if (form.userlist.value != ""){
		form.edit_subed.value="addassign"
		form.submit();
	}
}
function assigndele(form,rid)
{
  form.edit_subed.value="deleassign";
  form.rid.value=rid;
  form.submit();
}
function selectmanager(form)
{
	form.manager.value = showModalDialog("job_selectmanager.asp", "", "dialogWidth:14em; dialogHeight:8em; center: Yes; scroll:No; resizable: No; status: No; help: No;")
	if (form.manager.value != ""){
		form.edit_subed.value="selectmanager"
		form.submit();
	}
}
-->