|
|
|
|
 |
|
채영이 / 2001-01-15 / 오후 9:26:15 / 203.255.3.190
조회수 : 142
|
| [질문] 민망한 For Next..^^; |
> 채영님..소스 구조가 어케 되냐면요
> 먼저 체크박스를 통해서 값을 받아 드립니다.
> 그런다음에 루프를 돌면서
> 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
>
-----------------------------------------------------------
제 경험에 의하면 이건 루프상의 문제가 아닌것 같구요...
goods_id_arr = Split(goods_id, ",")
이렇게 하시 마시구요
goods_id_arr = Split(goods_id, ", ")
이렇게 해 보세요.....
왜냐면 체크박스로 값이 넘어올때...
1,2,3,4,... 이렇게 넘어오는것이 아니고
1, 2, 3, 4 이렇게 넘어오거던요.....
즉 ,말고 공백이 하는 더 필요하죠... 아니면 trim으로 공백을 없애 주시던가요....
그리고
if goods_id = "" then
else
goods_id_arr = Split(goods_id, ",")
~~~~~~~~~~~~~~~~~~
이것보다는
if not goods_id = "" then
goods_id_arr = Split(goods_id, ",")
~~~~~~~~~~~~~~~~~~
이렇게 하시는것이 if의 사용에 더 세련되어 보일것 같네요... ^^
눈 아직 다 안 녹았을텐데... 조심하세요~~
|
|
|
|