Ir para conteúdo
Fórum Script Brasil

marcus Gemeos

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    404

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que marcus Gemeos postou

  1. marcus Gemeos

    Envio De Mail

    uma questão respondeu marcus Gemeos em ASP

    Ola, Mas se for em comando ASP as vezes você não ver o código direto...que comando é esse? O que faz? Marcus
  2. marcus Gemeos
    Olá pessoal, Como faz em comando SQL realizar uma multiplicação para uma porcentagem? Ex.: 600,00 x 5%? E pontar o resultadoa uma variavel? Obrigado! Marcus
  3. marcus Gemeos

    Publicidade

    pergunta respondeu ao marcus Gemeos de marcus Gemeos em ASP

    Como assim? Criam uma imagem toda? Acho que não....
  4. marcus Gemeos

    Validar O Cpf...

    uma questão postou marcus Gemeos ASP

    Olá, Eu gostaria de saber se tem na hora de um cadastro no formulario validar se o CPF é verdadeiro? E como faço? Preciso! Obrigado! Marcus
  5. marcus Gemeos
    Olá pessoal, Eu possuo um "enviador" de arquivos para servidor sem componentes, mas ele guando vai enviar os arquivos ela dar a opção de enviar qualquer tipo de arquivos e gostaria que ele desse opção para enviar só arquivos de imagens? Alguém poderia me ajudar? Abaixo segue o codigo caso precisem! Obrigadão! Marcus Arquivo em asp: <html> <head> <title>:: Feira Mercado - O seu mercado feirense de vendas e compras - Em Feira de Santana e regiões ::</title> </head> <body> <form method=POST enctype="multipart/form-data"> &nbsp;<input type="file" name="File1" size="32" style="font-family: Verdana; font-size: 10 px; color: #808080; border: 1px solid #808080"><br> &nbsp;<input type="submit" Name="Action" value="Enviar imagens..." style="font-family: Verdana; font-size: 10 px; color: #000000; border-style: solid; border-width: 1"> </form> </body></HTML> <!---#INCLUDE FILE="upload.inc" ---> <% Dim Fields, FilePath 'Sauvegarde le fichier 'File1' sur le serveur dans le même répertoire que ce script 'Modifier le FilePath pour le claquer ailleurs If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields Set Fields = GetUpload() FilePath = Server.MapPath(".\figuras") & "\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath Response.Redirect "upload_enviado.asp" %> <% End If %> Codigo do seguinte arquivo: <!---#INCLUDE FILE="upload.inc" --->: <script RUNAT=SERVER LANGUAGE=VBSCRIPT> Const IncludeType = 2 'Vous pouvez utiliser ce composant d'upload pourr : ' 1. Uploader de petits fichiers sur le serveur (sauvegarde via les FileSystem object) ' 2. Uploader des fichiers binaires/texte de n'importe quelle taille sur une base de données serveur (RS("BinField") = Upload("FormField").Value) 'restriction de la taille de l'upload Dim UploadSizeLimit '********************************** Méthode GetUpload ********************************** 'Cette fonction lit les champs de formulaires en entrée binaire et les renvoie en tant qu'objet du dictionnaire. 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 '****** Erreur sur IE5.01 - doublement des entêtes http 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 '****** Erreur sur IE5.01 - doublement des entêtes http 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", "longueur nulle ." End If Else Err.Raise 11, "GetUpload", "Pas de fichier joint." End If Else Err.Raise 1, "GetUpload", "Mauvaise méthode de request." End If Set GetUpload = Result End Function '********************************** SeparateFields ********************************** 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) 'Entête et fichier source Dim HeaderContent, FieldContent, bFieldContent 'entêtes Dim Content_Disposition, FormFieldName, SourceFileName, Content_Type 'variable Dim Field, TwoCharsAfterEndBoundary 'Fin de l'entête PosEndOfHeader = InStrB(PosOpenBoundary + Len(Boundary), Binary, StringToBinary(vbCrLf + vbCrLf)) 'Séparation des champs de l'entêter HeaderContent = MidB(Binary, PosOpenBoundary + LenB(Boundary) + 2, PosEndOfHeader - PosOpenBoundary - LenB(Boundary) - 2) 'séparation du contenu bFieldContent = MidB(Binary, (PosEndOfHeader + 4), PosCloseBoundary - (PosEndOfHeader + 4) - 2) 'séparation des champs d'entête de l'entêter GetHeadFields BinaryToString(HeaderContent), Content_Disposition, FormFieldName, SourceFileName, Content_Type 'Creation d'un champs et attribution des paramètres Set Field = CreateUploadField()'See the JS function bellow Set FieldContent = CreateBinaryData(bFieldContent,LenB(bFieldContent)) ' FieldContent.ByteArray = bFieldContent ' FieldContent.Length = 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 ' response.write "<br>:" & FormFieldName Fields.Add FormFieldName, Field 'Dernière borne ? TwoCharsAfterEndBoundary = BinaryToString(MidB(Binary, PosCloseBoundary + LenB(Boundary), 2)) isLastBoundary = TwoCharsAfterEndBoundary = "--" If Not isLastBoundary Then 'Putain!!! Pas la dernière... on avance jusqu'au champ suivant. PosOpenBoundary = PosCloseBoundary PosCloseBoundary = InStrB(PosOpenBoundary + LenB(Boundary), Binary, Boundary) End If Loop Set SeparateFields = Fields End Function '********************************** Utilities ********************************** 'Separation des champs d'entête de l'entête uploadé 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 'Separation du champ entre sStart et sEnd 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 'Separation du nom de fichier du chemin 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) ' BinaryToString = RSBinaryToString(Binary) ' Exit Function 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>
  6. marcus Gemeos
    Olá pessoal, Onde aoncho algum sistema que envie imagens ao servidor? pois tenho um que não usa componentes mais ele enviar todos os tipos de arquivos e gostaria que ele enviassem só imagens do tipo *.gif e *.jpg E gostaria também que ao enviar o arquivo, o nome do arquivo com a extensão fosse capturada ao um campo do banco de dados. Eu gostaria como se faz para pegar só nome do arquivo e sua extensão no campo do formulário de envio de arquivos de imagens? E não o diretório todo? Entenderam? Precisso!!!!! Obrigadão!!! Marcus
  7. marcus Gemeos
    Ola, Conhecem o site http://www.milliondollarhomepage.com/ onde eles vendem espaços por pixel? Como é desenvolvido isso? Ele não deve ficar inserido figuras e fazendo os links pro sites do anunciante, não é? alguém sabe como é?? Preciso! Obrigado! Marcus
  8. marcus Gemeos

    Envio De Mail

    uma questão respondeu marcus Gemeos em ASP

    Ola, Conhecem o site http://www.milliondollarhomepage.com/ onde eles vendem espaços por pixel? Como é desenvolvido isso? Ele não deve ficar inserido figuras e fazendo os links pro sites do anunciante, não é? alguém sabe como é? Preciso! Obrigado! Marcus
  9. marcus Gemeos

    Publicidade

    uma questão postou marcus Gemeos ASP

    Ola, Conhecem o site http://www.milliondollarhomepage.com/ onde eles vendem espaços por pixel? Como é desenvolvido isso? Ele não deve ficar inserido figuras e fazendo os links pro sites do anunciante, não é? alguém sabe como é? Preciso! Obrigado! Marcus
  10. marcus Gemeos
    Olá pessoal, Eu gostaria de saber como faço para guando deletar o codigo delete não só pelo campo Codigo mais também junto com a informação do campo Usuario? Vejam um exemplo abaixo: varID = Request.QueryString("id") SQLDel = "DELETE * FROM dados WHERE codigo = "& VarID E gostaria que fosse assim: SQLDel = "DELETE * FROM dados WHERE codigo = "& VarID e o Campo usuario = VarUsuario Precisso! Obrigado! Marcus
  11. marcus Gemeos

    Boot

    uma questão postou marcus Gemeos GNU/Linux

    Ola, Eu tenho um linux que só aparece no meu computador quando reinicio a maquina e coloco o disquete de boot, até aí tudo bem, mas agora meu disquete deu problema e estou sem o boot para iniciar meu linux Kurumin. Onde acho um arquivo de boot Kurumim para colocar em um disquete e dar boot nele? Preciso! Obrigado Marcus
  12. marcus Gemeos
    Ola, Vi em um sie falando sobre Layout Table e Layout Cell que facilitou bastante a montagem de site em tabelas...onde acho um material bom, sobre como montar um site no Dreamweaver? Seus menus, pinta cada celula? Link...algo assim? Preciso! Obrigado! Marcus
  13. marcus Gemeos
    Ok, beleza!
  14. marcus Gemeos

    Padrão W3c

    uma questão postou marcus Gemeos Editores

    Ola, Eu fiz um site no front page, lógicamente não segue o padrão w3c e por isso não ler legal no navegador fireox e sim só no internet explorer, como faço para transformar esse site em padrão w3c pelo Front Page? Ou tenho que começar do zero no Dreamweaver? Não tem ferramenta para padroninzar em w3c? Só vejo os codigos diretos como CSS....queria saber! Obrigado! Marcus
  15. marcus Gemeos
    Ola, Eu fiz um site no front page, lógicamente não segue o padrão w3c e por isso não ler legal no navegador fireox e sim só no internet explorer, como faço para transformar esse site em padrão w3c pelo Dreamweaver? Ou tenho que começar do zero? Não tem ferramenta para padroninzar em w3c? Só vejo os codigos diretos como CSS....queria saber! Obrigado! Marcus
  16. marcus Gemeos
    valeu!
  17. marcus Gemeos
    Ola, Me disseram que para o meu site rodar no firefox e internet explorer bem tenho que criar site no padrão 3wc, onde aprendo isso? É viável? Obrigado Marcus
  18. marcus Gemeos

    Comando Sum

    pergunta respondeu ao marcus Gemeos de marcus Gemeos em SQL Server

    Não é isso, pior que não, são todos poucos, pequenos... Marcus
  19. marcus Gemeos

    Comando Sum

    pergunta respondeu ao marcus Gemeos de marcus Gemeos em SQL Server

    O banco é pequeno vou ver o grup by não sei...
  20. marcus Gemeos
    Ola pessoal, Eu tenho 3 tabelas em um banco de dados SQL Server 2000 e coloquei na query um comando SUM para fazer uma soma das quantidades de cupons, no caso, total onde sugir uma coluna mostrando a soma total, mas esse SUM faz o resultado vim muito lento, 42 s para mostrar a soma, quando tiro ela a tabela aparece rapido mas sem o resultado da soma, e esse SUM já usei em outras query e rodou rapidino, o que deve ser??? Preciso! Obrigado! Marcus
  21. marcus Gemeos
    Ola, Já faço menu cascata ou pop-up no Dreamweaver MX, mas como faço menu pop-up de um outro menu pop-up no Dreamweaver? Tipo clico no menu servios e aparece um novo menu chamado concerto e ao passar o mouse nesse menu concerto aparece outro menu chamado computador e assim posso clicar nele e entrar na seção certa, alguém sabe?? Preciso! Obrigado! Marcus
  22. marcus Gemeos
    Ho o que me disseram sobre isso, é válido? "Bem.. talvez não seja o modo mais fácil, mas eu faria isso com um pouco de dedicação e muuuuuita paciência! Como??? Importe um vídeo do carinha dançando de preferência com fundo branco e sai dando F6 sei lá... no vídeo e corta o fundo frame a frame. Legal né rsrs Haja paciência. Mas se me pagarem o que a Chevrolet provavelmente pagou... pode ter certeza q eu faço 2 vezes rsrs E é isso. " Obrigado! Marcus
  23. marcus Gemeos
    vou me virar pra ver isso!, valeu!
  24. marcus Gemeos
    há beleza, faço um filme e esse filme insiro no flash e faço ele ser um objeto, mas se o filme tem um fundo ver por exemplo, vai aparecer porque um fundo do viedei e o cara no filme é um arquivo só no flash não?
  25. marcus Gemeos
    Valeu, mas ele sabe o que pode ser transparente ou não é no flash? Marcus
×
×
  • Criar Novo...