ReNan_BM

Cara é exatamente esta minha necessidade... você pode me dizer se vai ser muito complicado alterar o fonte disso?

Olá amigos do forum do script brasil, estou criando um sisteminha e preciso fazer o upload de imagem, mais também preciso que o usuario recorte a imagem, ou seja... ele faz o upload, aparece a imagem ai ele recorta a cara, para fica 3 x 4... mais não tenho ideia onde buscar, se em ajax, em flash ou qualquer outra, o sistema é em php. alguém pode me recomendar algo? desde já obrigado.

Boa tarde pessoal, volto para mais uma dúvida... não consigo montar a estrutura sql para dar um insert no banco atraves de 2 arrays... assim... fiz um formulario dinamico que me retorna arrays, um para os nomes da tabela, coloque no "name" no input, e outro no valor... ou seja... ele me retorna o sequinte campoX => valorX campoY => valorY e assim por diante... não tenho ideia como montar a estrutura do insert tipo... tentei uma coisa assim mais não deu certo $sql = "insert into tabela($chave) values($valor)"; desde já obrigado

como resolver?

Olá pessoal, não tenho habilidade em asp, mas gostaria de fazer em sisteminha de upload no site da empresa onde trabalho, mas o servidor so suporta asp... Baixei aqui mesmo do script brasil um fonte Na hora de executar da este erro Microsoft VBScript runtime error '800a0046' Permission denied /de/upload/upload.inc, line 228 alguém pode me ajudar... vejam os códigos upload.inc <script RUNAT=SERVER LANGUAGE=VBSCRIPT> Const IncludeType = 2 Dim UploadSizeLimit Function GetUpload() Dim Result Set Result = Nothing If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'la méthode REQUEST doit être POST Dim CT, PosB, Boundary, Length, PosE CT = Request.ServerVariables("HTTP_Content_Type") ' lit le header If LCase(Left(CT, 19)) = "multipart/form-data" Then 'qui doit être de type "multipart/form-data" PosB = InStr(LCase(CT), "boundary=") 'Finds boundary If PosB > 0 Then Boundary = Mid(CT, PosB + 9) 'Separetes boundary PosB = InStr(LCase(CT), "boundary=") If PosB > 0 then 'Patch pour l'erreur IE PosB = InStr(Boundary, ",") If PosB > 0 Then Boundary = Left(Boundary, PosB - 1) end if Length = CLng(Request.ServerVariables("HTTP_Content_Length")) If "" & UploadSizeLimit <> "" Then UploadSizeLimit = CLng(UploadSizeLimit) If Length > UploadSizeLimit Then Request.BinaryRead (Length) Err.Raise 2, "GetUpload", "Upload size " & FormatNumber(Length, 0) & "B exceeds limit of " & FormatNumber(UploadSizeLimit, 0) & "B" Exit Function End If End If If Length > 0 And Boundary <> "" Then Boundary = "--" & Boundary Dim Head, Binary Binary = Request.BinaryRead(Length) 'lit les données à partir du poste client Set Result = SeparateFields(Binary, Boundary) Binary = Empty 'Mise à jour des variables Else Err.Raise 10, "GetUpload", "ERR 10" End If Else Err.Raise 11, "GetUpload", "ERR 11" End If Else Err.Raise 1, "GetUpload", "ERR 10" End If Set GetUpload = Result End Function Function SeparateFields(Binary, Boundary) Dim PosOpenBoundary, PosCloseBoundary, PosEndOfHeader, isLastBoundary Dim Fields Boundary = StringToBinary(Boundary) PosOpenBoundary = InStrB(Binary, Boundary) PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary, 0) Set Fields = CreateObject("Scripting.Dictionary") Do While (PosOpenBoundary > 0 And PosCloseBoundary > 0 And Not isLastBoundary) Dim HeaderContent, FieldContent, bFieldContent Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type Dim Field, TwoCharsAfterEndBoundary PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf)) HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2) bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2) GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type Set Field = CreateUploadField()'See the JS function bellow Set FieldContent = CreateBinaryData(bFieldContent,LenB(bFieldContent)) Field.Name = FormFieldName Field.ContentDisposition = Content_Disposition Field.FilePath = SourceFileName Field.FileName = GetFileName(SourceFileName) Field.ContentType = Content_Type Field.Length = FieldContent.Length Set Field.Value = FieldContent Fields.Add FormFieldName, Field TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2)) isLastBoundary = TwoCharsAfterEndBoundary = "--" If Not isLastBoundary Then PosOpenBoundary = PosCloseBoundary PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary) End If Loop Set SeparateFields = Fields End Function Function GetHeadFields(ByVal Head, Content_Disposition, Name, FileName, Content_Type) Content_Disposition = LTrim(SeparateField(Head, "content-disposition:", ";")) Name = (SeparateField(Head, "name=", ";")) 'ltrim If Left(Name, 1) = """" Then Name = Mid(Name, 2, Len(Name) - 2) FileName = (SeparateField(Head, "filename=", ";")) 'ltrim If Left(FileName, 1) = """" Then FileName = Mid(FileName, 2, Len(FileName) - 2) Content_Type = LTrim(SeparateField(Head, "content-type:", ";")) End Function Function SeparateField(From, ByVal sStart, ByVal sEnd) Dim PosB, PosE, sFrom sFrom = LCase(From) PosB = InStr(sFrom, sStart) If PosB > 0 Then PosB = PosB + Len(sStart) PosE = InStr(PosB, sFrom, sEnd) If PosE = 0 Then PosE = InStr(PosB, sFrom, vbCrLf) If PosE = 0 Then PosE = Len(sFrom) + 1 SeparateField = Mid(From, PosB, PosE - PosB) Else SeparateField = Empty End If End Function Function GetFileName(FullPath) Dim Pos, PosF PosF = 0 For Pos = Len(FullPath) To 1 Step -1 Select Case Mid(FullPath, Pos, 1) Case "/", "\": PosF = Pos + 1: Pos = 0 End Select Next If PosF = 0 Then PosF = 1 GetFileName = Mid(FullPath, PosF) End Function Function BinaryToStringSimple(Binary) Dim I, S For I = 1 To LenB(Binary) S = S & Chr(AscB(MidB(Binary, I, 1))) Next BinaryToStringSimple = S End Function Function BinaryToString(Binary) dim cl1, cl2, cl3, pl1, pl2, pl3 Dim L', nullchar cl1 = 1 cl2 = 1 cl3 = 1 L = LenB(Binary) Do While cl1<=L pl3 = pl3 & Chr(AscB(MidB(Binary,cl1,1))) cl1 = cl1 + 1 cl3 = cl3 + 1 if cl3>300 then pl2 = pl2 & pl3 pl3 = "" cl3 = 1 cl2 = cl2 + 1 if cl2>200 then pl1 = pl1 & pl2 pl2 = "" cl2 = 1 End If End If Loop BinaryToString = pl1 & pl2 & pl3 End Function Function RSBinaryToString(xBinary) Dim Binary if vartype(xBinary)=8 then Binary = MultiByteToBinary(xBinary) else Binary = xBinary Dim RS, LBinary Const adLongVarChar = 201 Set RS = CreateObject("ADODB.Recordset") LBinary = LenB(Binary) if LBinary>0 then RS.Fields.Append "mBinary", adLongVarChar, LBinary RS.Open RS.AddNew RS("mBinary").AppendChunk Binary RS.Update RSBinaryToString = RS("mBinary") Else RSBinaryToString = "" End If End Function Function MultiByteToBinary(MultiByte) Dim RS, LMultiByte, Binary Const adLongVarBinary = 205 Set RS = CreateObject("ADODB.Recordset") LMultiByte = LenB(MultiByte) if LMultiByte>0 then RS.Fields.Append "mBinary", adLongVarBinary, LMultiByte RS.Open RS.AddNew RS("mBinary").AppendChunk MultiByte & ChrB(0) RS.Update Binary = RS("mBinary").GetChunk(LMultiByte) End If MultiByteToBinary = Binary End Function Function StringToBinary(String) Dim I, B For I=1 to len(String) B = B & ChrB(Asc(Mid(String,I,1))) Next StringToBinary = B End Function Function vbsSaveAs(FileName, ByteArray) Dim FS, TextStream Set FS = CreateObject("Scripting.FileSystemObject") Set TextStream = FS.CreateTextFile(FileName) TextStream.Write BinaryToString(ByteArray) ' BinaryToString is in upload.inc. TextStream.Close End Function </SCRIPT> <script RUNAT=SERVER LANGUAGE=JSCRIPT> function CreateUploadField(){ return new uf_Init() } function uf_Init(){ this.Name = null this.ContentDisposition = null this.FileName = null this.FilePath = null this.ContentType = null this.Value = null this.Length = null } function CreateBinaryData(Binary, mLength){ return new bin_Init(Binary, mLength) } function bin_Init(Binary, mLength){ this.ByteArray = Binary this.Length = mLength this.String = BinaryToString(Binary) this.SaveAs = jsSaveAs } //function jsBinaryToString(){ // return BinaryToString(this.ByteArray) //}; function jsSaveAs(FileName){ return vbsSaveAs(FileName, this.ByteArray) } //Simulate ByteArray class by JS/VBS - end </SCRIPT> ] Upload.asp <html> <head> <title>SISTEMA DE UPLOAD DE QUALQUER ARQUIVO</title> </head> <body> <form method=post ENCTYPE="multipart/form-data"> Arquivo : <input type="file" name="File1"><br> <input type="submit" Name="Action" value="Upload do Arquivo"> </form> </body></HTML> <!---#INCLUDE FILE="upload.inc" ---> <% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() FilePath = Server.MapPath("downloads") & "\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath End If %> valwe galera..

Cara, muito obrigado... você salvou a minha vida.. vlw mesmo Abrçs..

Perfeito... funcionou perfeito... A unica coisa que eu qria agora é no assunto antos do assunto que ele digitou tenha "Contato pelo site: ", mais não consigo colocar e depois do envio encaminhar para outra página, ou melhor ainda seria uma mensagem, mensagem enviada com sucesso!

em branco... :( não entendo o asp

Pessoal é o seguinte! Tenho um formulario simples e gostaria de envia-lo por email, sou programador em PHP mais onde o site futuramente se hospeda-rá vai sem em ASP, gostaria de deixar pronto o mecanismo de envio, mas não tenho os dados do servidor, é possivel? alguém pode me ajudar? O formulário é este: <form id="form1" name="form1" method="post" action="envia.asp" onsubmit="return FrontPage_Form1_Validator(this)"> <table width="500" border="0" cellspacing="4" cellpadding="4"> <tr> <td width="120" align="right" valign="top">Nome:</td> <td width="380"><input name="nome" type="text" id="nome" size="50" /></td> </tr> <tr> <td align="right" valign="top">E-mail:</td> <td><input name="email" type="text" id="email" size="50" /></td> </tr> <tr> <td align="right" valign="top">Assunto:</td> <td><input name="assunto" type="text" id="assunto" size="50" /></td> </tr> <tr> <td align="right" valign="top">Mensagem:</td> <td><textarea name="nome2" cols="38" rows="6" id="nome2"></textarea></td> </tr> <tr> <td valign="top">&nbsp;</td> <td><input type="reset" value="Limpar Campos" /> <input type="submit" name="Enviar!" id="Enviar!" value="Enviar!" /></td> </tr> </table> </form> Ele envia para envia.asp os seguintes "valores" nome, email, assunto(assunto do email) e mensagem... Gostaria que chegasse assim Contato pelo site, assunto: "Assunto do Formulário" Nome...: "Nome que veio do formulário" E-mail..: "Email que veio do formulário" Mensagem: "Mensagem do formlário" Desde já muito obrigado!

você poderia se expressar melhor...

Isso é mais facil em ajax... Tem la no forum de uma pesquisada!

Tenho um formulario em forma de tabela, sendo que os dados chegão com os nomes correio_PAC1 correio_PAC2 correio_PAC3 correio_PAC4 correio_PAC... até o 30... queria fazer isso com while... mais tenho que ter variaveis com nomes diferentes para fazer meu update... alguém pode me ajudar... link do formularuuio http://www.editoraeme.com.br/adm2/TB_SEDEX.PHP Obrigado

Você pode ser mais claro, porque se for somente virar as páginas é mais facil fazer direto no Acrobat depois de exportar... Explique meplor para que possa ajudar!

não funciona... :'(

Fiz uma condição para uma seleção automática, mais no firefox ela não funciona como deveria... Ou seja, no firefox ele fica na mesma... alguém pode me dar uma lux? <script> <!--- function ConfirmaReembolso(Valor) { if (Valor == 'Sim') { form.FORMA[4].checked = true; form.FORMA[0].disabled = true; form.FORMA[1].disabled = true; form.FORMA[2].disabled = true; form.FORMA[3].disabled = true; form.FORMA[5].disabled = true; } else { form.FORMA[0].disabled = false; form.FORMA[1].disabled = false; form.FORMA[2].disabled = false; form.FORMA[3].disabled = false; form.FORMA[4].disabled = false; form.FORMA[5].disabled = false; form.FORMA[4].checked = false; } } ---> </script>

Amigo, ele so vai trazer certo, quando junto a alguma linguagem, ou atraves de um gerenciador de banco de dados como o SQL Manager Lite for MySQL Caso contrario, no prompt ele traz sem acento, pois isso é dos...

Amigo, ele so vai trazer certo, quando junto a alguma linguagem, ou atraves de um gerenciador de banco de dados como o SQL Manager Lite for MySQL Caso contrario, no prompt ele traz sem acento, pois isso é dos...

qual o proximo passo?

amigo, gostaria que me ajudaçe a resolver na forma que você ache melhor, por favor... o que disser eu faço... obrigado pela orientação

Galera que sempre me ajuda, tenho um duvida um pouco mais cruel desta vez... Como digo em todas as minhas duvidas não tenho muita abilidade em ASP, mas por favor me ajude... Tenho que dar manutenção nesta página http://www.editoraeme.com.br/cadastro_novo.asp o que acontece, tem alguns clientes engraçadinhos que colocam o estado como SP, mais na realidade são de outros estados, como DF, BH, MG diversos... Ai o que acontece... O pedido é feito mais o frete é cobrado por estado, ou seja a editora paga a diferença (que não é pouco). Qual a solução? a pessoa coloca o estado e na lista so as cidades daquele estado. (já tenho o banco de estados e cidades), mais não sei colocar o valor do banco nas listas e nem listar relacionado com aquele. Obrigado desde já... ReNan

Veja se da certo update nome_tabela set nome_campo=nome_campo +1;

em php, java, asp, pascal eu sei... é que se tratam de exercicios de sql... e tenho duvida nestes 3 selects...

você não entendeu... renan é so exemplo 1º select --> qro trazer os registros ao contrario... escrito de traz para frente 2º select --> buscar por campo com mais de 1 palavra, não as palavras em si... buscar por nome "renan lala" ou "abc dds" 3º select --> limitar caractares, quero que traga o resultado so das 4, ou 3 letras iniciais...

Amigo, preciso de ajuda... tem que realizar os seguintes selects mais não sei como 1º preciso fazer uma busca em um campo qualquer e trazer o resultado ao contrario EX: se esta RENAN o select tem que trazer NANER 2º buscar por nome composto EX RENAN MIGUEL (2 palavras) 3º e um select que limite o numero de caracteres... EX no banco esta RENAN quero que traga 2 caracteres RE ou 3 REN ou 4 RENA Desde já obrigado!!!

não salvo, mais posso começar a salvar em bd ... sim em pasta separada...