upload.asp

使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl

<%
Set FS = CreateObject("Scripting.FileSystemObject")
Set Upload = Server.CreateObject("Persits.Upload")
strFolder="../"&session("areana")&"/"&session("description")
strTestFolder=Server.Mappath(strFolder)
If Not FS.FolderExists(strTestFolder) Then
   FS.CreateFolder(strTestFolder)
End If
Upload.OverwriteFiles = False
Count = Upload.Save (strTestFolder) 
%>