Jump to content


gUiTaR_mAn's Content

There have been 18 items by gUiTaR_mAn (Search limited from 29/03/2023)


Ordernar por                Order  

#953687 Recuperar Do Javascript A Resposta Do If (confirm())

Posted by gUiTaR_mAn on 15/01/2009, 18:51 in ASP

cara... acredito que issu vai ser dificil,

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



#912516 Erro Ao Tentar Exibir Algum Registro Inexistente

Posted by gUiTaR_mAn on 09/05/2008, 09:18 in ASP

Coloca issu antes de rescatar os registros:

If seu_recordset.EOF Then
response.write("Não há registros")
else

'mostra os seus registros

End if

vlw (y)



#912514 Ajuda Com Formulário

Posted by gUiTaR_mAn on 09/05/2008, 09:15 in ASP

na boa... nao entendi nada velhu
posta teu codigo ae e tenta explicar melhor

flw



#911143 Baixar Midia

Posted by gUiTaR_mAn on 01/05/2008, 10:29 in ASP

cara... fiquei curioso quando vi essa sua duvida... testei seu codigo e realmente apresenteu o problema que vc descreveu...
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 (y)



#910965 Cálculo De Idade

Posted by gUiTaR_mAn on 30/04/2008, 11:26 in ASP

função pra calcular idade... testada e aprovada...

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; (y)



#910960 Acentuação Em Asp Com Dados Do Sql

Posted by gUiTaR_mAn on 30/04/2008, 11:16 in ASP

cara... da uma olhada na sua base de dados...
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 (y)



#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

utilize a busca:

http://forum.wmonlin...;highlite=login

abs; :boxing:



#910854 Acentuação Em Asp Com Dados Do Sql

Posted by gUiTaR_mAn on 29/04/2008, 18:52 in ASP

tenta colocar isso no início do teu site:

<% Response.charset = "ISO-8859-1" %>

abs; :boxing:



#910853 Refresh Em Select Que Carrega Dados Mbd

Posted by gUiTaR_mAn on 29/04/2008, 18:50 in ASP

somente com ajax my brother...
da uma estudada na linguagem... parece ser meio complicado no começo, mas é simples e da pra fazer muita coisa legal..
abs; :boxing:



#910790 Editar Imagem De Um Servidor Externo

Posted by gUiTaR_mAn on 29/04/2008, 12:30 in Artigos, Dicas e Tutoriais de ASP

Olá pessoal...
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 (y)
abraço!! :roundhousekick:



#901486 Sistema De Comunidade (v2)

Posted by gUiTaR_mAn on 05/03/2008, 11:20 in Avaliação de Sistemas

opa beto...
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 (y)



#901391 Sistema De Comunidade (v2)

Posted by gUiTaR_mAn on 04/03/2008, 19:49 in Avaliação de Sistemas

olá...
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 (y)



#901367 Usando Isapi Rewrite

Posted by gUiTaR_mAn on 04/03/2008, 18:06 in ASP

cria na mao velho...
é simples pacarai e vai funcar em qualquer servidor, independente se tem ou não componente.

flw



#896537 Aspupload

Posted by gUiTaR_mAn on 09/02/2008, 15:48 in ASP

opa galéra...
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



#896093 Upload De Foto

Posted by gUiTaR_mAn on 07/02/2008, 12:10 in ASP

use o componente AspUpload... é um dos mais simples e mais utilizados componentes para upload...
segue a documentação abaixo:

http://www.aspupload...ual_simple.html

flw (y)



#895739 Upload De Arquivos

Posted by gUiTaR_mAn on 05/02/2008, 13:24 in Delphi e Delphi.NET

vlw luiz otavio...
consegui (y)



#895708 Upload De Arquivos

Posted by gUiTaR_mAn on 05/02/2008, 08:52 in Delphi e Delphi.NET

olá..

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..



#892562 Juntar Duas Variaveis Para Formar Uma

Posted by gUiTaR_mAn on 17/01/2008, 17:54 in ASP

ola pessoal...
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




IPB Skin By Virteq