📄 view_flow_create_03.asp
字号:
<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/GetTrueNames.asp" -->
<%
Dim ObjDB,ObjRS,StrSQL
Dim StrAllNames
Set ObjDB = Server.CreateObject("Adodb.Connection")
OpenDB ObjDB
StrSQL = "Select * From t_OA_SYS_Account_Character"
Set ObjRS = ObjDB.Execute(StrSQL)
While Not ObjRS.Eof
StrAllNames = StrAllNames & "<option value=" & ObjRS("AccountID") & ">" & ObjRS("TrueName") & "</option>"
ObjRS.MoveNext
Wend
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
body { border: 1 solid #dedfde ;font-size:12px;background-color: #dedfde}
td { font-size:12px }
input { font-size:12px }
</style>
<script language=javascript src="../../../Include/JsFlow.asp"></script>
<script language=javascript>
function AddNode(){
var theForm = document.forms[0]
var NameIDs = new Array()
var StrNames = ""
var StrIDs = ""
for(var i=0;i<theForm.Names.length;i++){
if(theForm.Names[i].selected){
NameIDs[NameIDs.length] = theForm.Names[i].value
StrNames += theForm.Names[i].text + "<br>"
}
}
for(var i=0;i<NameIDs.length;i++){
StrIDs += NameIDs[i]
if(i!=NameIDs.length-1)StrIDs += ","
}
if(theForm.Title.value==""){
top.doAlert(1,"节点名称不能为空")
theForm.Title.focus()
return
}
if(StrNames==""){
top.doAlert(1,"您还没有指定处理人")
theForm.Names.focus()
return
}
FlowData[FlowData.length] = theForm.Title.value
FlowData[FlowData.length] = StrNames
if(theForm.C3.checked)
FlowData[FlowData.length] = 1
else
FlowData[FlowData.length] = 0
FlowData[FlowData.length] = theForm.C1.checked
FlowData[FlowData.length] = theForm.C2.checked
FlowData2[FlowData2.length] = theForm.Title.value
FlowData2[FlowData2.length] = StrIDs
if(theForm.C3.checked)
FlowData2[FlowData2.length] = 1
else
FlowData2[FlowData2.length] = 0
if(theForm.C1.checked)
FlowData2[FlowData2.length] = 1
else
FlowData2[FlowData2.length] = 0
if(theForm.C2.checked)
FlowData2[FlowData2.length] = 1
else
FlowData2[FlowData2.length] = 0
ReDrawPic()
initForm()
}
function initForm(){
theForm = document.forms[0]
theForm.Title.value = ""
theForm.Body.value = ""
theForm.C1.checked = false
theForm.C2.checked = true
theForm.C3.checked = true
for(var i=0;i<theForm.Names.length;i++)
theForm.Names[i].selected=false
}
var FlowData = new Array()
var FlowData2 = new Array()
function ReDrawPic(){
parent.frmPIC.spPIC.innerHTML = drawFlow(FlowData)
PutFlow()
}
function CheckMe(){
if(!LeftOK){
if(FlowData.length>1){
if(top.doAlert(2,"是否保存现有的工作流")){
SaveFlow()
}
}
}
}
var LeftOK = false
function PutFlow(){
var StrK=""
for(var i=0;i<FlowData2.length;i++){
StrK += FlowData2[i]
if(i!=FlowData2.length-1)StrK += "$$"
}
parent.DefineString = StrK
}
function SaveFlow(){
LeftOK = true
var StrK=""
if(FlowData2.length==0){
top.doAlert(1,"您还没有创建任何节点")
return
}
for(var i=0;i<FlowData2.length;i++){
StrK += FlowData2[i]
if(i!=FlowData2.length-1)StrK += "$$"
}
parent.location = "View_Flow_Create_05.asp?IDs=" + StrK
}
</script>
</head>
<body leftmargin="5" topmargin="0">
<table border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table border="0" cellspacing="0">
<form>
<tr>
<td>节点名称:</td>
<td><input type="text" name="Title" size="20" style="width=120"></td>
</tr>
<tr>
<td>处理人:</td>
<td><select multiple size="7" name="Names" style="width=120">
<%=StrAllNames%>
</select><input type="hidden" name="Body" size="20" style="border-style: groove; border-width: 1"></td>
</tr>
<tr>
<td></td>
<td><input type="checkbox" name="C1" value="ON">需要所有人处理<br>
<input type="checkbox" name="C2" checked value="ON">需要等待<br>
<input type="checkbox" name="C3" checked value="ON">需要审批</td>
</tr>
<tr>
<td></td>
<td><input type="button" value="提交新节点" name="B1" onclick="AddNode()" style="border-style: ridge; border-width: 1"></td>
</tr>
<tr>
<td height=2 ></td>
<td></td>
</tr>
</form>
</table>
</td>
<td>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -