12 replies to this topic

[_zEek_]

E ae galera. hospedo meu site no locaweb, e gostaria de fazer um sistema de upload por uma página! tentei akguns scripts prontos.. + naum consegui resultado! algém pode me ajudar?

Ps. Ja fiz uma pesquisa aki tabem.. e num achei nada q pudesse me ajudar.

[Generation]

Opa Blz?

Qual componente vai usar, qdo souber faça a busca pelo nome que vai retornar alguns topicos resolvidos.. blz?, Veja isso tambem que vai lhe ajudar, a locaweb ja disponibiliza a sintaxe dos componentes que ela dispões aos usuarios...


http://site.locaweb....omponentes_asp/


T+

[_zEek_]

Valew era isso msm..

[_zEek_]

e agora cmo faço para renomear o arquivo? ou memso por um final diferente
estou usando o seguinte código!

<%
Response.Buffer = true
on error resume next

'declara as variáveis
dim objUpload
dim strMessage

'cria instância do objeto
set objUpload = server.CreateObject("Dundas.Upload.2")

'verifica um possível erro
if err.number <> 0 then
Response.Redirect "Dundas.asp?Message=" & err.description
end if

'estipula o tamanho máximo do arquivo
objUpload.MaxFileSize = 1048576 

'formatando o nome do arquivo
objUpload.UseUniqueNames = false

'informa o path onde os arquivos serão salvos
'obs: o diretório deve ter permissão de escrita
objUpload.Save "endereço"

dim temp

'verifica erro
if IsEmpty(objUpload.Form("txtName")) = false then temp = " "
if err.number <> 0 then
strMessage = objUpload.Form("txtName") & temp & "Falha, ocorreu o erro: " & err.description

'mensagem de sucesso
else
Response.Redirect "enviado.asp"
end if 


'destroi o objeto
set objUpload = nothing
%>

[Luis Otávio]

assim é mais facil:

<%
Response.Buffer = true
on error resume next

'declara as variáveis
dim objUpload
dim strMessage

'cria instância do objeto
set objUpload = server.CreateObject("Dundas.Upload.2")

'verifica um possível erro
if err.number <> 0 then
Response.Redirect "Dundas.asp?Message=" & err.description
end if

'estipula o tamanho máximo do arquivo
objUpload.MaxFileSize = 1048576

'formatando o nome do arquivo
objUpload.UseUniqueNames = True

'informa o path onde os arquivos serão salvos
'obs: o diretório deve ter permissão de escrita
objUpload.Save "endereço"

dim temp

'verifica erro
if IsEmpty(objUpload.Form("txtName")) = false then temp = " "
if err.number <> 0 then
strMessage = objUpload.Form("txtName") & temp & "Falha, ocorreu o erro: " & err.description

'mensagem de sucesso
else
Response.Redirect "enviado.asp"
end if


'destroi o objeto
set objUpload = nothing
%>

testa que vc vai ver q cada arquivo vai ter um nome, para não ter problema de upa um arquivo com mesmo nome...

[_zEek_]

valew.. to cheio de dúvidas..

+ 1 coisa é a última (eu acho)

num ta querendo cadastrar os dois valores

pagina de cadsatro

<Table cellpading=0 cellspacing=0>
<tr>
<form method="POST" action="cod_insere_videos.asp">
<td>
Nome</td>
<td>
<input name="nome" type="text" id="nome" size="20">
</p>
</td>
</tr>
<tr>
<td>
URL</td>
<td>
<input name="url" type="text" id="url" size="20">
</p>
</td>
<tr>
<td>
<input type="submit" value="Cadastrar" name="cadastro"></p>
</td>
</tr>
</form>
</table>

codigo de cadastro

<%
set DB = createobject("adodb.connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\html\dados\video.mdb;"
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
nome = Request.Form("nome")
url = Request.Form("url")
%>
<%
If (nome = "") then
Response.write("Você deve digitar um nome para cadastrar")
Else
set rs = DB.execute("INSERT INTO videos (titulo,url) Values('"& nome &"','"& url &"')")
End if

%>

[Luis Otávio]

que mensagem aparece?

[_zEek_]

naum aparece mensagem + só cadastra no camo titulo o otro campo naum cadastra

[Luis Otávio]

<%
set DB = createobject("adodb.connection")
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\html\dados\video.mdb;"
DB.open constr
Set objRS = Server.CreateObject("ADODB.Recordset")
%>
<%
nome = Request.Form("nome")
url = Request.Form("url")
Response.write "Nome: "&nome
Response.write "URL: "&url
Response.end
%>
<%
If (nome = "") then
Response.write("Você deve digitar um nome para cadastrar")
Else
set rs = DB.execute("INSERT INTO videos (titulo,url) Values('"& nome &"','"& url &"')")
End if

%>

veja se ta passando mesmo os valores...

[_zEek_]

ixi agora funfo + nem mexi no código axo q era meu IIS VAlew Pela ajuda!!! Por hj é só!

[Luis Otávio]

se funfou ta bom.. hehe

[Osnel]

Aproveitando o embalo... olha só. to precisando enviar uns arquivos via FTP tb... com e salvar o nome dele no meu banco de dados, como eu faço pra pegar só o nome do arquivo enviado, para q eu possa grava-lo em minha base de dados ?


Valew

[Agente Linhares]

aqui tem um ex.
http://site.locaweb..../CompDundas.asp

a propriedade nome do dundas é:

FileName