꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	채영님..소스 구조가 어케 되냐면요 먼저 체크박스를 통해서 값을 받아 드립니다. 그런다음에 루프를 돌면서 row값들을 뽑아 낸 다음에 해당 row에 image1 image2값에 업로드된 이미지들을 삭제 시킬려구 하거든요.. 그런데..잘 안됩니다. 하나씩 지울때는 잘 되는데 두개 이상 지울려고한까.. 에러가.. 레코드가 처음과 끝이라..어쩌구...저쩌구....이런 메세지 있잖아용^^; 어디서 잘못..된걸까요? ------------------------------------------------ goods_id = Request("goods_id") if goods_id = "" then else goods_id_arr = Split(goods_id, ",") arr_cnt = UBound(goods_id_arr) dim del_image(1) Set Fso = Server.CreateObject("Scripting.FileSystemObject") For i = 0 to arr_cnt sql2 = "select goods_id, image1 as image0, image2 as image1 from goods_tb where goods_id = '"& goods_id_arr(i) &"'" response.write sql2 set rs = db.execute(sql2) For j = 0 to 1 del_image(j) = rs("image"&j) delfile=Server.MapPath("images")&"\"&del_image(j) response.write delfile if (Fso.FileExists(delfile)) Then Fso.DeleteFile(delfile) end if Next sql = "Delete From goods_tb Where goods_id = '"& goods_id_arr(i) &"'" db.execute(sql) Next Set Fso = nothing rs.close db.close set rs = nothing set db = nothing 'response.redirect "goods_list.asp" end if

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *