 |
<%=title%>: <%=message%> |
| an error occured | ||
|
||
| <%If popup Then%> Close <%Else%> Back <%End If%> |
| upload - <%=FSO.GetBaseName(targetPath)%> |
|
<%
Server.ScriptTimeout = 5500
Response.Buffer = true
on error resume next
%>
<%
'Exibe o formul嫫io se action for diferente de upload
response.write folder
If Trim(Request.QueryString("action")) <> "upload" Then
%>
<%
End If
'Se ocorrer, exibe mensagem de erro gerada no upload
If Trim(Request.QueryString("Message")) <> "" Then %>
Erro: <% Response.Write Trim(Request.QueryString("Message")) End If 'Faz o upload se action for igual a upload If Trim(Request.QueryString("action")) = "upload" Then 'declara as vari嫛eis dim objUpload 'cria inst滱cia do objeto set objUpload = server.CreateObject("Dundas.Upload.2") 'verifica um poss癉el erro if err.number <> 0 then Response.Redirect "?Message=" & err.description end if 'estipula o tamanho m嫞imo do arquivo objUpload.MaxFileSize = 1073741824 'formatando o nome do arquivo objUpload.UseUniqueNames = false 'informa o path onde os arquivos ser緌 salvos 'obs: o diret鏎io deve ter permiss緌 de escrita objupload.save "s:\home\estacaodesigngrafico\web\webftp\"&folder if err.number <> 0 then Response.Redirect "?Message=" & err.description end if 'destroi o objeto set objUpload = nothing %> Upload realizado com sucesso. <% End If %> |
| close |