꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	HTML 사용
제목 *
내용 *	> > 챙선배... > > 궁금한게 있어서요... > > > > > > Private Sub schupdate_UserEvent(ByVal EventName As String) > > '데이타 수정처리 > > > > Dim update1, update2, update3 As String > > Dim update4, update5, update6 As String > > Dim update7, update8, update9, meventname As String > > Dim schupdate As New ADODB.Recordset > > > > update1 = Left(Request.Form("sa_code"), 5) > > update2 = Request.Form("work_code") > > update3 = Request.Form("start_date") > > update4 = Request.Form("end_date") > > update5 = Request.Form("plan_date") > > update6 = Request.Form("status") > > update7 = Request.Form("work_contents") > > update8 = Request.Form("docno") > > update9 = Request.Form("note") > > > > With Response > > .write "<html>" > > .write "<head>" > > .write "<title> </title>" > > .write "<script language='javascript'>" > > .write "function check() {" > > .write "alert('수정하나');" > > .write "var ans;" > > .write "if(confirm('수정하시겠습니까?')) {" > > .write "} else {" > > .write "ans='javascript:history.go(-1)';" > > .write "location.href=ans;" > > > > .write " }" > > .write "}" > > .write "</script>" > > .write "</head>" > > .write "<body onload='check()'>" > > .write "</body>" > > .write "</html>" > > End With > > End Sub > > > > 위에서 confirm 값이 true가 넘어오면 아래에 있는 update문을 실행해야 하거든요...script문 내에서 sql을 사용할 수 있다면 좋을텐데...그렇지 않으면 아예 다른 sub함수를 호출하는 방법은 없을까요? > > > > With schupdate > > .ActiveConnection = DataEnv.ADOCON > > .Source = "update schedule_m set " & _ > > "s_code='" & update1 & "'," & _ > > "s_work_num='" & update2 & "'," & _ > > "s_start_day ='" & update3 & "'," & _ > > "s_end_day='" & update4 & "'," & _ > > "s_plan_day='" & update5 & "'," & _ > > "s_status='" & update6 & "'," & _ > > "s_work='" & update7 & "'," & _ > > "s_doc_no='" & update8 & "', " & _ > > "s_note='" & update9 & "' " & _ > > "where s_work_num='" & EventName & "'" > > .open > > MsgBox "수정 되었습니다." > > End With > > > > meventname = update2 + "," + update1 + "," + Trim(Mid(Request.Form("sa_code"), 7, 15)) > > > > > > schtitleview_UserEvent (meventname) > > > > > > End Sub > ----------------------------------------------------------- > > 업데이트 문이 들어 있는 페이지에서 javascript를 쓰지 않고, 그 전에 있는 페이지에서 javscsript를 써서 confirm여부를 확인 하면 되지 않을까요.. > > > > if(confirm('수정하시겠습니까?')){ > 업데이트할 페이지로 이동 > } > > [확인]을 누르면 페이지 이동을 하면서 업데이트를 시키고, [취소]를 누르면 아무런 작동이 없구.. > > > 날이 덥네요... > -----------------------------------------------------------

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *