Upload em ASP o.O

[Guybrush 0]

Sisteminha de upload de uma imagem em asp, com tamanho e dimensões limitadas, sem usar componentes, bem básico, de preferencia que use JavaScript, caso seja em vb tudo bem, mas se tiver em js é melhorX)Procurei ae bastante mas não achei nada que eu entendesse!

[meirelles 0]

ve aqui, baixa o componente ASP upload

[Guybrush 0]

ve aqui, baixa o componente ASP upload

<{POST_SNAPBACK}>

Não posso acessar o servidor da empresa pra instalar

ehehhe

pelo menos nao neste momento

mas enfim, to usando aqui

 

Free Asp Upload só que é em vb, meu formulário é em Js+ASP

vai ser f*** mudar todo código

mas acho que eh a unica saida

[Salgado 4]

Não precisa alterar o Formulário para isso. É só definir o Action para a página do Upload e adaptar algumas coisas ao que precisa.

[kauebranco 0]

Upload sem componente

[Guybrush 0]

Upload sem componente

<{POST_SNAPBACK}>

de certa maneira fazer uma página separada pro upload poderia ser uma boa idéia, mas o cara nao aprovou =|

 

tenho que reformular o codigo inteiro mesmo

[Guybrush 0]

ASP

[*]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

 

[*]<!-- #include file = "funcao_upload.asp" -->

 

[*]

 

[*]<%

 

[*] Dim db, rs, ok, sql

 

[*] Dim user, senha, resenha, email, cidade, foto, assinatura

 

[*] Set db = Server.CreateObject("ADODB.Connection")

 

[*] Set rs = Server.CreateObject("ADODB.RecordSet")

 

[*] db.Open "DNS","sa","sql"

 

[*]

 

[*] function db_err()

 

[*] db.RollbackTrans

 

[*] db.Close()

 

[*] Response.Write("<br><br><b><h5>Os Dados Não puderam ser Cadastrados.</h5></b>")

 

[*] ok=false

 

[*] end function

 

[*]

 

[*] function vazio(val,campo)

 

[*] ok=true

 

[*] if val=null OR val="" OR val="undefined" THEN

 

[*] ok=false

 

[*] Response.Write("O campo <b>"+campo+"</b> Não foi Preenchido.<BR>")

 

[*] end if

 

[*] end function

 

[*]

 

[*] if Request.Form("Submit") = "Enviar" Then

 

[*] db.BeginTrans

 

[*] user = Request.Form("usuario")&""

 

[*] senha = Request.Form("senha") &""

 

[*] resenha = Request.Form("resenha") &""

 

[*] email = Request.Form("email")

 

[*] cidade = Request.Form("cidade")

 

[*] foto = Request.Form("foto")

 

[*] assinatura = Request.Form("assinatura")

 

[*] vazio user,"Usuário"

 

[*] vazio senha,"Senha"

 

[*] vazio email,"E-Mail"

 

[*] vazio cidade,"Cidade"

 

[*]

 

[*] if InStr(usuario,"'") <> 0 Then user = "Inválido" End if

 

[*] if Instr(senha,"'") <> 0 Then senha = "Inválido" End if

 

[*] if InStr(usuario,"*") <> 0 Then user = "Inválido" End if

 

[*] if Instr(senha,"*") <> 0 Then senha = "Inválido" End if

 

[*] if InStr(usuario,"%") <> 0 Then user = "Inválido" End if

 

[*] if Instr(senha,"%") <> 0 Then senha = "Inválido" End if

 

[*] if InStr(usuario,"=") <> 0 Then user = "Inválido" End if

 

[*] if Instr(senha,"=") <> 0 Then senha = "Inválido" End if

 

[*]

 

[*] if user="Invalido" OR senha="Invalido" Then

 

[*] ok=false

 

[*] Response.Write("O Usuário ou Senha Contém um Caracater Inválido: <B>(' * % $ ! ^ ~ ; . , + =)</B><br>")

 

[*] End If

 

[*]

 

[*] if senha<>resenha Then 

 

[*] Response.Write("As Senhas Não Coincidem!<BR>")

 

[*] ok=false 

 

[*] End If

 

[*]

 

[*] ' *****UPLOAD DA FOTO****** '

 

[*] byteCount = Request.TotalBytes

 

[*] RequestBin = Request.BinaryRead(byteCount)

 

[*] Set UploadRequest = CreateObject("Scripting.Dictionary")

 

