FreeASPUpload modificar nomes
pessoal estou com um pequeno problema, utilizo de um upload sem componentes chamado FreeASPUpload.
o problema e o seguinte, preciso renomear as fotos antes de fazer o upload pois caso alguem adicione fotos diferentes com o mesmo nome não aconteça de substituir a foto antiga.
outra coisa que precisava saber é como restringir o envio a apenas arquivos de imagem tipo jpg, gif, png e também como restringir o tamanho dos arquivos exemplo 1MB?
vou postar o codigo que eu uso e se alguem puder me ajudar eu agradeço.
<!-- #include file="freeaspupload.asp" -->
<!-- #include file = "seg_con_banco.asp" -->
<%
Dim uploadsDirVar
uploadsDirVar = "caminho das fotos"
%>
<%
npid = request.QueryString("npid")
function SaveFiles
Dim Upload, fileName, fileSize, ks, i, fileKey
Set Upload = New FreeASPUpload
Upload.Save(uploadsDirVar)
' If something fails inside the script, but the exception is handled
If Err.Number<>0 then Exit function
SaveFiles = ""
ks = Upload.UploadedFiles.keys
if (UBound(ks) <> -1) then
imagem = "ImagensPerfil/" & Upload.UploadedFiles("procurar").FileName
End If
SQLup = "UPDATE tab_usuario_cadastro SET foto_perfil = '" & imagem & "' WHERE id_usuario ="& npid &""
'response.Write SQLup
conn.Execute(SQLup)
'SQL="UPDATE tab_usuario_cadastro SET foto_perfil='"& imagem &"' id_usuario ="& request.QueryString("npid") &""
'conexao.Execute(SQL)
'conn.Execute(SQL)
end function
response.write SaveFiles()
Response.Write("<meta http-equiv='refresh' content='0;URL=updatefoto.asp' />")
%>
Discussão (18)
Carregando comentários...