꿈속나라

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

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

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

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	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

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

이미지 1
이미지설명 1

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

자료 1
자료설명 1

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

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

Password *