꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 > > > > > ----------------------------------------------------------- > > 제가 해 보닌까 잘 되는데요? > > 임명님이 버턴 이름이나 폼 이름 또는 변수명에 오타가 있으신거 아닌가요? > > 아니면 받는쪽에서 변수명이 틀렸거나요... > > value 안 붙여도 잘 되더군요... > > 그리고 이건 뭐가 안 된다는건가요? > > 질문을 정확히 해 주셔야 제가 답을 해 드릴 수가 있죠.. > > 같이 프로그래밍 한것도 아닌데... 그냥 소스 던져 놓고 봐 달라고 하면... > > 제가 어떻게 답을 해 드리나요.... > > 날 더운데... 수고하세요.... > > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *