flipper
-
Total de itens
46 -
Registro em
-
Última visita
Posts postados por flipper
-
-
Olá Galera,
Sou novato e não manjo muito. Estou com um problema, queria saber como faço para meu ultimo registro voltar sem a virgula imposta no final teria como??
<%
While ((strRe__numRows <> 0) AND (NOT Recordset_slide.EOF))
Response.Write("[""/Galeria/"&(Recordset_slide("foto").Value)&"""],")
Response.Write(vbnewline)
strRe__index=strRe__index+1
strRe__numRows=strRe__numRows-1
Recordset_slide.MoveNext()
Wend
%>
Queria que me retornasse assim.
["/Galeria/1.jpg"],
["/Galeria/2.jpg"],
["/Galeria/3.jpg"] no ultimo registro sem a virgula
Aguardo
-
Galera, já venho quebrando a cabeça a algum tempo... O projeto estava parado e voltou agora tenho que correr contra o tempo....
Já viram algo parecido...
Ele tem interação com asp e banco de dados. Já tentei praticamente de tudo, não sei onde fica o problema não faço ideia.
No Internet ele roda perfeito abre sem erro nenhum, agora quando tento abrir no Firefox na barra de status fica aparecendo a msg recebendo dados, aguardando dados, mudando rapidamente e os links não funcionam de jeito nenhum...
O que poderia ser alguém já passou por isso, alguém tem alguma ideia de como resolver o problema?
Agradeço antecipadamente...
Olha o link galera - Provve
Obrigado..
Flipper
-
-
-
-
Olá galera,
Tem esse codigo abaixo eles esta rodando meio redondo, quando ele carrega todas as imagens e ele vai dar o loop, ele da um erro. Ele da um erro na faixa em negrito, alguém sabe como resolver.
Abraços
<%
Dim Recordset_slide
Dim Recordset_slide_numRows
Set Recordset_slide = Server.CreateObject("ADODB.Recordset")
Recordset_slide.ActiveConnection = MM_bib_conexao_STRING
Recordset_slide.Source = "SELECT TOP 20 * FROM GALERIA_SLIDE ORDER BY NEWID()"
Recordset_slide.CursorType = 0
Recordset_slide.CursorLocation = 2
Recordset_slide.LockType = 1
Recordset_slide.Open()
Recordset_slideNotPainel2_numRows = 0
%>
<%
Dim strRe__numRows
Dim strRe__index
strRe__numRows = 20
strRe__index = 0
Recordset_slide_numRows = Recordset_slide_numRows + strRe__numRows
%>
<script type="text/javascript">
slide = {
// vetor com os slides
_imagens : [
<%
While ((strRe__numRows > 0) AND (NOT Recordset_slide.EOF))
Response.Write("[""/GaleriaSlide/"&(Recordset_slide("foto").Value)&"""],")
Response.Write(vbnewline)
strRe__index=strRe__index+1
strRe__numRows=strRe__numRows-1
Recordset_slide.MoveNext()
Wend
%>
],
// ID dos elementos que o sistema modifica
// ID da imagem do slide
_slideImg : 'slideImg',
// ID do link do slide, ou seja, um elemento A
//_linkSlide : 'linkSlide',
// ID do título do slide, uma div ou span por exemplo
//_titleSlide: 'titleSlide',
// ID do título do slide, idêntico ao de cima
//_textSlide : 'textSlide',
// ID da imagem de play|pause
_playPause : 'playpause',
// ID da div que mostra ou esconde as opções de customização de tempo
// essa opção pode ser omitida do usuário, basta retirar o botão
// settings da página, e como a div já vem com o display:none por
// padrão o usuário não terá acesso a essas opções.
_showTimer : 'showTimer',
// variáveis do sistema
// Daqui para baixo não é necessário alterar mais nada, aqui o sistema
// cuidará de tudo
_count : 0,
_length : null,
_timeOutID : null,
_pause : false,
_timer : 4,
// função que inicia o slide e seta todas os parâmetros necessários
start : function(){
with(this){
_preLoader();
_length = _imagens.length;
_work();
}
},
// faz o pré-carregamento das imagens
_preLoader : function(){
for(x in this._imagens){
var image = new Image();
image.src = this._imagens[x][1];
}
},
// função principal que faz as checagens necessárias
_work : function(){
with(this){
(_count == _length) ? _count = 0 : (_count < 0) ? _count = _length-1 : void(0);
var current = _imagens[_count];
_exchange(current);
if(!_pause){
(typeof(_timeOutID) == "number") ? clearTimeout(_timeOutID) : void(0);
_timeOutID = setTimeout(
function(){
slide.next();
fade(0,0,$(_slideImg));
}, (Number(_timer)*1000)
);
}
}
},
// função que altera os elementos da página, altere os IDs se necessário
_exchange : function(img){
this.$(this._slideImg).src = img[0];
//this.$(this._titleSlide).innerHTML = img[1];
//this.$(this._textSlide).innerHTML = img[2];
//this.$(this.).href = img[3];
this.fade(0,100,this.$(this._slideImg));
},
// altera para o próximo slide ao clicar no botão Próximo
next : function(){
with(this){
_count++;
_work();
}
},
// altera para o slide anterior ao clicar no botão correspondente
previous : function(){
with(this){
_count--;
_work();
}
},
// pausa e continua a apresentação
pause : function(){
var img = this.$(this._playPause);
if(this._pause){
this._pause = false;
img.src = 'imgs/pause.gif';
img.title = 'Parar';
}
else{
this._pause = true;
img.src = 'imgs/play.gif';
img.title = 'Continuar';
}
with(this){(typeof(_timeOutID) == "number") ? clearTimeout(_timeOutID) : void(0); _work();}
},
// controla o tempo de troca de cada slide
tControl : function(act){
with(this){
(act=="m")?((_timer==4)?void(0):_timer=_timer-1):((_timer==9)?void(0):_timer= _timer +1);
this.$(this._showTimer).innerHTML = _timer+"s";
}
},
// altera a opacidade do elemento e suaviza a transição entre os slides
fade : function (){
var type,signal;
var from = arguments[0];
var to = arguments[1];
var el = arguments[2];
(document.all) ? type = 'filter' : type = 'opacity';
(from>to) ? signal = '-' : signal= '+';
if(from >= to/2){
from = eval(from+signal+10);
}else{
from = eval(from+signal+5);
}
if(type=='opacity'){
try{el.style[type] = Number(from*0.01); }catch(e){}
}else{
try{el.style[type] = 'alpha(opacity='+from+')'; }catch(e){}
}
if(from != to){
setTimeout( function(){ slide.fade(from,to,slide.$(slide._slideImg)); } ,50);
}
},
// retorna o elemento solicitado através de seu ID
$ : function(){
return document.getElementById(arguments[0]);
}
}
</script>
-
1- Quando acesso, ele direto SlideShowi.asp?id=5 aparece a qt de fotos que tenho no meu banco... ele retorna como se fosse um xml normal.
Abrindo o asp, como se fosse xml.<gallery timer="3" order="sequential" fadetime="2" looping="yes" xpos="0" ypos="0"><image path="/GaleriaSlide/foto.jpg" />
</gallery>
3 - Então eu tive que criar dois diferente com duas buscas diferentes, na home eu busco todas as fotos, no segundo eu busco so referente aquele id. Só que por exemplo quando coloco quando vou para segunda pagina o meu flash fica branco, mais se abro o codigo, eu vi que carregou as fotos como se fosse xml.. eu fiz um include para ver se estava buscando só as que eu queria.
Esqueci de mencionar...
Quando uso esse sql
"SELECT TOP 20 * FROM GALERIA_SLIDE WHERE IDDESTINO LIKE '%"&REQUEST("ID")&"%' ORDER BY NEWID()"não funciona.
Agora se uso esse.
funciona certinho"SELECT TOP 20 * FROM GALERIA_SLIDE WHERE IDDESTINO = '5' ORDER BY NEWID()"Valeu pela ajuda.
-
Olá galera
Não sei se posto na area certa pois mistura flash com asp, mais o flash esta certinho.
É o seguinte, fiz um slideshow em flash que busca as informações geradas em um ASP que faz uma busca na base e retorna os valores, quando não busco nenhum ID e faço uma busca * sem where ela me traz todas os IDs, até ai tudo bem.
Como não sou muito bom em programação ASP, ai entra o problema... na primeira pagina onde faço a completa ela me traz todas as fotos tudo OK.
Quando redireciono para uma outra pagina querendo buscar apenas as fotos do id determinado, o flash não carrega as fotos. Mas se faço uma busca direto no arquivo asp com o ID determinado, me retorna a quantidade de foto mais o flash não carrega.
Gostaria de saber como faço para esse arquivo fazer uma busca com o ID que aparece na pasta e depois o flash buscar por ele.. acho que seria isso.
Abaixo o codigo que faço ele buscar por ID.
Quem busca ele é o flash.
<!--#include file="scripts/bib_conexao.asp" --><%
Dim Recordset_slide
Dim Recordset_slide_numRows
Set Recordset_slide = Server.CreateObject("ADODB.Recordset")
Recordset_slide.ActiveConnection = MM_bib_conexao_STRING
Recordset_slide.Source = "SELECT TOP 20 * FROM GALERIA_SLIDE WHERE IDDESTINO LIKE '%"&REQUEST("ID")&"%' ORDER BY NEWID()"
Recordset_slide.CursorType = 0
Recordset_slide.CursorLocation = 3
Recordset_slide.LockType = 1
Recordset_slide.Open()
Recordset_slideNotPainel2_numRows = 0
%>
<%
Dim strRe__numRows
Dim strRe__index
strRe__numRows = 20
strRe__index = 0
Recordset_slide_numRows = Recordset_slide_numRows + strRe__numRows
%>
<gallery timer="3" order="sequential" fadetime="2" looping="yes" xpos="0" ypos="0">
<%
While ((strRe__numRows <> 0) AND (NOT Recordset_slide.EOF))
Response.Write("<image path=""/GaleriaSlide/"&(Recordset_slide("foto").Value)&""" />")
Response.Write(vbnewline)
strRe__index=strRe__index+1
strRe__numRows=strRe__numRows-1
Recordset_slide.MoveNext()
Wend
%>
</gallery>
<%
Recordset_slide.Close
Set Recordset_slide = Nothing
%>
Desde já agradeço.
Abraço
-
Olá galera.
Estou com uma super duvida.
Estou querendo fazer um slideshow que rode algumas fotos de lugares diferentes. Fazer um slideshow via javascript com dados de banco de dados é possível?
Ex.
Estou desenvolvendo uma pagina, que requer uma banner giratório com fotos, só que é o seguinte, tenho varias tipos de fotos, Animais | Paisagem | Pessoas.
Gostaria de saber se consigo fazer isso. O cara clica em animais redireciona para uma pagina que contenha informações sobre animais e no banner roda fotos deles, se o cara clicar em paisagem a mesma coisa acontece. Queria fazer isso numa mesma pagina com dados dinâmicos, se for possivel esse slide buscar um id do banco e apenas informar o local da fotos acho que seria o ideal, estou CERTO????
Será que estou usando a tecnologia correta? Vocês indicam?
Por favor me ajudem a resolver esse assunto.
Fico no aguardo de alguma coisa.
Muito Obrigado.
Atenciosamente
Flipper
-
Olá galera,
Gostaria de saber se é possivel fazer a soma de um request.form (<%=request.Form("Urs_cafe")%>).
Tenho um formulario com os valores de cada item em um checkbox, quando vou pra outra pagina aparece o valor, teria como eu fazer a soma se eu escolher mais de dois produtos, não queria colocar em um banco de dados.
Alguém poderia me mandar um exemplo, por favor?
Atenciosamente
-
Bom dia galera,
Estou com um super problema, tenho uma pagina asp, que carrega um swf do lado do menu, mas tem um problema quando o menu do asp abre ele abre embaixo do swf, teria como ele abrir por cima?
Fico no aguardo de uma resposta.
Atenciosamente
FLipper
-
Boa tarde galera,
Estou a procura de algum modelo de enquete ou cadastro que a pessoa recebe um email pra validar seu cadastro ou voto.
Se alguém puder me ajudar com algum tutorial eu agradeço desde já.
Um abraço
Flipper
-
Bom dia galera, tenha uma pequena dúvida. Tenho esse condigo mas não consigo fazer ele enviar arquivo maior que 100Kb vocês podems me ajudar por favor.
Não entendo muito de asp, espero que possam me ajudar.
<%@ Language=VBScript %> <% Dim Contador, Tamanho Dim ConteudoBinario, ConteudoTexto Dim Delimitador, Posicao1, Posicao2 Dim ArquivoNome, ArquivoConteudo, PastaDestino Dim objFSO, objArquivo '--------------------------------------------- 'BASTA ALTERAR O DIRETORIO AONDE você QUER SALVAR AS IMAGENS 'LEMBRANDO QUE O DIRETORIO DEVE SER VÁLIDO NO LOCALHOST OU SEJA TEM QUE ESTAR ABILITADO PELO SERVER PastaDestino = "e:\home\venturas\web\concurso2006\fotos\" '***** Determina o Tamanho do Conteúdo ***** Tamanho = Request.TotalBytes '***** Obtém o Conteúdo no Formato Binário ***** ConteudoBinario = Request.BinaryRead(Tamanho) '***** Transforma o Conteúdo Binário em String ***** For Contador = 1 To Tamanho ConteudoTexto = ConteudoTexto & Chr(AscB(MidB(ConteudoBinario, Contador, 1))) Next '***** Determina o Delimitador de Campos ***** Delimitador = Left(ConteudoTexto,InStr(ConteudoTexto, vbCrLf)-1) '***** Percore a String Procurando os Campos ***** '***** Identifica os Arquivos e Grava no Disco ***** Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Posicao1 = InStr(ConteudoTexto, Delimitador) + Len(Delimitador) Do While True ArquivoNome = "" Posicao1 = InStr(Posicao1, ConteudoTexto, "filename=") If Posicao1 = 0 Then Exit Do Else '***** Determina o Nome do Arquivo ***** Posicao1 = Posicao1 + 10 Posicao2 = InStr(Posicao1, ConteudoTexto, """") For Contador = Posicao2-1 To Posicao1 Step -1 If Mid(ConteudoTexto, Contador, 1) <> "\" Then ArquivoNome = Mid(ConteudoTexto, Contador, 1) & ArquivoNome Else Exit For End If Next '***** Determina o Conteúdo do Arquivo ***** Posicao1 = InStr(Posicao1, ConteudoTexto, vbCrLf & vbCrLf) + 4 Posicao2 = InStr(Posicao1, ConteudoTexto, Delimitador) - 2 ArquivoConteudo = Mid(ConteudoTexto, Posicao1, Posicao2-Posicao1+1) '***** Grava o Arquivo ***** If ArquivoNome <> "" Then Set objArquivo = objFSO.CreateTextFile(PastaDestino & ArquivoNome, True) objArquivo.WriteLine ArquivoConteudo objArquivo.Close response.redirect "/concurso2006/default.asp?anexos=" & ArquivoNome & "&msg= anexado com sucesso!" ' Response.Write "Arquvo " & PastaDestino & ArquivoNome & " gravado com sucesso!!!<BR>" Set objArquivo = Nothing End If End If Loop Set objFSO = Nothing %> -
Boa tarde galera,
Alguém tem ou já viu algum exemlpo de processamento de XML com javaScript?
Preciso ler um xml e montar um menu baseado no conteudo desse arquivo... gostaria de sabe como abrir e ler um arquivo desses com javascript e mostrar na tela os dados desse XML
Aguardo uma resposta
-Estou precisando muito saber de alguma coisa.
Atenciosamente
Flipper
-
Boa tarde galera,
Alguém tem ou já viu algum exemlpo de processamento de XML com javaScript?
Preciso ler um xml e montar um menu baseado no conteudo desse arquivo... gostaria de sabe como abrir e ler um arquivo desses com javascript e mostrar na tela os dados desse XML
Aguardo uma resposta
-Estou precisando muito saber de alguma coisa.
Atenciosamente
Flipper
-
Boa noite galera,
Gostaria de saber se alguém sabe onde posso encontrar um menu parecido com o Mac da Apple.
Aguardo um retorno
Flipper
-
O pior de tudo que não da erro nenhum, ele apenas não carrega o arquivo xml. E acho que o problema no loading pois quando tiro ele carrega normalmente.
Flipper
-
E ae galera,
Estou com uma pequena dúvida, quando eu faço um loading em uma Scene e mando pra uma outra que tem um connector xml ele não funciona alguém sabe o porque disso estar acontecendo?
alguém tem alguma solução pra isso
Flipper
-
Esse é o problema não posso usar esse comando pois estou usando loadMovie e estão em swf diferentes
-
Boa tarde galera,
Estou com um problema que não sei se existe uma solução.
Queria fazer um botão voltar como no explorer, voltar pra pagina anterior de onde ele foi clicado.
Ex. O menu botão carregou atividades, mas em atividades tem um link que leva pra outro swf chamado valores. Eu queria criar um botão voltar que volte pra atividades em vez de voltar pra pagina incial de valores.
Existe essa posibilidade?
alguém me ajude please
-
-
Assim
Quando tento jogar os valores nessa variavel aparece perfeito mas quando o numero de parcelas esta 0 ele da erro pois não podemos dividir por 0, devo ter esquecido de postar onde mostro meus valores. Acho que pode ajudar na minha duvida
Então eu queria que quando aparecer 0 no numero de parcelas apareça algo que mostre isso pro usuario
<%if PRECOS("PrecoSingle") <> 0 then %>
<%=PRECOS("moeda")%><%=FORMULA(PRECOS("precoSingle"),PRECOS("NumeroParcelas"),PRECOS("TaxaJuros"))%>
<%else%>
-
<%end if%>
Isso é quando apresento os valores
-
Fala galera estou com um problema que não estou conseguindo resolver pois aindo sou novo nessa programação será que alguém podera me ajudar. É o seguinte quero que quando a taxa for 0 não apareça
function FORMULA(va,parc,tax) if tax <> 0 then tax = (tax/100) FORMULA = va*(tax*(1+tax)^parc)/((1+tax)^parc-1) FORMULA = formatNumber(FORMULA,0) FORMULA = FORMULA &".00" else FORMULA = (va/parc) FORMULA = formatNumber(FORMULA,0) FORMULA = FORMULA &".00" end if END function
Preciso com um pouco de ugencia
Muito obrigado
-
Cara não era bem isso que estava procurando, isso é um pop-up html, esse codigo que passei abre o component window, e queria saber como faço pra carregar um swf que puxa xml dentro dele.
Invasão Bando de dados
em ASP
Postado
Bom dia Galera,
Não sei se coloco aqui ou no banco de dados.
Venho sofrendo alguns meses ataque ao meu site. Mas meu site é de informação para cliente não tem nenhum dado para roubo. Todas vezes meu site fica fora do ar por ele ser alterado a base de dados. Insere alguns caracteres <spam> <class> http:
Já fiz todas todas as correções que encontrei no site referente a sql injection, correções de pesquisa em select, mas ainda continuo com problema.
Será que alguém poderia me ajudar nessa questão?
o site em questão é www.venturas.com.br
Obrigado a todos.
Abraços