01. juni 2007 - 12:28Der er
4 kommentarer og 1 løsning
hjælp med FSO objekt
jeg bruger nedenstående kode til ikke at få vist asp filer i bibliotek - jeg vil gerne ha tilføjet css og jpg filer????
For Each g_oFile In g_oFolder.Files if right(g_oFile.name,3) = "asp" then Response.write "" else Response.Write "<tr><td><font color='#999999'></font><a href=""" & g_oFile.name & """ target=_blank>" & left(g_oFile.name,(len(g_oFile.name)-4)) & "</a></td></strong></tr>" end if Next
Skal virksomheder stå stærkere mod angreb og kunne udvikle sig, skal sikkerhed, drift og forretning tænkes sammen. Det er tanken bag Jysk IT’s ambition om at skabe en “sikker fremtid” for kunderne.
Du kan dog spare et par linjer, hvis du skriver det sådan her: -------------------------------------------------------------- For Each g_oFile In g_oFolder.Files if right(g_oFile.name,3) <> "asp" or right(g_oFile.name,3) <> "css" or right(g_oFile.name,3) <> "jpg" then Response.Write "<tr><td><font color='#999999'></font><a href=""" & g_oFile.name & """ target=_blank>" & left(g_oFile.name,(len(g_oFile.name)-4)) & "</a></td></strong></tr>" end if Next -------------------------------------------------------------- Det betyder bare "hvis ikke, filen er asp, css eller jpg, så skriv den. Så sparer du helt den første "if" væk.
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.