Jump to content
alecarnero

Login obrigatorio em ASP classic

Recommended Posts

Eu fiz uma pagina de login SiteMaster.asp trabalha com uma pagina verify.asp , coloque ela como documento padrao , problema que sim

o usuario ja tem gravada alguma pagina de antes ele consegue accesar sem pasar pela login page

 

http://localhost/teste/barra.asp

 

quem souber o nome das paginas consegue acceso direito  

 

que tenho que agregar para somente accese qualquer pagina quem passo pelo login?

 

 

Obrigado por qualquer orientaçao  

 

Alejandro

 

 

 

 

 

 

 

 

 

 

Share this post


Link to post
Share on other sites

Alejandro

 

Estive lidando com um painel administrativo e também estava preocupado quanto a isso, uma solução que resolveu foi

 

Com cookies

Dim check,refe,testa

'cookies criado na página que recebe o formulário do login 

check = Request.Cookies("check") 'Aqui recupera o cookies criado na validação

refe = Request("HTTP_REFERER") 'resgata a referencia de onde veio a página

variavel = "testelogin." 'aqui você coloca uma parte do seu site que identifique ele eu coloquei parte do dominio ex: www.testelogin.com.br

IF check = "TRUE" AND Instr(refe, variavel) <> 0 Then 'verifica se o cookies é valido e a página de origem é do site
		If Request("HTTP_REFERER") = "" Then  'caso o usuario digite ela a referencia é vazia e ele é redirecionado para outra página
			response.Redirect("http://www.google.com.br/")
	    	Response.End
		End If
Else 'Cookies invalio ou referencia invalida também redireciona
			response.Redirect("http://www.google.com.br/")
End if

 

Sem Cookies

If Request("HTTP_REFERER") = "" Then  'caso o usuario digite a pagina para acesso, a referencia é vazia ele redireciona (não é muito segura, mas já evita acesso de curioso)
			response.Redirect("http://www.google.com.br/")
	    	Response.End
