RESOLU Je sais pas où est l'erreur

Thématique RESOLU Je sais pas où est l'erreur, venez dialoguer avec de nombreux webmaster ! !

Forum webmaster


La Communauté Webmaster  forum rss
  Forum-webmaster
  Technique - programmation
  Asp / Asp.net / IIS (Modérateurs: Shain, Netah, Lilian, lauryv, ToToMaStEr)
  RESOLU Je sais pas où est l'erreur		 « Précédent Suivant »
Pages: [1] Descendre
Répondre    Aviser des réponses    Envoyer le sujet    Imprimer
  Auteur  Sujet: RESOLU Je sais pas où est l'erreur  (Lu 603 fois)
RESOLU Je sais pas où est l'erreur
« sur: le 22-07-2003 à 17:36:59 »
Trax
Membre récent
*

Hors-Ligne

Sexe: Male
Messages: 6



I'm not an animal !

Voir le Profil    WWW    E-Mail
Répondre avec citation

Je vais faire plaisir à Netah, je poste un peu sur le forum asp.
Bon le problème vient peut-être du javascript, mais je l'ai testé tout seul et il marche.

Voici le code:

Code:

<%@ LANGUAGE="VBScript" %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//FR" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<title>Screenshots Listing</title>
<script>
<!--
<%
dim folderPath
folderPath = "images"
%>
function popimg(image){
imgFolder = "<%= folderPath %>";
var objImg = new Image();
objImg.src = imgFolder + "/" + image;
img = objImg.src;
width = objImg.width;
height = objImg.height;
popup = window.open("","Zoom",'toolbar=no,width='+ width +',height='+ height +"'");

popup.document.write('<html><head>');
popup.document.write('<title>'+ image +'</title>');

popup.document.write('<script language='+'JavaScript'+'>');
popup.document.write('function fermer() { ');
popup.document.write('opener=self; ');
popup.document.write('self.close(); ');
popup.document.write('} ');
popup.document.write('</script>');

popup.document.write('</head>');

popup.document.write("<body leftmargin='0' topmargin='0'><a href='#'><img src="+ img +" onclick='fermer()' title='Cliquer pour fermer' border='0'></a></body></html>");
}
-->
</script>
</head>
<body bgcolor="#333333" text="#dddddd">

<% ListFolder(Server.MapPath(folderPath)) %>

<font tfamily="tfamily" face="Verdana, Arial, Helvetica, sans-serif">
<% sub ListFolder(path)

dim fso, folder, item, url, i

set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder(path)

Response.Write("<b>" & Ucase(folder.Name) & "</b> - " & folder.Files.Count & " fichiers, ")
Response.Write(Round(folder.Size / 1000) & " Ko total." & vbCrLf)
Response.Write("<br><br>"& vbCrLf)

response.write("<table width='100' border='1' cellspacing='2' cellpadding='0' bordercolor='#333333' align='center'>")
for each item in folder.Files
url = MapURL(item.path)

   if ( i = 0 ) then
     response.write("  <tr>"& vbCrLf)
   end if
   
   response.write("  <td bordercolor='#dddddd'><a href='#'><img alt='" & item.Name & "' border=0 height=113 width=150 src='" & folderPath & "/" & item.Name & "' onclick='popimg('" & item.Name & "')'></a></td>"& vbCrLf)
   i=i+1
   
   if ( i = 4 ) then
     response.write("  </tr>"& vbCrLf)
     i = 0
   end if
   
  next
response.write("</table>"& vbCrLf)
end sub

function MapURL(path)

dim rootPath, url

'Convert a physical file path to a URL for hypertext links.

rootPath = Server.MapPath("/")
url = Right(path, Len(path) - Len(rootPath))
MapURL = Replace(url, "", "/")

end function %>
</font>
</body>
</html>

Figurez-vous que cette page me donne une erreur à la ligne du </head>. Allez comprendre O_o .

M'enfin voilà j'en ai marre et je n'arrive pas à trouver où est l'erreur. Le script marchait bien jusqu'à ce que je veuille combiner le javascript popimg() et le listing d'un dossier en asp.

S'il vous plait un petit coup de main.

