<% Response.Cookies("genet_view") = "docked" %>
<%if request("action") = "" then%>
 |
File Upload
Want send me a file? Go ahead and upload it to my site.
<%if request("result") = "success" then response.write "Thanks
"%>
|
|
|
|
<%elseif request("action") = "fileuploadprocess" then
Set uploadObject = Server.CreateObject("softartisans.fileup")
if not uploadObject.IsEmpty then
'file = split(uploadObject.userFileName, "\")
'extension = right(file(Ubound(file)), 4)
'newfilename = file(ubound(file)) & "_" & replace(date(), "/", "_") & extension
newfilename = uploadObject.userFilename
end if
'save picture
uploadObject.saveas "d:\inetpub\wwwroot\kirsh\fileupload\" & newfilename
response.redirect "fileupload_upload.asp?result=success&lastFile=" & uploadObject.userFilename
end if%>
|
|
| |
| |
 |
| |
|
