꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	\\\저도 그렇게 해봤는데 아무것도 값이 없던데.. 흑흑흑.. 또봐주세요., Private Sub yworkview_UserEvent(ByVal EventName As String) '등록권자든 조회권자든 작업내용을 눌렀을 때 조회된 ytitleview의 관리번호와 'work_m의 관리번호가 같은 모든 자료를 display 'market_m의 관리번호와 work_m의 관리번호가 같은 것은 일단 모두 display하기 Dim workado As New ADODB.Recordset Dim workname As New ADODB.Recordset Dim WKIND As String Dim windex As String Dim ycode As String 'Dim yshotlen As Integer 'Dim ytotallen As Integer 'Dim yshotn As String 'Dim searchc As String 'eventname=약칭명, 관리번호 'searchc = "," ' 'yshotlen = InStr(1, EventName, searchc, 0) '약칭명길이 'yshotn = Trim(Mid(EventName, 1, yshotlen - 1)) '약칭명 ' 'ytotallen = Len(EventName) ' 'ycode = Mid(EventName, yshotlen + 1, (ytotallen - Len(yshotlen) - 1)) '관리번호 With workado .ActiveConnection = DataEnv.adocon .Source = "select * from work_m where w_code='" & Session("ycode") & "' order by w_index" .open End With With Response workado.CacheSize = 20 '레코드를 20개씩 캐시에 저장 workado.PageSize = 10 '한번에 10개씩 보여주기 If workado.RecordCount > 0 Then If CInt(EventName) = 0 Then workado.AbsolutePage = 1 '현재 레코드가 들어갈 페이지 Else If CInt(EventName) > workado.PageCount Then workado.AbsolutePage = 1 Else workado.AbsolutePage = CInt(EventName) End If End If End If '============================== .write "<br>" If workado.RecordCount > 0 Then .write "<html>" .write "<head>" .write "<title>" .write "</title>" .write "<script language='javascript'>" .write "function yworksave() {" .write " var checkvalue;" .write " for(var a=1;a<document.yproject.y_radio.length;a++){" .write " if(document.yproject.y_radio[a].checked==true) {" .write " checkvalue=document.yproject.y_radio[a].value;" .write " }" .write "}" .write " document.yproject.action='" & URLFor(yworkinsert, Session("ycode") & "," & checkvalue) & "';" .write " document.yproject.submit();" .write "}" .write "function yworkdelete() {" .write " var checkvalue;" .write " for(var a=1;a<document.yproject.y_radio.length;a++){" .write " if(document.yproject.y_radio[a].checked==true) {" .write " checkvalue=document.yproject.y_radio[a].value;" .write " }" .write "}" .write " document.yproject.action='" & URLFor(yworkdelete, Session("ycode") & "," & checkvalue) & "';" .write " document.yproject.submit();" .write "}" .write "</script>" .write "</head>" .write "<body bgcolor=white text=black link=blue vlink=purple alink=red>" .write "<p> </p>" .write "<form method=post name=yproject>" .write "<center>" .write "<p align=center><font size=4 color='#6161A6'><b>작업내용 조회</b></font></p>" .write "<br>" .write "<table border=1 width=643 height=10 cellspacing=0 bordercolordark=white bordercolorlight=black>" .write "<TABLE border=0 cellPadding=1 cellSpacing=1 width=95%>" .write "<tr><td></td><td align=right>" If workado.AbsolutePage = 1 Then .write "◀ \|" Else .write "<a href=" & URLFor(yworkwiew, CStr(workado.AbsolutePage - 1)) & ">◀</a> \|" End If If workado.AbsolutePage < workado.PageCount Then .write "<a href=" & URLFor(yworkview, CStr(workado.AbsolutePage + 1)) & "> ▶</a>" Else .write " ▶" End If .write "<td align=right width=80><font size=2> " & CStr(workado.AbsolutePage) & "/" & CStr(workado.PageCount) & "</font></td>" .write "</tr></table>" '화면 ==================================== .write "<br>" .write "<table border=1 width=95% cellspacing=0 bordercolordark=white bordercolorlight=black>" .write "<tr>" .write "<td align=center bgcolor=skyblue width=52><b>선택</b></td>" ' .write "<td align=center bgcolor=skyblue width=40><b>NUM</b></td>" .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>관리번호</b></font></td>" .write "<td align=center bgcolor=skyblue width=67><font size=2 color = black><b>작업일</b></font></td>" .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>작업종류</b></font></td>" .write "<td align=center bgcolor=skyblue width=67><font size=2 color=black><b>담당자</b></font></td>" .write "<td align=center bgcolor=skyblue width=323><font size=2 color=black><b>작업내용</b></font></td>" '========================================= 'db에서 자료 가지고 와서 DISPLAY Do While Not workado.EOF ' ytrans_msname = yuser.Fields("m_shot_name") '약칭명 Select Case workado.Fields("w_kind") Case "U": WKIND = "수정" Case "D": WKIND = "해지" Case "O": WKIND = "OPEN" End Select workname.ActiveConnection = DataEnv.adocon workname.Source = "select u_name from user_m where u_code='" & workado.Fields("w_man") & "'" workname.open ' .write "<tr>" .write "<td align=center bgcolor=white><input type=radio name=y_radio value=" & workado.Fields("w_index") & " ></td>" ' .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_index") & " </font> </td>" .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_code") & "</font> </td>" .write "<td align=center bgcolor=white><font size=2 color=black>" & WKIND & "</font> </td>" .write "<td align=center bgcolor=white><font size=2 color=black>" & workado.Fields("w_kind") & "</font> </td>" .write "<td align=center bgcolor=white><font size=2 color=black>" & workname.Fields("u_name") & "</font> </td>" .write "<td align=right bgcolor=white><font size=2 color=black>" & workado.Fields("w_note") & "</font> </td>" workname.Close Set workname = Nothing ycode = workado.Fields("w_code") windex = workado.Fields("w_index") workado.MoveNext Loop .write "</tr>" .write "</table>" .write "<br>" .write "<table border=0 width=600 cellspacing=0 backcolor=whiteblue bordercolordark=white bordercolorlight=black>" .write "<tr>" .write "<td width=786>" .write "<p align=center><br> " .write "<a href='javascript:yworksave()'><img src='img/등록.gif' border=0></a> " ' .write "<a href=" & URLFor(yworkinsert, ycode & "," & windex) & "><img src='img/등록.gif' border=0></a> " '.write "<a href=" & URLFor(yworkdelete, ycode & "," & windex) & "><img src='img/삭제.gif' border=0></a>" .write "<a href='javascript:yworkdelete()'><img src='img/삭제.gif' border=0></a>" .write "</td>" .write "</tr> " .write "</table>" Else '자료가 없다면 .write "<br>" .write "<br>" .write "<p align=center><font size=3 color=blue><b> 검색할 자료가 없습니다.</b></font>" .write "<br>" .write "<h3><p align=center><font color=""red"">등록 확인</font></h3>" .write "<br><br>" .write "<p align=center> 등록하시겠습니까? <br>" ' .write "[<a href=" & Chr(34) & URLFor(ydeletesave, EventName) & Chr(34) & ">예</a>] [<a href=" & Chr(34) & URLFor(ysearch, "0") & Chr(34) & ">아니오</a>]<br>" .write "<p align=center>[<a href=" & URLFor(yworkinsert, EventName) & ">예</a>] [<a href=" & URLFor(ytitleview, EventName) & ">아니오 </a>]<br>" End If .write "</table>" .write "</form>" .write "</body>" .write "</html>" '==================================================================== End With End Sub

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *