Titre: RESOLU Je sais pas où est l'erreur
Posté par: Trax le le 22-07-2003 a 17:36:59
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
|
Titre: Re:Je sais pas où est l'erreur
Posté par: Netah le le 22-07-2003 a 18:37:13
Petit malin... Tu n'avais pas plus long à me faire lire :P ?! :o
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 :P
Tu avais aussi 1 pb Javascript mais je sais plus où :P
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 :) |
Titre: Re:Je sais pas où est l'erreur
Posté par: Trax le le 23-07-2003 a 09:50:43
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.starwarsgalaxies.com (http://www.swg-fr.com]http://www.swg-fr.com[/url] et [url=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/ (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 (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
|
Titre: Re:[Résolu] Je sais pas où est l'erreur
Posté par: Netah le le 23-07-2003 a 10:08:43
Merci pour le code :P
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 ::) |
Forum-webmaster | Actionné par YaBB SE
© 2001-2003, YaBB SE Dev Team. Tous droits réservés.
|