[*] BuildUploadRequest RequestBin

 

[*] tipo_foto = UploadRequest.Item("foto").Item("ContentType")

 

[*] caminho_foto = UploadRequest.Item("foto").Item("FileName")

 

[*] nome_foto = Right(caminho_foto,Len(caminho_foto)-InstrRev(caminho_foto,"\"))

 

[*] foto = UploadRequest.Item("foto").Item("Value")

 

[*] pasta = Server.MapPath("img/")

 

[*] nome_foto = "/"&nome_foto

 

[*] cfoto = "img" + nome_foto

 

[*] if foto <> "" then

 

[*] Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")

 

[*] Set MyFile = ScriptObject.CreateTextFile(pasta & nome_foto)

 

[*] For i = 1 to LenB(foto)

 

[*] MyFile.Write chr(AscB(MidB(foto,i,1)))

 

[*] Next

 

[*] MyFile.Close

 

[*] end if

 

[*] ' *****FIM DO UPLOAD DA FOTO****** '

 

[*]

 

[*] sql = "insert into forum_usuario VALUES('"&user&"','"&senha&"','"&email&"','"&cidade

 

[*] sql = sql + "','"&cfoto&"','"&assinatura&"',0)"

 

[*]

 

[*] On Error Resume Next

 

[*] db.Execute(sql)

 

[*] if err Then

 

[*] Response.Write("<center><b><h3>Ocorreu um Erro</h3><br>Erro Número: </b>"&err.Number)

 

[*] Response.Write("<br><b>Descrição:</b> "&err.Description&"</center>")

 

[*] db_err()

 

[*] End If

 

[*]

 

[*] if ok=true Then

 

[*] db.CommitTrans()

 

[*] Response.Write("<div align='center'>")

 

[*] Response.Write("<br><br><b><h3>Os Dados Foram Adicionados Com Sucesso.</h3></b>")

 

[*] Response.Write("<a href='login.asp'><font color='#000000' size='2' face='Verdana'><b>Logar-Se</b></font></a></div>")

 

[*] db.Close()

 

[*] End if

 

[*] End if

 

[*]

 

[*] If ok=false Then

 

[*]%>

 

[*]

 

[*]<html>

 

[*]<head>

 

[*]<title>Cadastro</title>

 

[*]<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

 

[*]</head>

 

[*]

 

[*]<body bgcolor="#003366" text="#FFFFFF">

 

[*]<div align="center"><img src="img/logo.gif"> </div>

 

[*]<form action="cadastro2.asp" method="post" enctype="multipart/form-data" name="form1">

 

[*] <table width="450" border="0" align="center" cellpadding="0" cellspacing="1">

 

[*] <tr> 

 

[*] <td width="175"><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>*Usuário:</strong></font></div></td>

 

[*] <td width="272"><input name="usuario" type="text" id="usuario" maxlength="30" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>*Senha:</strong></font></div></td>

 

[*] <td><input name="senha" type="password" id="senha" size="12" maxlength="10" style="border:00000;">

 

[*] <font size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong>(*10 Caracteres)</strong></font></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>*Confirmação:</strong></font></div></td>

 

[*] <td><input name="resenha" type="password" id="resenha" size="12" maxlength="10" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>*E-mail:</strong></font></div></td>

 

[*] <td><input name="email" type="text" id="email" maxlength="50" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>*Cidade:</strong></font></div></td>

 

[*] <td><input name="cidade" type="text" id="cidade" maxlength="70" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Foto:</strong></font></div></td>

 

[*] <td><input name="foto" type="file" id="foto" size"100" style="border:00000;"></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td><div align="right"><font size="2" face="Verdana, Arial, Helvetica, sans-serif"><strong>Assinatura:</strong></font></div></td>

 

[*] <td><textarea name="assinatura" cols="25" rows="2" id="assinatura" style="border:00000;"></textarea></td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td> </td>

 

[*] <td> </td>

 

[*] </tr>

 

[*] <tr> 

 

[*] <td colspan="2"><div align="center">

 

[*] <input name="Submit" type="submit" id="Submit" value="Enviar" style="border:00000;">

 

[*] </div></td>

 

[*] </tr>

 

[*] </table>

 

[*]</form>

 

[*]</body>

 

[*]</html>

 

[*]<% 

 

[*] End If

 

[*]%>

 

[*]<body bgcolor="#003366" text="#FFFFFF">

 

[*]

 

Este código ae não está enviando a foto, mas não retorna também erro

o.O