Merci à tous
« Dernière Édition: le 19-08-2003 à 13:46:04 par Netah » Rapporter au modérateur   Connecté
Size matters not. Look at me.
Judge me by my size, do you?
And well you should not.
For my ally is the Force.
And a powerful ally it is.
Re:Je sais pas où est l'erreur
« Répondre #1 sur: le 22-07-2003 à 18:37:13 »
Netah
Modérateur Global
*****

Hors-Ligne

Sexe: Male
Messages: 1243



ZoneB.org
netah_x@yahoo.com
Voir le Profil    WWW    E-Mail
Répondre avec citation

Petit malin... Tu n'avais pas plus long à me faire lire ?! 

Tu avais une petite erreur dans le code asp au moment de l'appel de la fonction javascript (en lien sur la photo): tu avais des simples quotes en trop qui étaient fermées par le nom du fichier appelé dans la fonction... J'espere que tu me suis
Tu avais aussi 1 pb Javascript mais je sais plus où

Code:

<%@ LANGUAGE="VBScript" %>
<!DOCTYPE html public "-//w3c//dtd html 4.01//fr" "http://www.w3.org/tr/html4/strict.dtd">
<HTML>
   <HEAD>
      <TITLE>Screenshots Listing</TITLE>
      <%
      dim folderPath
      folderPath = "img"
      %>
      <SCRIPT>
      <!--
      function popimg(image)
      {
         imgFolder = "<%= folderPath %>";
         var objImg = new Image();
         objImg.src = imgFolder + "/" + image;
         img = objImg.src;
         width = objImg.width;
         height = objImg.height;
   
         mpopup = window.open("","Zoom",'toolbar=no,width='+ width +',height='+ height +"'");
         mpopup.document.write('<html><head>');
           mpopup.document.write('<title>'+ image +'</title>');
           mpopup.document.write('<script language='+'JavaScript'+'>');
           mpopup.document.write('function fermer() { ');
             mpopup.document.write('opener=self; ');
             mpopup.document.write('self.close(); ');
           mpopup.document.write('}');
          mpopup.document.write('</script>');
         mpopup.document.write('</head>');
         mpopup.document.write("<body leftmargin='0' topmargin='0'><a href='#'><img src="+ img +" onclick='fermer()' title='Cliquer pour fermer' border='0'></a></body></html>");
      }
      -->
      </SCRIPT>
   </HEAD>
   <BODY bgcolor="#333333" text="#dddddd">
   <%
   ListFolder(Server.MapPath(folderPath))
   %>

   <FONT tfamily="tfamily" face="Verdana, Arial, Helvetica, sans-serif">
   <%
   sub ListFolder(path)
      dim fso, folder, item, url, i
      set fso = CreateObject("Scripting.FileSystemObject")
      set folder = fso.GetFolder(path)

      Response.Write("<b>" & Ucase(folder.Name) & "</b> - " & folder.Files.Count & " fichiers, ")
      Response.Write(Round(folder.Size / 1000) & " Ko total." & vbCrLf)
      Response.Write("<br><br>"& vbCrLf)

      response.write("<table width='100' border='1' cellspacing='2' cellpadding='0' bordercolor='#333333' align='center'>")
      for each item in folder.Files
         url = MapURL(item.path)
         if ( i = 0 ) then
            response.write("  <tr>"& vbCrLf)
         end if
           response.write("  <td bordercolor='#dddddd'><a href='#'><img alt='" & item.Name & "' border=0 height=113 width=150 src='" & folderPath & "/" & item.Name & "' onclick=popimg('" & item.Name & "')></a></td>"& vbCrLf)
         i=i+1
           if ( i = 4 ) then
            response.write("  </tr>"& vbCrLf)
            i = 0
         end if
        next
      response.write("</table>"& vbCrLf)
   end sub
   function MapURL(path)
      dim rootPath, url
      'Convert a physical file path to a URL for hypertext links.
      rootPath = Server.MapPath("/")
      url = Right(path, Len(path) - Len(rootPath))
      MapURL = Replace(url, "", "/")
   end function
   %>
   </FONT>
   </BODY>
</HTML>

A bientot j'espere

Rapporter au modérateur   Connecté
ZoneB.org - web-agency.biz - blog-webmaster.com
Re:Je sais pas où est l'erreur
« Répondre #2 sur: le 23-07-2003 à 09:50:43 »
Trax
Membre récent
*

Hors-Ligne

Sexe: Male
Messages: 6



I'm not an animal !

Voir le Profil    WWW    E-Mail
Répondre avec citation

