Avatar billede skarvenneverdies Nybegynder
03. marts 2005 - 18:09 Der er 1 kommentar og
1 løsning

Ændring af asp side der lister filer fra directory

Hej

Jeg har følgende asp-side der lister alle filer i en given mappe... Dette fungerer perfekt, nu kunne jeg godt tænke mig at den listede alle filer undtagen:
logo1.gif
logo2.gif

Hvordan kan det lade sig gøre ?
-----------------------------------------------------------------

<I><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
</I>
<html>
<head>
<title></title>


</head>
<body>

<div align="center">
    <%
  sti = "startlister"
  ShowSub = sti & request("ShowSub")
  ShowSubLink = request("ShowSub")
  strPathInfo = ShowSub
 
  strPhysicalPath = Server.MapPath(strPathInfo)

  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strPhysicalPath)


  Set objFSO = Nothing
  %>
  <span class="filesize1">STARTLISTER:</span>
</div>
<table border="0" cellpadding="0" cellspacing="5" width="90%" id="AutoNumber1">
<hr>
<%
'Response.Write ShowSub  & "<br>"
'Response.Write strPhysicalPath
'Response.End

  SiteName = request.servervariables("script_name")
  strPhysicalPath = Server.MapPath(ShowSub)

  If ShowSub > " " then
    ShowSub = Replace(ShowSub, " ", "%20")
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPhysicalPath)
    Set objFolderContents = objFolder.Files
    For Each objFileItem in objFolderContents
      ShowPic = Replace(objFileItem.Name, " ", "%20")
      Response.write "<tr><td>"

  Response.Write "<span class=""link""><a href=""startlister/" & objFileItem.Name &""" target=""_blank""><img src=""max.gif"" alt=""Åben i nyt vindue"" border=""0"">&nbsp;<a href=""startlister/" & objFileItem.Name & """>" & Left(objFileItem.Name, InStrRev(objFileItem.Name, ".")-1)  & "</a></span>"
   

   
    Response.write "</td></tr>"
    Next
    Set objFSO = Nothing
  End if
  %>

</table>
  <table border="0" cellpadding="0" cellspacing="5" style="border-collapse: collapse" bordercolor="#111111" width="90%" id="AutoNumber1">
<hr>

<strong><img src="max.gif" width="10" height="10"><span class="style2">&nbsp; = &aring;bner filen i et nyt vindue</span></strong>
  </table>
  <i>
  </table>
  <i>
  </center>
  </i>
</body>
</html>
Avatar billede Jman Praktikant
03. marts 2005 - 18:18 #1
Du kan lave en if-sætningen uden om diun visning..

if objFileItem.Name <> "logo1.gif" and objFileItem.Name <> "logo2.gif" then

  Response.Write "<span class=""link""><a href=""startlister/" & objFileItem.Name &" target=""_blank""><img src=""max.gif"" alt=""Åben i nyt vindue"" border=""0"">&nbsp;<a href=""startlister/" & objFileItem.Name & """>" & Left(objFileItem.Name, InStrRev(objFileItem.Name, ".")-1)  & "</a></span>"
   
End if
Avatar billede skarvenneverdies Nybegynder
03. marts 2005 - 18:22 #2
Takker - superfedt - hurtigt svar  og alt muligt
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester