Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <%
- Set fs = Server.CreateObject("Scripting.FileSystemObject")
- Set tfolder = fs.GetSpecialFolder(2)
- tname = fs.GetTempName
- 'Declare variables
- Dim fileSize
- Dim filename
- Dim file
- Dim fileType
- Dim p
- Dim newPath
- 'Assign variables
- fileSize = Request.TotalBytes
- fileName = Request.form("filename")
- file = request.form("file")
- fileType = fs.GetExtensionName(file)
- fileOldPath = tfolder
- newPath = Server.MapPath("/uploads/")
- fs.MoveFile fileOrigPath, newPath
- set fs = nothing
- %>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement