WebDesignSlave
Bass
What is the physical path to use ASPUplaod and drive settings for WIN10 and WIN11. We are having trouble getting it to work.
ASPUpload Physical Path
- Thread starter WebDesignSlave
- Start date
WebDesignSlave
Bass
ANyone know this anwer so i can finish this project???
Penhall
Perch
Shouldn't it just be d:\hshome\username\domain.ext\directory ???
Don't have any accounts on those servers so can't verify.
As for getting ASPUpload to work on JodoHost servers - I have a script working without problems but don't use the physical path but relative paths - the script takes the upload, renames, resizes and adds text if requested. (in this case the directory is one level above where the ASPUpload script resides)
eg
<%
Set Upload = Server.CreateObject("Persits.Upload")
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 1000000, True
' Save to memory. Path parameter is omitted
Upload.Save
' Access subdirectory specified by user
Name = Upload.Form("Name")
AddText= upload.form("addtext")
Set File = Upload.Files("FILE1")
if name="" then name=file.filename
' Build path string
Path = "\DIRECTORY"
' Save files to it. Our form has only one file item
' but this code is generic.
For Each File in Upload.Files
File.Saveasvirtual Path & "\" & Name
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
TempFilePath="../DIRECTORY/" & Name
NewImagePath=Server.MapPath(TempFilePath)
Jpeg.Open NewImagePath
' New width
L = 400
' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
if addtext<>"" then
Jpeg.Canvas.Font.Color = &HFFFF00 ' Red
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Bold = true
Jpeg.Canvas.Font.Quality = 3 ' Antialiased
Jpeg.Canvas.Font.size = 18
Jpeg.Canvas.Font.ShadowColor = &h000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.Shadowyoffset = 1
' Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
Jpeg.Canvas.Print 10, Jpeg.Height-18, addtext
end if
Jpeg.Save NewImagePath
Response.Write "<br><font face='Arial' size='4'><b>Success!</b></font><br><br><font face='Arial'>File saved as " & name & "</font><BR><br><img border'0' src='../DIRECTORY/"&Name&"'"
Next
%>
Don't have any accounts on those servers so can't verify.
As for getting ASPUpload to work on JodoHost servers - I have a script working without problems but don't use the physical path but relative paths - the script takes the upload, renames, resizes and adds text if requested. (in this case the directory is one level above where the ASPUpload script resides)
eg
<%
Set Upload = Server.CreateObject("Persits.Upload")
' we use memory uploads, so we must limit file size
Upload.SetMaxSize 1000000, True
' Save to memory. Path parameter is omitted
Upload.Save
' Access subdirectory specified by user
Name = Upload.Form("Name")
AddText= upload.form("addtext")
Set File = Upload.Files("FILE1")
if name="" then name=file.filename
' Build path string
Path = "\DIRECTORY"
' Save files to it. Our form has only one file item
' but this code is generic.
For Each File in Upload.Files
File.Saveasvirtual Path & "\" & Name
Set Jpeg = Server.CreateObject("Persits.Jpeg")
' Open source image
TempFilePath="../DIRECTORY/" & Name
NewImagePath=Server.MapPath(TempFilePath)
Jpeg.Open NewImagePath
' New width
L = 400
' Resize, preserve aspect ratio
Jpeg.Width = L
Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
if addtext<>"" then
Jpeg.Canvas.Font.Color = &HFFFF00 ' Red
Jpeg.Canvas.Font.Family = "Arial"
Jpeg.Canvas.Font.Bold = true
Jpeg.Canvas.Font.Quality = 3 ' Antialiased
Jpeg.Canvas.Font.size = 18
Jpeg.Canvas.Font.ShadowColor = &h000000
Jpeg.Canvas.Font.ShadowXoffset = 1
Jpeg.Canvas.Font.Shadowyoffset = 1
' Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
Jpeg.Canvas.Print 10, Jpeg.Height-18, addtext
end if
Jpeg.Save NewImagePath
Response.Write "<br><font face='Arial' size='4'><b>Success!</b></font><br><br><font face='Arial'>File saved as " & name & "</font><BR><br><img border'0' src='../DIRECTORY/"&Name&"'"
Next
%>
WebDesignSlave
Bass
OK thanks, will try that.