abcUpload ......다 좋은데... filename,size를 못 읽습니다.

[karl]

도와주세여 ...ㅡ_ㅡ;

아래와 같은 코드를 작성했는데....다 좋습니다.
어째서 filename하고 size를 못읽는지 이유를 모르겠습다......도아 주세여....

#####################################################################
<%@ Language=VBScript %>
<!-- #Include File = "../Common/connection.inc" -->
<%
Set Upload = Server.CreateObject("ABCUpload4.XForm")

Upload.AbsolutePath = True
Upload.Overwrite = true

dirPath = Server.MapPath("FILE")

name = Upload.Item("name")
title = Upload.Item("title")
email = Upload.Item("email")
password = Upload.Item("password")
content = Upload.Item("content")

set Upload = Upload("UploadFile")(1)

function getUnique(byRef filename,dirpath)

name = mid(filename,1,instrRev(filename,".") - 1)
extention = mid(filename,instrRev(filename,".") + 1)

set objFile = server.CreateObject("Scripting.FileSystemObject")

Exist = true
wholepath = dirpath & "\" & name & "." & extention
Count = 0

do while Exist

if (objFile.FileExists(wholepath)) then

Count = Count + 1
filename = name & "(" & Count & ")." & extention
wholepath = dirpath & "\" & filename

else

Exist = false

end if

loop

getUnique = Wholepath

end function

if Upload.FileExists then

filesize = Upload.length

filename = Upload.safeFileName
WholePath = getUnique(filename,dirPath)
Upload.Save WholePath

end if

sql = "Insert into FileBBS_tb ("
sql = sql & "name,"
sql = sql & "title,"
sql = sql & "date,"
sql = sql & "email,"
sql = sql & "password,"
sql = sql & "content,"
sql = sql & "filename,"
sql = sql & "filesize) "

sql = sql & "values("

sql = sql & "'"& name &"',"
sql = sql & "'"& title &"',"
sql = sql & "getDate(),"
sql = sql & "'"& email &"',"
sql = sql & "'"& password &"',"
sql = sql & "'"& content &"',"
sql = sql & "'"& filename &"',"
sql = sql & "'"& filesize &"')"

con.Execute sql,,adExecuteNoRecords

con.Close
set con = nothing

Response.Redirect ("list.asp")
%>

[Microsoft Developer Support]

안녕 하십니까?
마이크로 소프트 기술 지원부 입니다.

다음과 같은 형태로 파일명을 가져 올수 있다고 알고 있습니다.

Set oUploadForm = Server.CreateObject("ABCUpload4.XForm")
Set oUploadField = oUploadForm("UpLoadFile")(1)

'//파일명, 확장자 추출
VC_FILE_NAME = oUploadField.SafeFileName
VC_FILEEXT = oUploadField.FileType

다음 사이트에서 많은 자료를 구하실수 있을 것입니다.
http://www.websupergoo.com/helpupload/frames.htm

감사 합니다.

"karl" <masterr...@hotmail.com> wrote in message
news:O1yc4KWMCHA.2524@tkmsftngp10...