- Fórum WMO
- → gUiTaR_mAn's Content
gUiTaR_mAn's Content
There have been 18 items by gUiTaR_mAn (Search limited from 14/05/2023)
#896093 Upload De Foto
Posted by gUiTaR_mAn on 07/02/2008, 12:10 in ASP
segue a documentação abaixo:
http://www.aspupload...ual_simple.html
flw
#912514 Ajuda Com Formulário
Posted by gUiTaR_mAn on 09/05/2008, 09:15 in ASP
posta teu codigo ae e tenta explicar melhor
flw
#912516 Erro Ao Tentar Exibir Algum Registro Inexistente
Posted by gUiTaR_mAn on 09/05/2008, 09:18 in ASP
If seu_recordset.EOF Then response.write("Não há registros") else 'mostra os seus registros End if
vlw
#910853 Refresh Em Select Que Carrega Dados Mbd
Posted by gUiTaR_mAn on 29/04/2008, 18:50 in ASP
da uma estudada na linguagem... parece ser meio complicado no começo, mas é simples e da pra fazer muita coisa legal..
abs;
#896537 Aspupload
Posted by gUiTaR_mAn on 09/02/2008, 15:48 in ASP
olha soh... to utilizando o aspupload pra subir uma imagem e algumas informações que o usuário digita no form.
o problema é que quando ele digita uma palavra acentuada, o caractere acentuado não é gravado na base...
ex: o cara digita "Paquetá", vai entrar na base "Paquet"
alguém sabe como eu posso resolver esse problema?
vlw
#911143 Baixar Midia
Posted by gUiTaR_mAn on 01/05/2008, 10:29 in ASP
notei que o download tb tava acontecendo rapido demais... e o arquivo, que era de 2 mb tava chegando com 300 bytes
testei um codigo que eu tinha em uma aplicação minha aqui e funcionou perfeitamente
segue abaixo:
<% Dim Arquivo Arquivo = "musica.mp3" Response.Buffer = True Response.AddHeader "Content-Type","application/x-msdownload" Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo Response.Flush Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.LoadFromFile Server.MapPath(Arquivo) Response.BinaryWrite objStream.Read objStream.Close Set objStream = Nothing Response.Flush %>
espero que ajude...
vlw
#910965 Cálculo De Idade
Posted by gUiTaR_mAn on 30/04/2008, 11:26 in ASP
Function Idade(data) Idade = Year(Now()) - Year(data) iData = Day(data) &"/"& Month(data) &"/"& Year(Date()) If DateDiff("d", Date(), iData) > 0 Then Idade = Idade -1 End Function
abs;
#892562 Juntar Duas Variaveis Para Formar Uma
Posted by gUiTaR_mAn on 17/01/2008, 17:54 in ASP
seguinte... vejam meu codigo abaixo:
<%
musica1 = "musica1.mp3"
musica2 = "musica2.mp3"
musica3 = "musica3.mp3"
'...
%>
<% For i = 1 to 16 %>
<% If musica&i <> "" Then %>
<tr>
<td class="main"><% =musica&i %><% If url&i <> "" Then %>- som <% =i %><% End if %></td>
</tr>
<% End if %>
<% Next %>
na condição eu preciso juntar "musica" e a variavel "i" para formar uma única variavel chamada "musica1" ou "musica2", enfim...
desse jeito q to fazendo ta errado,
alguem pode me ajudar nessa?
valew
#953687 Recuperar Do Javascript A Resposta Do If (confirm())
Posted by gUiTaR_mAn on 15/01/2009, 18:51 in ASP
numa pagina o todo op ASP é executado PRIMEIRO no servidor... somente depois o html, javascript, etc...
entao nao tem como vc enviar uma resposta do javascript pro ASP, visto que ele ja foi processado...
explique o que vc quer fazer na prática e quem sabe a gente possa sugerir alguma alternativa...
abs,
alex
#901367 Usando Isapi Rewrite
Posted by gUiTaR_mAn on 04/03/2008, 18:06 in ASP
é simples pacarai e vai funcar em qualquer servidor, independente se tem ou não componente.
flw
#895708 Upload De Arquivos
Posted by gUiTaR_mAn on 05/02/2008, 08:52 in Delphi e Delphi.NET
estou fazendo um sistema em delphi e preciso fazer o upload de um arquivo no servidor web.
o servidor é a kinghost mas toda vez que tento me retorna uma mensagem dizendo " socket is not ready for writing", sendo que no servidor esta tudo configurado certinho para escrita..
estou usando o componente TChilkatFtp2 na minha procedure
meu code segue abaixo:
procedure TForm1.Button4Click(Sender: TObject); var ftp: TChilkatFtp2; success: Integer; localFilename: String; remoteFilename: String; begin ftp := TChilkatFtp2.Create(Self); // Any string unlocks the component for the 1st 30-days. success := ftp.UnlockComponent('Anything for 30-day trial'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); end; ftp.Hostname := 'ftp.cinefotomary.com.br'; ftp.Username := '******'; ftp.Password := '*****'; // The default data transfer mode is "Active" as opposed to "Passive". // Connect and login to the FTP server. success := ftp.Connect(); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); abort; end; // Change to the remote directory where the file will be uploaded. success := ftp.ChangeRemoteDir('www'); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); abort; end; // Upload a file. localFilename := 'c:\teste.jpeg'; remoteFilename := 'teste.jpeg'; success := ftp.PutFile(localFilename,remoteFilename); if (success <> 1) then begin ShowMessage(ftp.LastErrorText); abort; end; ftp.Disconnect(); ShowMessage('File Uploaded!'); end;
alguém pode me dar um help?
obrigado..
#895739 Upload De Arquivos
Posted by gUiTaR_mAn on 05/02/2008, 13:24 in Delphi e Delphi.NET
consegui
#901486 Sistema De Comunidade (v2)
Posted by gUiTaR_mAn on 05/03/2008, 11:20 in Avaliação de Sistemas
cara... acho que o tribe ja tem bem mais recursos que o orkut, como o blog, agenda, musicas, usuarios VIP's, e tals...
as cores estão diferentes, os icones, layout e tudo mais...
acho que o que está pareciso (+/-) é a estrutura, mas vc ja viu o perfil dos big brother? , também existem outras comunidades, e a maioria delas nao foge desse conceito...
porque? simplesmente porque mais de 15 milhoes de brasileiros ja estão completamente habituados com o tradicional orkut, então se pode inovar, se pode ter novas ideias, mas não fugir muito dessa ideia.
tem usuarios que ja tem duvidas de como fazer alguma coisa no tribe so porque não está no mesmo lugar que o orkut... kk
porisso que ainda to maqntendo essa ideia..
vlw cara
#901391 Sistema De Comunidade (v2)
Posted by gUiTaR_mAn on 04/03/2008, 19:49 in Avaliação de Sistemas
gostaria que avaliassem a nova versão do sistema de comunidade Tribe
implementei vários novos recursos (usuários VIP's, mural de recados, albuns de músicas, fotos e vídeos, links favoritos, agenda, blog, grupo de amigos, discografia (para artistas ou bandas), sistema de busca e perfil)
http://tribe.thasos.uni5.net/demo
login: alex@megaclassi.com.br
senha: demo
vlw
#910854 Acentuação Em Asp Com Dados Do Sql
Posted by gUiTaR_mAn on 29/04/2008, 18:52 in ASP
<% Response.charset = "ISO-8859-1" %>
abs;
#910960 Acentuação Em Asp Com Dados Do Sql
Posted by gUiTaR_mAn on 30/04/2008, 11:16 in ASP
vê se os dados já nao estao entrando errado....
se isso tiver acontecendo vc tem que colocar o charset na página de cadastro
vlw
#910790 Editar Imagem De Um Servidor Externo
Posted by gUiTaR_mAn on 29/04/2008, 12:30 in Artigos, Dicas e Tutoriais de ASP
andei sumido... hehe...
bom, hoje vou falar de uma coisa que poucos devem saber, porém pode ser muito útil caso você deseja criar um mural de recados que aceite imagens, uma comunidade, blog, sei lá... pode ser util pra muita coisa...
bom é o seguinte...
você certamente sabe que o aspjpeg é um componente bem legal que permite que vc edite uma foto que está no seu servidor como quiser e salve, ou imprima na tela....
a parte mais legal que vc nao sabe, é que você, com uma ajudinha do XMLHTTP, consegue editar uma imagem que pode estar em qualquer servidor, e você poderá salvá-la ou simplesmente exibir na tela com as alterações que vc fizer com o aspjpeg...
você vai ver que é muito simples!!
vamos aos códigos...
criaImg.asp
<% 'Tratamento de imagens externas 'por Alexandro Cunhago 'em 29-04-2008 'email: alex@megaclassi.com.br 'msn: guitarman@pop.com.br On Error Resume Next 'aqui vamos receber o endereço da imagem imagem original imagem = request.QueryString("img") 'esta função serve para converter o códigos-binário em string, porém nao vamos utuliza-lo nessa aplicação... Function BinaryToString(strBinary) Dim intCount BinaryToString ="" For intCount = 1 to LenB(strBinary) BinaryToString = BinaryToString & chr(AscB(MidB(strBinary,intCount,1))) Next End Function 'aqui comessa a grande sacada... é onde acessamos a url resgatada acima e pegamos seu código binário, com XMLHTTP Set xml = Server.CreateObject("MSXML2.ServerXMLHTTP") xml.Open "GET", ""& imagem &"", False xml.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" xml.setRequestHeader "referer", "http://www.seusite.com.br" xml.Send var = xml.responsebody 'response.BinaryWrite var set xml = nothing 'código binário na mão... agora é so utilizar o método OpenBinary, do aspjpeg para carregar a imagem com este componente... agora vc pinta e borda a imagem como quiser 'neste exemplo eu vou apenas redimensionar imagens com largura maiores do que 400 pixels Set Jpeg = Server.CreateObject("Persits.Jpeg") Jpeg.OpenBinary var L = 400 If Jpeg.OriginalWidth > Jpeg.OriginalHeight Then If Jpeg.OriginalWidth > L Then Jpeg.Width = L Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth End if Else If Jpeg.OriginalHeight > L Then Jpeg.Height = L Jpeg.Width = Jpeg.OriginalWidth * L / Jpeg.OriginalHeight End if End If 'e agora com o SendBinary eu estou imprimindo a imagem na tela, sem precisar se quer salva-la no meu servidor, nao ocupando espaço em disco. Jpeg.SendBinary %>
agora que vc ja tem o arquivo criaImg.asp, pra exibir uma imagem no seu site basta inserir a linha abaixo:
index.asp
<img src="criaImg.asp?img=url_da_imagem">
aí está galéra... agora, conforme a necessidade e a criatividade de vcs mandar, vcs poderao fazer qualquer coisa com uma imagem, tanto interna como externa!
façam bom proveito deste código, e por gentileza mantenham os créditos
abraço!!
#910856 Como Criar Uma Validação De Formulario Em Asp Igual Ao Do Forum Wmo ?
Posted by gUiTaR_mAn on 29/04/2008, 18:56 in ASP
- Fórum WMO
- → gUiTaR_mAn's Content
- Privacy Policy
- Regras ·