|
|
|
|
 |
|
스컬리 / 2001-01-15 / 오후 6:19:04 / 211.48.160.193
조회수 : 138
|
| [질문] 민망한 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
|
|
|
|