Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Apr 2008
    Messaggi
    155

    pagina di statistiche errore variabile indefinita

    Ciao a tutti,
    tra gli script di asp qui su html.it ho trovato una pagina per fare delle statistiche delle pagine visitate.

    ho deciso di mettere la pagina nell'area riservata del sito in modo che solo chi vi ha accesso possa visualizzarli..

    la pagina di asp è la seguente:

    codice:
    <%@LANGUAGE = "VBSCRIPT" 
    @ENABLESESSIONSTATE = FALSE%>
    <% 
    Option Explicit
    Response.buffer = True
    Dim strDB
    '------------------If your site is hosted by another site then change your path in the DBQ value below i.e. in place of Server.MapPath("/SmartReferrer.mdb") type in Server.MapPath("/Your_site_path/SmartReferrer.mdb")-----------------
    
    
    strDB =  "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("mdb-database\SmartReferrer.mdb") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=25;FIL=MS Access;MaxBufferSize=512;PageTimeout=5"
    
    
    '------------------End of Database connection string -----------------
    %> 
     
    
    
    <% Response.Expires= -1500%>
     
    <HTML>
    <head>
    <title>Smart Referrer Admin</title>
    <META content="" name="Description">
    <META content="" name="Keywords">
    <META content="noindex" name="robots">
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <STYLE>
    #Activate {
    	LEFT: 111px; POSITION: absolute; TOP: 252px; VISIBILITY: hidden; Z-INDEX: 1
    }
    #Edit {
    	LEFT: 196px; POSITION: absolute; TOP: 252px; VISIBILITY: hidden; Z-INDEX: 1
    }
    #Delete {
    	LEFT: 280px; POSITION: absolute; TOP: 252px; VISIBILITY: hidden; Z-INDEX: 1
    }
    #Deactivate {
    	LEFT: 196px; POSITION: absolute; TOP: 252px; VISIBILITY: hidden; Z-INDEX: 1
    }
    </STYLE>
    <SCRIPT language=javascript>
    <!--
    window.onerror = null;
     var bName = navigator.appName;
     var bVer = parseInt(navigator.appVersion);
     var NS4 = (bName == "Netscape" && bVer >= 4);
     var IE4 = (bName == "Microsoft Internet Explorer" && bVer >= 4);
     var NS3 = (bName == "Netscape" && bVer < 4);
     var IE3 = (bName == "Microsoft Internet Explorer" && bVer < 4);
     var menuActive = 0
     var menuOn = 0
     var onLayer
     var timeOn = null// LAYER SWITCHING CODE
    if (NS4 || IE4) {
     if (navigator.appName == "Netscape"){
     layerStyleRef="layer.";
     layerRef="document.layers";
     styleSwitch="";
    layerVis="show";
    layerHid="hide";
     }else
    {
     layerStyleRef="layer.style.";
     layerRef="document.all";
     styleSwitch=".style";
    layerVis="visible";
    layerHid="hidden";
     }
    }
     
    // SHOW MENU
    function showLayer(layerName){
    if (NS4 || IE4) {
     if (timeOn != null) {
     clearTimeout(timeOn)
     hideLayer(onLayer)
     }
     if (NS4 || IE4) {
     eval(layerRef+'["'+layerName+'"]'+styleSwitch+'.visibility="'+layerVis+'"');
     } 
     onLayer = layerName
     }
    }// HIDE MENU
    function hideLayer(layerName){
     if (menuActive == 0) {
     if (NS4 || IE4) {
     eval(layerRef+'["'+layerName+'"]'+styleSwitch+'.visibility="'+layerHid+'"');
     }
     }
    }// TIMER FOR BUTTON MOUSE OUT
    function btnTimer() {
     timeOn = setTimeout("btnOut()",1000)
    }// BUTTON MOUSE OUT
    function btnOut(layerName) {
     if (menuActive == 0) {
     hideLayer(onLayer)
     }
    }// MENU MOUSE OVER 
    function menuOver(itemName) {
     clearTimeout(timeOn)
     menuActive = 1
    }// MENU MOUSE OUT 
    function menuOut(itemName) {
     menuActive = 0 
     timeOn = setTimeout("hideLayer(onLayer)", 400)
    
     }// SET BACKGROUND COLOR 
    function setBgColor(layer, color) {
      if (NS4)
        eval('document.all.'+layer+'.bgColor="'+color+'"');
      if (IE4)
        eval('document.all.'+layer+'.style.backgroundColor="'+color+'"');
    }
    // -->
    </SCRIPT>
    <script language = "Javascript">
    <!--
    
    function ValidateForm(){
    	var URL=frmSmartReferrerAdmin.txtURL.value
        	if ((URL==null)||(URL=="")){
    		alert("Please enter the monitored page URL")
    		frmSmartReferrerAdmin.txtURL.focus()
    		return false
    	}
    	return true
     }
    //-->
    </script>
    <style type="text/css">
    <!--
    .smartreflink {  font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color: #FFFFAE; text-decoration: none}
    a:link {  font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
    .arial {  font-family: Arial, Helvetica, sans-serif; font-size: 9pt; color: #000066}
    .title {
    	font-family: Arial, Helvetica, sans-serif;
    	font-size: 10pt;
    	font-weight: bold;
    	color: #006633
    }
    .subtitle {
    	font-family: Arial, Helvetica, sans-serif;
    	font-size: 10pt;
    	font-weight: bold;
    	color: #006633
    }
    .font {  font-family: Arial, Helvetica, sans-serif; font-size: 9pt}
    .smartreflinkBlack { font-family: Arial, Helvetica, sans-serif; font-size: 8pt; color: #660000}
    --> 
    </style>
    </head>
    <body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" marginheight="0" marginwidth="0" link="#003399" vlink="#003399" alink="#003399">
    
    ... (la pagina è troppo lunga x postarla..se serve la metto in + "risposte")
    
    </body>
    </HTML>
    la pagina funziona normalmente..aggiungo le pgine che voglio visualizzare e il codice mi restituisce tutto quello che mi interessa...

    il problema nasce quando inserisco le 2 righe di codice evidenziate in rosso..

    mi autentico nell'apposita login, poi clicco il link alla pagina interessata e mi restituisce questo errore:

    Microsoft VBScript runtime error '800a01f4'

    Variable is undefined: 'Session'

    /proteggi.asp, line 3

    non riesco a capire come mai, visto che ho usato lo stesso modus operandi per altre pagine che risiedono nell'area riservata..

    la pagina proteggi.asp è la seguente:
    codice:
    <%
    'L'utente è passato per una fase di login?
    if	(Session("Autenticato")<>"OK") then
    	'Se no lo mandiamo ad autenticarsi
    	Response.Redirect "login.asp?errore="&Server.URLEncode("La pagina richiesta appartiene ad una zona del sito riservata, prego autenticarsi")&"&paginaOriginale="&Request.ServerVariables("SCRIPT_NAME")
    else
    	'Se si, ha un livello appropriato?
    	if Session("livelloUtente") < livelloPagina then
    		Session.Abandon
    		Response.Redirect "login.asp?errore="&Server.URLEncode("La pagina richiesta necessita di un livello più alto di sicurezza, prego autenticarsi come altro utente abilitato")&"&paginaOriginale="&Request.ServerVariables("SCRIPT_NAME")
    	end if
    end if
    %>
    qualcuno mi sa aiutare?
    grazie
    ciao

  2. #2
    l'animale funziona secondo quello che gli hai detto.

    con

    @ENABLESESSIONSTATE=False

    gli dici di NON usare le sessioni. Appena le usi lui *ovviamente* si lamenta

  3. #3
    Utente di HTML.it
    Registrato dal
    Apr 2008
    Messaggi
    155
    azz non me ne sono accorto...ero + intento a capire se funzionava e se faceva al caso mio

    grazie mille optime


Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.