End If

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By s3c0
      Prezados,
       
      Estou precisando consumir um JSON em ASP Classic, porém nunca me deparei com um resultado JSON desta maneira.
      {"Generation":{"@attributes":{"version":"3.3.0","timestamp":"1554501899"}},"Options":{"@attributes":{"tempFormat":"c","byteFormat":"auto_binary","datetimeFormat":"utc","refresh":"60000","threshold":"90"}},"Vitals":{"@attributes":{"Hostname":"WIN2K","IPAddr":"127.0.0.1","Kernel":"6.1.7600 (64-bit)","Distro":"Microsoft Windows Server 2008 R2 Enterprise","Distroicon":"WinVista.png","Uptime":"381618","Users":"0","LoadAvg":"","CPULoad":"0","SysLang":"Portuguese - Brazil (1046)","CodePage":"windows-1252","Processes":"58","OS":"WINNT"}},"Network":{},"Hardware":{"@attributes":{"Name":"VMware, Inc. VMware Virtual Platform"},"PCI":{"Device":[{"@attributes":{"Name":"PCI standard PCI-to-PCI bridge","Count":"2"}},{"@attributes":{"Name":"PCI Express standard Root Port","Count":"32"}},{"@attributes":{"Name":"Standard AHCI 1.0 Serial ATA Controller","Manufacturer":"Standard AHCI 1.0 Serial ATA Controller"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #2","Manufacturer":"Intel"}},{"@attributes":{"Name":"Intel(R) PRO\/1000 MT Network Connection #3","Manufacturer":"Intel"}},{"@attributes":{"Name":"LSI Adapter, SAS 3000 series, 8-port with 1068","Manufacturer":"LSI"}},{"@attributes":{"Name":"Intel 82371AB\/EB PCI to ISA bridge (ISA mode)","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware SVGA 3D","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel(R) 82371AB\/EB PCI Bus Master IDE Controller","Manufacturer":"Intel"}},{"@attributes":{"Name":"VMware VMCI Bus Device","Manufacturer":"VMware, Inc."}},{"@attributes":{"Name":"Intel 82443BX Pentium(R) II Processor to PCI Bridge","Manufacturer":"Intel"}}]},"IDE":{"Device":{"@attributes":{"Name":"NECVMWar VMware SATA CD00 ATA Device"}}},"SCSI":{"Device":{"@attributes":{"Name":"VMware Virtual disk SCSI Disk Device","Capacity":"128849011200"}}},"CPU":{"CpuCore":[{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}},{"@attributes":{"Model":"Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz","CpuSpeed":"3400","Cache":"0"}}]}},"Memory":{"@attributes":{"Free":"1575329792","Used":"2719170560","Total":"4294500352","Percent":"63"},"Swap":{"@attributes":{"Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24"},"Mount":{"@attributes":{"MountPointID":"1","FSType":"swap","Name":"SWAP","Free":"2833252352","Used":"900726784","Total":"3733979136","Percent":"24","MountPoint":"C:\\pagefile.sys"}}}},"FileSystem":{"Mount":[{"@attributes":{"MountPointID":"1","FSType":"","Name":"Removable Disk (3 1\/2 in.)","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"A:"}},{"@attributes":{"MountPointID":"2","FSType":"NTFS","Name":"Local Disk","Free":"16396288","Used":"128725663744","Total":"128742060032","Percent":"100","MountPoint":"C:"}},{"@attributes":{"MountPointID":"3","FSType":"","Name":"Compact Disc","Free":"0","Used":"0","Total":"0","Percent":"0","MountPoint":"D:"}}]},"MBInfo":{},"UPSInfo":{},"Plugins":{},"Errors":{}} Preciso pegar alguns valores desse resultado.
       
      Esses valores são CPULoad, Memory e Hard Disk.
       
      oJSON.loadJSON("http://127.0.0.1/xml.php?plugin=complete&json") 'Loop through collection For Each dados In oJSON.data("Vitals") Set this = oJSON.data("Vitals").item(dados) processador = this.item("CPULoad") Next For Each dados In oJSON.data("Memory") Set this = oJSON.data("Memory").item(dados) memoria = this.item("Total") Next For Each dados In oJSON.data("FileSystem") Set this = oJSON.data("FileSystem").item(dados) if this.item("MountPointID") = "2" then hd = this.item("Percent") end if Next  
      Tentei de algumas formas, mas sem sucesso.
       
      Alguém teria alguma idéia de como posso pegar esses valores?
       
      Agradeço a atenção de todos.
    • By s3c0
      Prezados,
       
      boa noite. Estou precisando de um help!
       
      possuo um script que retorna o seguinte XML:
       
      <tns:phpsysinfo xmlns:tns="http://phpsysinfo.sourceforge.net/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xsi:schemaLocation="http://phpsysinfo.sourceforge.net/ phpsysinfo3.xsd"> <Generation version="3.3.0" timestamp="1554324372"/> <Options tempFormat="c" byteFormat="auto_binary" datetimeFormat="utc" refresh="60000" threshold="90"/> <Vitals Hostname="WIN" IPAddr="127.0.0.1" Kernel="6.1.7600 (64-bit)" Distro="Microsoft Windows Server 2008 R2 Enterprise" Distroicon="WinVista.png" Uptime="204091" Users="0" LoadAvg="" CPULoad="0" SysLang="Portuguese - Brazil (1046)" CodePage="windows-1252" Processes="56" OS="WINNT"/> <Network/> <Hardware Name="VMware, Inc. VMware Virtual Platform"> <PCI> <Device Name="PCI standard PCI-to-PCI bridge" Count="2"/> <Device Name="PCI Express standard Root Port" Count="32"/> <Device Name="Standard AHCI 1.0 Serial ATA Controller" Manufacturer="Standard AHCI 1.0 Serial ATA Controller"/> <Device Name="Intel(R) PRO/1000 MT Network Connection" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #2" Manufacturer="Intel"/> <Device Name="Intel(R) PRO/1000 MT Network Connection #3" Manufacturer="Intel"/> <Device Name="LSI Adapter, SAS 3000 series, 8-port with 1068" Manufacturer="LSI"/> <Device Name="Intel 82371AB/EB PCI to ISA bridge (ISA mode)" Manufacturer="Intel"/> <Device Name="VMware SVGA 3D" Manufacturer="VMware, Inc."/> <Device Name="Intel(R) 82371AB/EB PCI Bus Master IDE Controller" Manufacturer="Intel"/> <Device Name="VMware VMCI Bus Device" Manufacturer="VMware, Inc."/> <Device Name="Intel 82443BX Pentium(R) II Processor to PCI Bridge" Manufacturer="Intel"/> </PCI> <IDE> <Device Name="NECVMWar VMware SATA CD00 ATA Device"/> </IDE> <SCSI> <Device Name="VMware Virtual disk SCSI Disk Device" Capacity="128849011200"/> </SCSI> <CPU> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> <CpuCore Model="Intel(R) Xeon(R) CPU E3-1231 v3 @ 3.40GHz" CpuSpeed="3400" Cache="0"/> </CPU> </Hardware> <Memory Free="1720385536" Used="2574114816" Total="4294500352" Percent="60"> <Swap Free="3048210432" Used="685768704" Total="3733979136" Percent="18"> <Mount MountPointID="1" FSType="swap" Name="SWAP" Free="3048210432" Used="685768704" Total="3733979136" Percent="18" MountPoint="C:\pagefile.sys"/> </Swap> </Memory> <FileSystem> <Mount MountPointID="1" FSType="" Name="Removable Disk (3 1/2 in.)" Free="0" Used="0" Total="0" Percent="0" MountPoint="A:"/> <Mount MountPointID="2" FSType="NTFS" Name="Local Disk" Free="732983296" Used="128009076736" Total="128742060032" Percent="99" MountPoint="C:"/> <Mount MountPointID="3" FSType="" Name="Compact Disc" Free="0" Used="0" Total="0" Percent="0" MountPoint="D:"/> </FileSystem> <MBInfo/> <UPSInfo/> <Plugins/> <Errors/> </tns:phpsysinfo> tenho o seguinte código em ASP:
       
      <% url_server = "http://127.0.0.1/xml.php?plugin=complete" Set xmlhttp = Server.CreateObject("Microsoft.XMLHTTP") Call xmlhttp.open("GET", url_server, false) Call xmlhttp.send() strRetorno = xmlhttp.responseText Set oXmlDom = Server.CreateObject("Msxml2.DOMDocument.3.0") oXmlDom.loadXML strRetorno Set oNodes = oXmlDom.selectNodes("tns:phpsysinfo/FileSystem/Mount") for each oNode in oNodes response.write "Cache " & oNode.selectSingleNode("Percent").Text next Set oXmlDom = Nothing %> ao tentar trazer alguns valores, sempre me retorna o seguinte erro:
       
      Erro de tempo de execução do Microsoft VBScript erro '800a01a8'
      Objeto necessário: 'oNode.selectSingleNode(...)'
       
      Preciso trazer os valores de:
      CPU
      Memory
      HD
       
      Alguém teria alguma dica de como consigo resolver?
       
      Agradeço a atenção de todos.
    • By laumello12
      Galera ajudinha
      Como faço para consumir um web service pronto em um projeto. Preciso só que ele busque no web service e traga na web 
      HELP
    • By mmalainho
      Tenho um site em ASP nas línguas Português, Espanhol e Romeno.
      O serviço de hospedagem alterou o MYSQL ODBC para a versão 5.3 ANSI e agora não consigo fazer o update de texto em romeno (por exemplo Lecția 8 - Îmbunătățirea confortului mișcării corpului - Amortizarea )na base dados através de um formulário HTML.
       
      Tenho uma conexão para listar tudo sem problemas em todas as línguas mas fazer o insert/update não funciona em nenhuma das línguas com palavras acentuadas.
       
      conn.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3; charset=utf8; "

      Já experimentei retirar  charset=utf8; e assim consigo inserir/atualizar em português e espanhol, mas Romeno não.
      conniu.ConnectionString="DRIVER={MySQL ODBC 5.3 ANSI Driver}; SERVER="&srv&"; DATABASE="&bd&"; UID="&uid&";PASSWORD="&pws&";PORT="&port&"; OPTION=3;"
         
       
      Versão do MySQL Versão do servidor: 5.1.73-community
      Charset: utf8_general_ci
      Tabela está também com utf8_general_ci
       
      Alguma sugestão ficaria muito grato
       
    • By DaniellyNelly
      Olá amigos, 
      Preciso muito da ajuda de vocês, sou nova tanto aqui quanto nessa área e preciso de uma luz pra resolver esse pequeno probleminha.
      O código a seguir esta me dando este seguinte erro: 
      erro '80020009'
      /smart/bridge/carne.asp, linha 106
      Código:
       
      <%
          dim rsLancamento
          sql = "select * from vw_lancamento where id_parceiro="&request("id_parceiro")&" and tp_lancamento=1 and id_situacao_lancamento=1 order by dt_vencimento asc"
          set rsLancamento = GetRS(sql)
          
          dim rsParceiro
          sql = "select * from parceiro where id_parceiro="&request("id_parceiro")
          set rsParceiro = GetRS(sql)
          
          dim rsMatricula
          sql = "select * from matricula where id_aluno="&request("id_parceiro")
          set rsMatricula = GetRS(sql)
          
          dim rsCurso
          sql = "select * from curso where id_curso="&rsMatricula("id_curso")
          set rsCurso = GetRS(sql)
          
          %>
      </head>
      <body>
      <div style="width:80%; margin-left:10%;"><!--#include file = "topofixo.asp" --></div>
      <div id="CARNE">
      <div id="print" align="center"><input type="button" name="imprimir" value="Imprimir" onClick="window.print();"></div>
      <div id="printable">
          <DIV ID="TOPO">
          
          <p>ALUNO: <%= rsParceiro("nome")%></p>
          <p>CPF: <%= rsParceiro("CPF")%></p>
          <p>ENDERE&Ccedil;O: <%= rsParceiro("endereco")%> </p>
          <p>BAIRRO: <%= rsParceiro("bairro")%> </p>
          <p>CURSO: <%= rsCurso("ds_curso")%></p>
          <p>ANO: <%=year(now)%></p>
          
          </DIV>
          
          <%if rsLancamento.eof then%>
          
          <p align="center">SEM LANÇAMENTOS CADASTRADOS</p>
          
          <%else%>
        <%dim cont%>
          <%do while not rsLancamento.eof%>
        <%cont = cont + 1%>
        <div id="c_1" style="BORDER-LEFT:dotted 1px #000;">
        
        <p style="float:left; margin:0;">RECIBO DO CLIENTE</p>
        
        <p align="center" CLASS="PARCELA"><%=cont%></p>
        
        <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p>
        <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p>
        <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p>
        <p class="c_t">VALOR PAGO: </p>
        <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p>
          
          </div>
            <div id="c_1">
        
        <p style="float:left; margin:0;">&nbsp;</p>
        
        <p align="center" CLASS="PARCELA"><%=cont%></p>
        
        <p class="c_t">CLIENTE: <%= rsParceiro("respfinan")%></p>
        <p class="c_t">VENCIMENTO: <%=rsLancamento("dt_vencimento")%></p>
        <p class="c_t">VALOR A PAGAR: R$<%=formatnumber(rsLancamento("vr_curso"),2)%></p>
        <p class="c_t">VALOR PAGO: </p>
        <p class="c_t">AUTENTICA&Ccedil;&Atilde;O: <%=rsLancamento("id_lancamento")%></p>
          
          </div>
          <%rsLancamento.movenext 
          loop%>   <%end if%></div>
       
      Se alguém puder ajudar ficarei eternamente grata.
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.