upload.asp

来自「使用ASP元件（請自行下載、安裝或登錄） AspUpload+AspJpeg+」· ASP 代码 · 共 11 行

<%
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) 
%>