Bon voilà,

Premièrement merci Netah.

Je poste ici la version définitive (enfin je me comprends). J'ai créé cette page pour afficher mes screenshots du jeu Starwars Galaxies http://www.swg-fr.com et http://www.starwarsgalaxies.com.

Comme je n'ai pas encore de "vrai" serveur asp avec tout plein de place dessus, je ne peux donc pas utiliser cette page puisque mes scrennshots sont sur mon compte free.fr. (http://ratattackz.free.fr/swg/)

Vous pouvez utiliser cette page comme bon vous semble. Comme je l'ai écrit en commentaire dans la page, je me suis aidé des scripts de Mike Hall (http://www.brainjar.com)et de dreamweaver-forum.net (oui je sais Netah, dreamweaver c'est mal).

Code:

<%@ LANGUAGE="VBScript" %>
<%
'*********************************************************
' D'après des scripts de Mike Hall http://www.brainjar.com
' D'après des scripts de http://www.dreamweaver-forum.net
' Adaptation Trax http://www.etrax.org
' Merci Netah http://www.zoneb.org
'*********************************************************
%>
<!DOCTYPE html public "-//w3c//dtd html 4.01//FR" "http://www.w3.org/tr/html4/strict.dtd">
<HTML>
  <HEAD>
      <TITLE>Screenshots Listing</TITLE>
      <script>
      /*
      A pWidgets Bit...
      website: www.pwidgets.com
      
      Set Values...
      fade start, in/out
      opacity=35 -- this equals the fade to start
      this,100,60,30  -- Fade, Rate, Delta just play with to find what you like.
      */
      
      pWidgetsFOID = new Object();
      pWidgetsFTID = new Object();
      
      function pWidgets(object, destOp, rate, delta){
      if (!document.all)
      return
         if (object != "[object]"){
            setTimeout("pWidgets("+object+","+destOp+","+rate+","+delta+")",0);
            return;
         }
            
         clearTimeout(pWidgetsFTID[object.sourceIndex]);
         
         diff = destOp-object.filters.alpha.opacity;
         direction = 1;
         if (object.filters.alpha.opacity > destOp){
            direction = -1;
         }
         delta=Math.min(direction*diff,delta);
         object.filters.alpha.opacity+=direction*delta;
      
         if (object.filters.alpha.opacity != destOp){
            pWidgetsFOID[object.sourceIndex]=object;
            pWidgetsFTID[object.sourceIndex]=setTimeout("pWidgets(pWidgetsFOID["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
         }
      }
      </script>
    
      <%
      dim folderPath
     '***********************************
     ' changez le répertoire à lister ici
     '***********************************
      folderPath = "moteur/photos"
      %>
    
      <SCRIPT>
      <!--
      function popimg(image)
      {
        imgFolder = "<%= folderPath %>";
        var objImg = new Image();
        objImg.src = imgFolder + "/" + image;
        img = objImg.src;
        width = objImg.width;
        height = objImg.height;
 
        mpopup = window.open("","Zoom",'toolbar=no,width='+ width +',height='+ height +"'");
        mpopup.document.write('<html><head>');
          mpopup.document.write('<title>'+ image +'</title>');
          mpopup.document.write('<script language='+'JavaScript'+'>');
          mpopup.document.write('function fermer() { ');
            mpopup.document.write('opener=self; ');
            mpopup.document.write('self.close(); ');
          mpopup.document.write('}');
          mpopup.document.write('</'+'script'+'>');
        mpopup.document.write('</head>');
        mpopup.document.write("<body leftmargin='0' topmargin='0'>");
        mpopup.document.write("<table width='100%' border='0' cellspacing='0' cellpadding='0' height='100%'>");
        mpopup.document.write("<tr>");
         mpopup.document.write("<td><div align='center'><a href='#'><img src="+ img +" onclick='fermer()' title='Cliquer pour fermer' border='0'></a></div></td>");
           mpopup.document.write("</tr></table></body></html>");
      }
      -->
   </SCRIPT>
      <style type="text/css">
      <!--
      .souris {  cursor: hand}
      -->
      </style>
  </HEAD>
  <BODY bgcolor="#333333" text="#dddddd">
  <%
  ListFolder(Server.MapPath(folderPath))
  %>

  <FONT tfamily="tfamily" face="Verdana, Arial, Helvetica, sans-serif">
  <%
  sub ListFolder(path)
      dim fso, folder, item, url, i
      set fso = CreateObject("Scripting.FileSystemObject")
      set folder = fso.GetFolder(path)

      Response.Write("<b>" & Ucase(folder.Name) & "</b> - " & folder.Files.Count & " fichiers, ")
      Response.Write(Round(folder.Size / 1000) & " Ko total." & vbCrLf)
      Response.Write("<br><br>"& vbCrLf)

      response.write("<table width='100' border='1' cellspacing='2' cellpadding='0' bordercolor='#333333' align='center'>")
      for each item in folder.Files
        url = MapURL(item.path)
        if ( i = 0 ) then
            response.write("  <tr>"& vbCrLf)
        end if
          response.write("  <td bordercolor='#dddddd'><img class='souris' alt='" & item.Name & "' border=0 height=113 width=150 src='" & folderPath & "/" & item.Name & "' onclick=popimg('" & item.Name & "') style='filter:alpha(opacity=35)' onmouseover='pWidgets(this,100,60,30)' onmouseout='pWidgets(this,20,60,30)'></a></td>"& vbCrLf)
        i=i+1
          if ( i = 4 ) then
            response.write("  </tr>"& vbCrLf)
            i = 0
        end if
        next
      response.write("</table>"& vbCrLf)
  end sub
  function MapURL(path)
      dim rootPath, url
      'Convert a physical file path to a URL for hypertext links.
      rootPath = Server.MapPath("/")
      url = Right(path, Len(path) - Len(rootPath))
      MapURL = Replace(url, "", "/")
  end function
  %>
  </FONT>
  </BODY>
</HTML>



Voilà à bientôt
« Dernière Édition: le 23-07-2003 à 13:40:51 par Trax » Rapporter au modérateur   Connecté
Size matters not. Look at me.
Judge me by my size, do you?
And well you should not.
For my ally is the Force.
And a powerful ally it is.
Re:[Résolu] Je sais pas où est l'erreur
« Répondre #3 sur: le 23-07-2003 à 10:08:43 »
Netah
Modérateur Global
*****

Hors-Ligne

Sexe: Male
Messages: 1243



ZoneB.org
netah_x@yahoo.com
Voir le Profil    WWW    E-Mail
Répondre avec citation

Merci pour le code

Et oui dreamweaver c pas bien mais je l'avais compris rien qu'à la manière dont ton code était indenté et parce que si tu avais utilisé Visual Studio tu n'aurais pas posté le message.
Et oui, Visual Studio debug meme dans l'interface et il t'aurait dit un truc genre:
"Error: duplicate HTML, HEAD or BODY. " Ce qui t'aurait permis de trouver la première erreur.
Ensuite, en testant, le navigateur t'aurait demandé si tu veux déboguer et tu aurais dit oui pour te rendre compte de l'erreur des quotes.
Bref.... Je sais que tu préfères les couleurs de dream 

Rapporter au modérateur   Connecté
ZoneB.org - web-agency.biz - blog-webmaster.com
Répondre    Aviser des réponses    Envoyer le sujet    Imprimer
Pages: [1] Monter
« Précédent Suivant »
Sauter à: 

Votre statut : Invité
Vous devez être membre pour participer.
 
 
Le Sénat réclame une taxe sur les revenus
Yahoo en veut toujours plus
Un spammeur condamnée à 30 mois de prison
Google plaide pour un Yahoo indépendant
Jeux gratuits chez Yahoo avec de la publicité
Interviews Webmasters
Mise à jour du blog de Forum-webmaster !
Une rubrique E-commerce
 
 
 
 

Choisissez votre forum :
Discussions générales
Avis ?
A propos de Forum-webmaster
Présentation de services web
Actualité webmaster
Interviews Webmasters
HTML / CSS / XHTML
Javascript / DOM / Ajax
PHP / MySQL
Asp / Asp.net / IIS
Langages de programmation divers
Webdesign
Infographie
Flash / Director
Hébergement
Référencement
E-commerce
Le droit sur internet
Publicité - Affiliation
Formation[s]
Offres d'emploi
Demandes d'emploi
Recrutement bénévole
L'aparté ...
Matériel / Logiciel
Présentation
 
Logo du forum du webmaster

Copyright Skalpel 2008 - Tous droits réservés

creation de site strasbourg