Ir para conteúdo
Fórum Script Brasil

-#Alea#-

Membros
  • Total de itens

    244
  • Registro em

  • Última visita

Tudo que -#Alea#- postou

  1. Não entendi muito bem, mas você quer puxar para seu site os post do blog? ta pensando em usar como sistema de notícias? Olha já tentou usar IFRAME?
  2. PAGINA DE LOGIN <% if Request.QueryString("erro") <> "" then Response.Write "<span class=mensagem>Login Inválido!</span>" end if%> </p> <form name="form1" method="post" action="validalogin.asp"> <table width="234" border="0" align="center" bordercolor="#666666" class="selecao"> <tr> <td width="91"><span class="style8">Login:</span></td> <td width="143"><input name="login" type="text" id="login"> </td> </tr> <tr> <td><span class="style8">Senha:</span></td> <td><input name="senha" type="password" id="senha"></td> </tr> <tr> <td colspan="2"><div align="center" class="style6"> <input type="submit" name="button" id="button" value=" Entrar "> <input type="hidden" name="enviando" value="sim"> </div></td> </tr> </table> </form> PAGINA QUE VALIDA O LOGIN - validalogin.asp <% 'PRIMEIRO FAÇA SUA CONEXAO COM BANCO APOS SIGUA O COD. ABAIXO Set RecSet = Server.CreateObject("adodb.recordset") dim login dim senha login = request.form("login") senha = request.form("senha") 'evitando sql inject segurança. login = replace(login,"'","''") login = replace(login,"#","''") login = replace(login,"$","''") login = replace(login,"%","''") login = replace(login,"¨","''") login = replace(login,"&","''") login = replace(login,"'or'1'='1'","''") login = replace(login,"1=1","''") login = replace(login,"--","''") login = replace(login,"insert","''") login = replace(login,"drop","''") login = replace(login,"delet","''") login = replace(login,"xp_","''") login = replace(login,"select","''") login = replace(login,"*","''") senha = replace(senha,"'","''") senha = replace(senha,"#","''") senha = replace(senha,"$","''") senha = replace(senha,"%","''") senha = replace(senha,"¨","''") senha = replace(senha,"&","''") senha = replace(senha,"'or'1'='1'","''") senha = replace(senha,"1=1","''") senha = replace(senha,"--","''") senha = replace(senha,"insert","''") senha = replace(senha,"drop","''") senha = replace(senha,"delet","''") senha = replace(senha,"xp_","''") senha = replace(senha,"select","''") senha = replace(senha,"*","''") Recset.open "select * from usuario where login ='"&login&"' and senha ='"&senha&"'", conn if not Recset.eof then 'encontrou o registro procurado session("usuario") = Recset("login") Session("Status") = "Logado" Session("corretor") = Recset("id") Response.Redirect("index.asp") else Session("Status")= "Invalido" Response.Redirect("login.asp?erro=invalido") end if %> Cada página que é restrita colocar o seguinte código <% if Session("usuario")="" then%> <!--#include file="login.asp"--> <%Response.End End if%>
  3. Carregar em frames ou iframe Adeus Otimização. No meu entender só tem desvantagens.
  4. Coloca seu menu dentro de uma div e essa sim tu centraliza. Exemplo. #tudo{width:1000px; height:auto; margin-left:auto; /* Para ele centralizar uzar assim*/ margin-right:auto; /* Para ele centralizar uzar assim */ } No Html <div id="tudo"> Cole seu menu aqui </div>
  5. <input type="text" style="text-align:center" value="testando" />
  6. faz uma class para essa nova tabela. .table_2 {width:100px;} <table class="table_2>
  7. no seu comando width está = e na verdade era para ser : width=250px; (errado) width:250px; (correto)
  8. -#Alea#-

    Formato de horario

    No access tem que colocar o formato para "Short Time" (meu access é em inglês) é a última opção. Acredito que isso resolva seu problema.
  9. Não posso formatar o código seu por falta de tempo, mas tenho usado assim, coloquei valores reais, mas você pode carregar por uma variavel, lembre de sempre lipar os valores ,(virgulas) e .(pontos) if request.QueryString("acao")="atualizar" then quantidade = request.form("quantidade") total = 1960 * quantidade session("valor_total")=total session("quantidade")=quantidade session("valor")= formatnumber((session("frete") + session("valor_total")),2) end if if request.QueryString("acao")="frete" then url_correios = "http://ws.correios.com.br/calculador/CalcPrecoPrazo.aspx?nCdEmpresa=&sDsSenha=&sCepOrigem=92120030&sCepDestino="&request.form("cepdestino")&"&nVlPeso=1&nCdFormato=1&nVlComprimento=25&nVlAltura=5&nVlLargura=5&sCdMaoPropria=n&nVlValorDeclarado=0&sCdAvisoRecebimento=S&nCdServico="&request.form("frete_tipo")&"&nVlDiametro=5&StrRetorno=xml" session("cep") = request.Form("cepdestino") if request.form("frete_tipo") = "41106" then session("frete_tipo") = "PAC Correiros" else session("frete_tipo") = "SEDEX" end if Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") objXMLHTTP.open "GET", url_correios,false objXMLHTTP.send "" ValorBox = objXMLHTTP.responseText set objXMLHTTP = nothing set objXMLHTTP = nothing Valor = InStr(ValorBox,"Valor") ValorF = MID(ValorBox,Valor+6,6) ValorF = Replace(ValorF,"<","") ValorF = Replace(ValorF,",",".") frete_total = ValorF frete_total = replace(frete_total,".",",") session("frete") = frete_total if request.form("frete_tipo") = "40010" then session("frete_tipo") = "Sedex" else session("frete_tipo") = "PAC Correios" end if session("valor")= formatnumber((frete_total + session("valor_total")),2) end if
  10. -#Alea#-

    Formato de horario

    que banco de dados você está usando?
  11. Usa esse codigo abaixo na primeira linha de suas páginas e use sempre UTF-8. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Inclusive nos formulários que salva. Agora se seu banco já está todo cadastrado vai complicar.
  12. A primeira linha do seu código HTML deve ser essa (acima de tudo). <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Usar UTF-8 Isso ajudará também no cadastro a banco de dados.
  13. Tenta assim SQLString = "select * from events where EventDated_1 = #"&EventDated_1&"#"
  14. Onde tu está carregando as Session?
  15. -#Alea#-

    Contador de vistas

    Quando sair do site tem que abandonar e zerar a session.
  16. Arruma as medidas das tabelas internas estão susperiores a da tabela pai delas.
  17. Usa o lightbox. e javascript. http://www.huddletogether.com/projects/lightbox2/
  18. Manda ele atualizar o IE para uma versão mais nova.
  19. Se '"&NodeID&"' é numérico no banco de dados não se usa aspas simples para declarar ele no sql. O certo seria assim. "&NodeID&"
  20. Olá, Tenho um sistema que busca vários produtos e foi criado um botão Adicionar a orçamento que é um carrinho. Mas eu queria que quando clica-se neste botão ele salva-se automático sem sair da página e lançasse uma mensagem em JS dizendo que foi salvo adicionado com sucesso. Alguém já fez isso, teria alguma outra alternativa alem de JS? Obrigado.
  21. -#Alea#-

    loop dentro de loop

    como assim apenas uma? digamos que a pergunta tenha 4 respostas tu quer mostrar somente a primeira? Att
  22. -#Alea#-

    loop dentro de loop

    <% Set rstemp = Server.CreateObject("ADODB.Recordset") Set rstemp.ActiveConnection = con str="SELECT * FROM site WHERE item='dúvidas' order by pergunta" rstemp.Open str registro=0 perg = rstemp("pergunta") 'AQUI ELE DEVERIA PEGAR ID se sua tabela pergunta tem relacionamento com a tabela respostas While Not rstemp.EOF Set rstemp1 = Server.CreateObject("ADODB.Recordset") Set rstemp1.ActiveConnection = con str1="SELECT * FROM site WHERE pergunta='"&perg&"' order by id" rstemp1.Open str1 Response.write "<dt><p>" & rstemp("pergunta") & "</p></dt>" Response.write "<dd>" do while not rstemp1.eof Response.write rstemp1("texto") rstemp1.MoveNext loop rstemp1.close set rstemp1 = nothing Response.write "</dd>" registro = registro +1 rstemp.MoveNext Wend %>
×
×
  • Criar Novo...