|
|
|
|
 |
|
처나무적 / 2002-08-09 / 오후 5:23:12 / 61.83.218.232
조회수 : 180
|
| [질문] 소스점 봐주세요..... ㅜ,ㅜ |
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
|
|
|
|