|
|
|
|
 |
|
Leader / 2001-12-13 / 오후 4:43:39 / 211.189.136.10
조회수 : 124
|
| [질문] 질문... -_-;;
|
<%@ Language=VBScript %>
<%'로긴 팅기는 거 달기%>
<%
user_id = 2000066
'user_id = session("edmsID")
approvePath = Request.Form("approvePath")
SendApprover = Request.Form("SendApprover")
' 넘어온 결재자중에서 사원번호만 추출하여 루프를 돌린다.
tempApprover = split(SendApprover,",")
%>
<!--#include file="../include/ConnectString.asp"-->
<!--#include file="../include/ConnectData.asp"-->
<%
for i=0 to UBound(tempApprover)
temp = split(tempApprover(i),"-")
ApproverID = ApproverID & temp(1) &","
next
ApproverID = left(ApproverID,len(ApproverID)-1) ' 마지막 끝의 ","를 없앤다.
ApproverID = user_id&","& ApproverID&"," '기안자를 추가한다. 뒤에 『 , 』 는 사람수에 맞도록 붙여준 것이다.
'현재 나오는 값 → 2000066,2000001,2000066,2000002,2000003,2000004
strSQL="SELECT APP_NAME FROM APPROVAL_TABLE WHERE APP_NAME = '"& SendApprover &"'"
set rs=conn.execute(strSQL)
if rs.eof then
'결재경로 테이블에 저장
Set rsfi = Server.CreateObject("ADODB.RecordSet")
'저장하는 거 달기( 인서트문)
ApproverID = split(ApproverID,",")
for i=0 to UBound(ApproverID)
ApproverID = ApproverID(i)
AppID1 = Mid(ApproverID,1,4)
AppID2 = Mid(ApproverID,5,3)
AppID = AppID1&"-"&AppID2
strSQLFind="insert into groupadmin.APPROVAL_TABLE VALUES(DEPTNO, APP_NAME, SEQNO, EMPNO)"
strSQLFind=strSQLFind & " "
strSQLFind=strSQLFind & " select 부서CODE,"&SendApprover&","&i&","&ApproverID&" from openquery(stc,'select 부서CODE,사번 from 인사_최근발령 Where 사직일자 Is Null and 사번=''"&AppID&"''')"
set rsFi=conn.execute(strSQLFind)
set rsFi=nothing
next
else
%>
<script language=javascript>
alert("이미존재하는 결재 경로명입니다.\n다른 결재경로명을 적어주세요.");
history.back();
</script>
<%
end if
set rs=nothing
set conn=nothing
%>
<script language=javascript>
top.frames[0].location.href="../popupFiles/popupGetApproverTop.asp";
top.frames[1].location.href="../popupFiles/popupGetApproverLeft.asp";
location.href="../popupFiles/popupGetApproverRight.asp";
</script>
어디서 틀렸는지 모르겠어요... ㅜ_ㅜ
돠주세용~ |
|
|
|