|
|
|
|
 |
|
浩然之氣 / 2002-08-09 / 오후 5:51:52 / 203.255.3.190
조회수 : 153
|
| [질문] 소스점 봐주세요..... ㅜ,ㅜ |
> ABC업로드 컴포넌트를 사용하거든여.....
> 근데....머가 잘못됬는지 몰겠어여.....
> 한번 봐주세요.....^^;;
> DB접속부분은 뺐습니다.......
>
> Set theForm = Server.CreateObject("ABCUpload4.XForm")
> theForm.AbsolutePath = True
> theForm.Overwrite = True
>
> artist = theForm.item("artist") '가수
> album = theForm.item("album") '앨범명
> album_num = theForm.item("album_num") '앨범순서
> album_num2 = theForm.item("album_num2") '앨범분류번호
> shop_num = theForm.item("shop_num") '상품분류
> shop = theForm.item("shop") '주문번호
> world = theForm.item("world") '국내&국외 구분
> new1 = theForm.item("new") '최신앨범 등록
> find = theForm.item("find") '음악찾기 첫 자음
>
> response.write "가수이름은 : "&artist&" 입니다..<br><br><br>"
>
> Set theField = theForm.item("file1")(1)
> if world = "korea" then
> If theField.FileExists Then
> filename = theField.SafeFileName
> theField.Save "d:\images\album\ko_ccm\" & theField.safeFileName
> Response.Write "빠일이 업로드 되었습니다...."
>
> SQL = "insert into kccm_album(artist,album,album_num,album_num2,filename"
> SQL = SQL & ",shop_num,shop,world,new,find) values"
> SQL = SQL & "('"&artist&"'"
> SQL = SQL & ",'"&album&"'"
> SQL = SQL & ",'"&album_num&"'"
> SQL = SQL & ",'"&album_num2&"'"
> SQL = SQL & ",'"&filename&"'"
> SQL = SQL & ",'"&shop_num&"'"
> SQL = SQL & ",'"&shop&"'"
> SQL = SQL & ",'"&world&"'"
> SQL = SQL & ",'"&new&"'"
> SQL = SQL & ",'"&find&"')"
>
> db.Execute SQL
>
> Else
> Response.Write "빠일 업로드 실패입니다. 다시 해주쇼..."
> End If
> else
> If theField.FileExists Then
> filename = theField.SafeFileName
> theField.Save "d:\images\album\w_ccm\" & theField.safeFileName
> Response.Write "빠일이 업로드 되었습니다...."
>
> SQL = "insert into wccm_album(artist,album,album_num,album_num2,filename"
> SQL = SQL & ",shop_num,shop,world,new) values"
> SQL = SQL & "('"&artist&"'"
> SQL = SQL & ",'"&album&"'"
> SQL = SQL & ",'"&album_num&"'"
> SQL = SQL & ",'"&album_num2&"'"
> SQL = SQL & ",'"&filename&"'"
> SQL = SQL & ",'"&shop_num&"'"
> SQL = SQL & ",'"&shop&"'"
> SQL = SQL & ",'"&world&"'"
> SQL = SQL & ",'"&new&"')"
>
> db.Execute SQL
>
> Else
> Response.Write "빠일 업로드 실패입니다. 다시 해주쇼..."
> End If
> End if
>
-----------------------------------------------------------
보긴 봤는데요...
에러가 난다면 무슨 에러가 어디서 어떻게 나는지를 알려주셔야...
문제점을 찾지요...
어떤 에러가 왜 나는지 알려주세요....
|
|
|
|