|
|
|
|
 |
|
채영이 / 2001-12-13 / 오후 4:47:25 / 203.255.3.190
조회수 : 123
|
| [질문] 질문... -_-;;
|
> <%@ 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>
>
>
>
> 어디서 틀렸는지 모르겠어요... ㅜ_ㅜ
>
> 돠주세용~
-----------------------------------------------------------
뭘 도와달라는건가요? 리더님? 0.0;;
|
|
|
|