Bonjour,
Je suis débutant en ASP et je n'ai pas vraiment trouvé un titre reflétant véritablement mon problème.
Voici mon erreur :
1 2 3
| File not found
/IntraGDC/GDC_Reporting/visibilite.asp, line 13 |
Or voici ce qu'il y a ligne 13 (en souligné/gras)
if not isnull(Request.QueryString("ficsupp"))then
Response.Write(Request.QueryString("ficsupp"))
FSO.deleteFile(dir&"/"&Request.QueryString("ficsupp"))
end if
Et voici m'on URL:
http://............../visibilite.asp?folder=repertory
La suppression des fichiers à l'air de fonctionner.
Le problème c'est que je n'arrive plus a lister mon répertoire a cause de cette ligne 13.
Si j'enleve le code de la ligne 13, le changement de répertoire fonctionne bien.
je poste également l'intégralité de monde si (on ne sais jamais le problème est ailleur)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86
| <% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject")
if not isnull(Request.QueryString("folder")) or Request.QueryString("folder")<>"" then
directory = "data/" & Request.QueryString("folder")
dir = Server.MapPath(Server.HTMLEncode(directory))
else
directory ="data/"
dir = Server.MapPath(directory)
end if
if not isnull(Request.QueryString("ficsupp"))then
Response.Write(Request.QueryString("ficsupp"))
FSO.deleteFile(dir&"/"&Request.QueryString("ficsupp"))
end if
set foldPt = FSO.GetFolder(dir)
set fic = foldPt.Files
set subfold = foldPt.SubFolders
%>
<html>
<head>
<link rel="stylesheet" type="text/css" href= "style.css">
</head>
<body bgcolor="#FFFFFF">
<center>
<a href="./index.html"><img src="./img/gdc1.jpg"/></a>
</center>
<hr color="black"/>
<b><% Response.Write(Server.HTMLEncode(directory)) %></b>
<hr color="black"/>
<table cellpadding="2" cellspacing="2">
<% for each d in subfold %>
<tr>
<td><img src="img/icones/ofolder.gif"/></td>
<%if isnull(Request.QueryString("folder")) or Request.QueryString("folder")="" then %>
<td><a href="visibilite.asp?folder=<%=Request.QueryString("folder")&d.name%>"><%=d.name%></a></td>
<%else%>
<td><a href="visibilite.asp?folder=<%=Request.QueryString("folder")&"/"&d.name%>"><%=d.name%></a></td>
<%end if%>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><i><font color="#3366FF"><%=d.type%></font></i></td>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><i><font color="#FF9900"><%=d.size/1000%>Ko</font></i></td>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><a href="./data/<%=d.name%>"><img src="img/icones/no.gif" border="0"/></a></td>
<td><a href="visibilite.asp?folder=<%=d.name%>"><img src="img/icones/icone_download.gif" border="0"/></a></td>
</tr>
<% next %>
<!--</table>-->
<!--<table cellpadding="2" cellspacing="2">-->
<% for each f in fic %>
<tr>
<%if(f.type="XLS File") then %>
<td><img src="img/icones/icxls.gif"/></td>
<%ElseIf(f.type="Text Document") then %>
<td><img src="img/icones/txt.gif"/></td>
<%ElseIf(f.type="Wordpad Document") then %>
<td><img src="img/icones/icone-doc.gif"/></td>
<%ElseIf(f.type="HTML Document") then %>
<td><img src="img/icones/icone_html.gif"/></td>
<%ElseIf(f.type="Video Clip") then %>
<td><img src="img/icones/icone_avi.gif"/></td>
<%ElseIf(f.type="PDF File") then %>
<td><img src="img/icones/icone-pdf.gif"/></td>
<%Else%>
<td><img src="img/icones/newdoc.gif"/></td>
<%end if%>
<td cellspacing="10"><a href="./data/<%=f.name%>"><%=f.name%></a></td>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><i><font color="#3366FF"><%=f.type%></font></i></td>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><i><font color="#FF9900"><%=f.size/1000%>Ko</font></i></td>
<td></td><td></td><td></td><td></td><td></td><td></td>
<td><a href="visibilite.asp?ficsupp=<%=Request.QueryString("folder")&f.name%>"><img src="img/icones/no.gif" border="0"/></a></td>
<td><a href="./data/<%=f.name%>"><img src="img/icones/icone_download.gif" border="0"/></a></td>
</tr>
<% next%>
</body>
</html> |
Je ne comprends rien, pourvez vous m'aider ?
Mattyeux
Partager