File Manager

<%@ Language=VBScript %>
<% 
option explicit 
Response.Expires = -1
Server.ScriptTimeout = 600
%>

<%

Dim uploadsDirVar
  uploadsDirVar = Server.MapPath("image/member/")

%>
<%

function SaveFiles()
    Dim Upload, fileName, fileSize, ks, i, fileKey

Set Upload = New FreeASPUpload
    Upload.Save(uploadsDirVar)

If Err.Number<>0 then Exit function

SaveFiles = ""
    ks = Upload.UploadedFiles.keys
    if (UBound(ks) <> -1) then
        for each fileKey in Upload.UploadedFiles.keys
			SaveFiles = Upload.UploadedFiles(fileKey).FileName
        next
    else
        SaveFiles = "The file name specified in the upload form does not correspond to a valid file in the system."
    end if
end function
%>

<%
dim savefile
	savefile=SaveFiles()
	response.write savefile
	session("savefile")=savefile

'========================================����ش��� Upload=================================
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
</head>

File Manager

Editing: research/uploadTester.asp.bak