Ir para conteúdo

T13

Members
  • Total de itens

    16
  • Registro em

  • Última visita

Reputação

0 Comum

Sobre T13

  1. T13

    Mensagem WhatsApp via ASP Clássico

    Pessoal, Boa Tarde. Precisando criar uma aplicação em ASP Clássico para envio de mensagens SMS, me deparei com alguns códigos e tutoriais mais antigos de outras linguagens, para envio de mensagens via WhatsApp em C, PHP, .NET, etc.... Seria possível fazer isso via ASP Clássico? Se sim, como? Agradeço a ajuda!
  2. T13

    2 ou mais RULES no ASP + WEB.CONFIG

    @Public2004 Meu caro, sua solução funcionou perfeitamente. Eu já havia até desistido de tentar quando lembrei que tinha perguntado aqui também. Muito obrigado por ter cedido um pouco do seu tempo para ajudar com essa questão.
  3. T13

    2 ou mais RULES no ASP + WEB.CONFIG

    No caso, está funcionando sim, porém, sempre redirecionando para o link da primeira rule "lojas.asp". Então, quando clico no link referente à página produtos, ele está redirecionando também para a página de lojas. <?xml version="1.0" encoding="UTF-8"?> <configuration> <system.webServer> <rewrite> <rule name="lojas" stopProcessing="true"> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <match url="^lojas/([^/]+)/?$" ignoreCase="true" /> <action type="Rewrite" url="lojas.asp?idloja={R:1}" appendQueryString="true" /> </rule> <rule name="produtos" stopProcessing="true"> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <match url="^produtos/([^/]+)/?$" ignoreCase="true" /> <action type="Rewrite" url="produtos.asp?id={R:1}" appendQueryString="true" /> </rule> </rules> </rewrite> </system.webServer> </configuration>
  4. T13

    2 ou mais RULES no ASP + WEB.CONFIG

    @Public2004 Obrigado por auxiliar na questão. Tentei a utilização desses parâmetros porém as páginas não estão sendo exibidas. Pesquisei diversos métodos de utilizar em várias páginas mas não estou conseguindo com nenhuma... Todas apontam para a página da primeira rule. Ambas as páginas estão na pasta raíz do site e de certa forma, deveriam ser exibidas como, por exemplo: - meusite.com/lojas/3 ou - meusite.com/produtos-3 ou meusite.com/lojas-3.html De fato queria apenas que as rules dessem certo, não importando muito o tipo da reescrita final. Poderia me dar mais alguma sugestão?
  5. T13

    2 ou mais RULES no ASP + WEB.CONFIG

    Galera, tudo jóia? Estou utilizando Web.Config + ASP CLASSICO para criação de urls amigáveis. Em minha página inicial, tenho 2 URLs com query.string que preciso tornar amigável e, consigo fazer isso já com o web.config, porém, apenas um dos links está funcionando com a rule que tenho. O outro está direcionando para a mesma página do primeiro link. Exemplo: Tenho em minha página inicial duas chamadas, sendo: 1 - PRODUTOS "produtos.asp?id=3" (URL amigável funcionando lisa, convertendo para "meusite.com/3") 2 - LOJAS "lojas.asp?idloja=4" (URL redirecionando para a URL de cima "meusite.com/3", ou seja, para a página de PRODUTOS e não para a de LOJAS) Como faço para que cada link seja apontado para a respectiva página? PRODUTOS para PRODUTOS e LOJAS para LOJAS?? Obrigado. <?xml version="1.0" encoding="UTF-8"?> <configuration> <system.webServer> <rewrite> <rules> <rule name="lojas" stopProcessing="true"> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <match url="^(.*)$" ignoreCase="true" /> <action type="Rewrite" url="lojas.asp?idloja={R:1}" appendQueryString="true" /> </rule> <rule name="produtos" stopProcessing="true"> <conditions> <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" /> <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" /> </conditions> <match url="^(.*)$" ignoreCase="true" /> <action type="Rewrite" url="produtos.asp?id={R:1}" appendQueryString="true" /> </rule> </rules> </rewrite> </system.webServer> </configuration>
  6. Boa Tarde Amigos. Tenho um link de produtos que pega os dados de um produto, vindo de uma variável numérica: pagina.asp?item=6 Já fiz o replace de forma a substituir valores vazios ou aspas simples que venham após o =, ou seja, se alguém digitar na URL do navegador: pagina.asp?item= ou pagina.asp?item=' Aí da tudo certo, vai para a página que eu quero. Porém, se alguém digitar aspas simples ou colocar uma letra no fim da URL no navegador: pagina.asp?item=6' pagina.asp?item=6a O ASP dá erro na expressão: Syntax error in string in query expression 'A.PAG = B.LA AND pagina=6''. Como faço para evitar esse problema? O replace funciona apenas para a aspas simples isolada mas não para qualquer coisa digitada que não seja número.
  7. Boa Tarde Amigos. Tenho um link de produtos que pega os dados de um produto, vindo de uma variável numérica: pagina.asp?item=6 Já fiz o replace de forma a substituir valores vazios ou aspas simples que venham após o =, ou seja, se alguém digitar na URL do navegador: pagina.asp?item= ou pagina.asp?item=' Aí da tudo certo, vai para a página que eu quero. Porém, se alguém digitar aspas simples ou colocar uma letra no fim da URL no navegador: pagina.asp?item=6' pagina.asp?item=6a O ASP dá erro na expressão: Syntax error in string in query expression 'A.PAG = B.LA AND pagina=6''. Como faço para evitar esse problema? O replace funciona apenas para a aspas simples isolada mas não para qualquer coisa digitada que não seja número.
  8. T13

    Loja Virtual Grátis? ASP Clássico

    Eu cheguei a testar as lojas desse grupo mas todas dão algum problema rs. Saberia dizer de alguma outra loja em ASP que possa ser utilizada para um pequeno negócio? Obrigado
  9. T13

    Loja Virtual Grátis? ASP Clássico

    Pessoal, tudo bem? Eu andei pesquisando e achei algumas lojas para baixar, porém a maioria vem com defeito, ou faltando código, etc. Estou gostando muito da virtuastore. A versão 3.0 até que rodou bem porém carece em muitos aspectos necessários para um e-commerce. Já a versão 6.3 me pareceu muito boa porém não encontro ela em nenhum lugar rodando o básico necessário. Existe alguma loja gratuita para download em ASP Clássico? Obrigado.
  10. Boa Tarde. Com base nas dicas postadas pelos amigos, dei uma pesquisada e então fiz alguns ajustes no código. Estamos quase lá. Atualmente consigo inserir o mesmo registro até 3 vezes normalmente, porém ainda não está limitando de acordo com a data (7 dias). O código modificado é: Obs: Estou usando Access como base de dados. Function pegaDataInicio() dia = day(now) mes = month(now) ano = year(now) pegaDataInicio = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano) End Function Function pegaDataFim() dia = day(now) - 6 mes = month(now) ano = year(now) pegaDataFim = CStr(dia) + "/" + CStr(mes) + "/" + CStr(ano) End Function session.lcid=1046 dim hora hora = now() cadastro = "select * from cadastros where nome1 = '"&(request.form("nome1"))&"' and nome2 = '"&(request.form("nome2"))&"' and datafim BETWEEN '" & pegaDataInicio & "' and '" & pegaDataFim & "'" set rs=conn.execute(cadastro) if RS.eof then else NumReg = 1 While Not RS.Eof NumReg = NumReg + 1 RS.MoveNext : Wend end if if NumReg < 4 then query3 = "insert into cadastros (nome1,nome2,data,datafim) values ('"&(request.form("nome1"))&"','"&(request.form("nome2"))&"','"&(hora)&"','"&(pegaDataFim)&"')" set recset=conn.execute(query3) else Response.Write "Não cadastra caso seja maior que 3 registros contendo os mesmos nomes e no intervalo do SQL." end if
  11. Ronaldo, Obrigado por responder. Ainda não consegui chegar à uma solução. Fiz a implementação utilizando o código informado por você mas as inserções não se restringem às 3 por semana, que realmente preciso. Dê uma olhada, por favor, no meu código: ## INÍCIO VARIÁVEIS ## dim DATA1 DATA1 = date() dim DATA2 DATA2 = date() + 7 session.lcid=1046 dim hora hora = date() ## FIM VARIÀVEIS ## cadastro = "select * from cadastros where nome1 = '"&(request.form("nome1"))&"' and nome2 = '"&(request.form("nome2"))&"' and data BETWEEN '" & DATA1 & "' and '" & DATA2 & "'" set rs=conn.execute(cadastro) Set RS=Server.CreateObject("ADODB.Recordset") RS.Open cadastro, objConn if RS.eof then else NumReg = 1 While Not RS.Eof NumReg = NumReg + 1 RS.MoveNext Wend end if if NumReg < 3 then query3 = "insert into cadastros (nome1,nome2,data) values ('"&(request.form("nome1"))&"','"&(request.form("nome2"))&"','"&(DATA1)&"')" set recset=conn.execute(query3) else Response.Write "Não cadastra caso seja maior que 3 registros contendo os mesmos nomes." end if
  12. Boa Tarde, meus caros amigos. Não sei se me expressei bem no título mas a minha dúvida é a seguinte: Tenho uma página HTML onde preencho 2 campos: "Nome 1" e "Nome 2". Ao enviar o formulário com os 2 campos preenchidos, são gravados no bando de dados ACCESS os registros nome 1, nome 2 e a data atual, ficando assim(exemplo): Registro 1: Fulano, Ciclano, 26/06/2015 Registro 2: Fulano, Ciclano, 27/06/2015 Registro 3: Fulano, Ciclano, 30/06/2015 Até aí, tudo lindo A dúvida é: Como fazer para que o ASP permita esse mesmo procedimento apenas 3 vezes por semana (a cada 7 dias)? Gostaria que na quarta tentativa de registro onde nome 1 e nome 2 são os mesmos informados nos 3 registos anteriores, o ASP barre essa quarta inserção dos dados se o número de dias for menor que 7 (uma semana). Desculpem por não conseguir me expressar com mais clareza, foi o máximo que consegui rs. Obrigado a todos.
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.