|
|
|
|
 |
|
채영이 / 2001-09-26 / 오전 10:14:49 / 203.255.3.190
조회수 : 135
|
| [질문] 질문입니다...오류
|
> Microsoft VBScript 런타임 오류 (0x800A000D)
> 형식이 일치하지 않습니다
> /mdmusic/update_ok.asp, line 44
> -------------------------------------------
> file = UploadForm("music")
>
> attach_file = file.FilePath
> filename = Mid(attach_file, InstrRev(attach_file, "\") + 1) ' 파일명을 얻는다.
> filetype = right(FileName,4)
> save_music = music_folder & "\" & filename ' 저장할 파일의 경로 설정
> db_music = filename '디비에 저장되는 이름
> If (FSO.FileExists(save_music)) Then ' 같은 이름의 파일이 있을 때 삭제
> count = 0
> do while FSO.FileExists(save_music)
> count = count + 1
> save_music = music_folder & "\" & CStr(count) & filename
> db_music = CStr(count) & filename '디비에 저장되는 바뀌는 이름
> Loop
> End If
> File.SaveAs save_music ' 파일을 업로드
>
> Set FSO = Nothing
> %>
> <-----여기가 라인 44임돠ㅡㅡ;
> <%
> title = UploadForm("title")
> title = replace(title,"'","''")
> music_time = UploadForm("minute")*60 + UploadForm("second")
> category = UploadForm("category")
> category = replace(category,"'","''")
> new_category = UploadForm("new_category")
> new_category = replace(new_category,"'","''")
> page = UploadForm("page")
> music_name = replace(db_music,"'","''")
>
> if category = "" then
> category = new_category
> end if
>
> db.Open DSNName
>
> Sql = "insert into music (title,music,music_time,category,date) values ("
>
> Sql = Sql & "'" & title & "',"
> Sql = Sql & "'" & music_name & "',"
> Sql = Sql & music_time & ","
> Sql = Sql & "'" & category & "', GetDate())"
-----------------------------------------------------------
시애틀님이시죠? 이름 좀 바꾸지 마세요.... ^^
사용하시는게 사이트갤럭시라고 생각 되는데...
File.SaveAs save_music
이게 맞나요?
UploadForm("music").SaveAs save_music
이렇게 해야 되지 않나요?
|
|
|
|