|
|
|
|
 |
|
질문이요 / 2001-09-26 / 오전 3:23:05 / 211.110.89.62
조회수 : 146
|
| [질문] 질문입니다...오류
|
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())" |
|
|
|