File Manager

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

%>

<%
dim id_typeattach
'id_typeattach=request.form("id_typeattach")

' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
  Dim uploadsDirVar
 
' uploadsDirVar= "C:\db61" 
  uploadsDirVar = Server.MapPath("upload\") 
  Response.write uploadsdirvar
' ****************************************************

' Note: this file uploadTester.asp is just an example to demonstrate
' the capabilities of the freeASPUpload.asp class. There are no plans
' to add any new features to uploadTester.asp itself. Feel free to add
' your own code. If you are building a content management system, you
' may also want to consider this script: http://www.webfilebrowser.com/

'function TestEnvironment()
' Dim fso, fileName, testFile, streamTest
' TestEnvironment = ""
' Set fso = Server.CreateObject("Scripting.FileSystemObject")
' if not fso.FolderExists(uploadsDirVar) then
' TestEnvironment = "Folder " & uploadsDirVar & " does not exist. The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and 'change the value of uploadsDirVar to the pathname of a directory with write permissions."
' exit function
' end if
' fileName = uploadsDirVar & "\test.txt"
' on error resume next
' Set testFile = fso.CreateTextFile(fileName, true)
' If Err.Number<>0 then
' TestEnvironment = "Folder " & uploadsDirVar & " does not have write permissions. The value of your uploadsDirVar is incorrect. Open uploadTester.asp in an editor and change the value of uploadsDirVar to the pathname of a directory with write permissions."
' exit function
' end if
' Err.Clear
' testFile.Close
' fso.DeleteFile(fileName)
' If Err.Number<>0 then
' TestEnvironment = "Folder " & uploadsDirVar & " does not have delete permissions, although it does have write permissions. Change the permissions for IUSR_computername on this folder."
' exit function
' end if
' Err.Clear
' Set streamTest = Server.CreateObject("ADODB.Stream")
' If Err.Number<>0 then
' TestEnvironment = "The ADODB object Stream is not available in your server. Check the Requirements page for information about upgrading your 'ADODB libraries."
' exit function
' end if
' Set streamTest = Nothing
'end function

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 savefile1
	savefile1=SaveFiles()
	response.write savefile1
	session("savefile1")=savefile1

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

<body>

</body>
</html>

File Manager

Editing: uploadTester.asp.bak