Notifikationer

Markér alle som læst Log ud

montago Praktikant

20. maj 2003 - 23:02 Der er 11 kommentarer og
1 løsning

automatisk index, m. filer fra mappe som link

nu det tid til at min hjemmeside skal arbejde for mig...

jeg kunne vildt godt tænke mig at lave en underside på min hjemmeside hvorpå der automatisk bliver lavet en oversigt over hvad filer jeg har i en mappe ( d:\trailers\ )
alle filer er Quicktime ( clip.mov )

alle disse filer skal så optræde som links på pågældende side... ( /trailers/index.asp )

når der så trykkes på et link, skal man ryge videre til næste side ( /trailers/show.asp ) hvor værdien fra forrige link trykning bliver brugt i følgende script:

<TABLE WIDTH="800" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="200" VALIGN="Center" align="CENTER">
<h2 align="center">CLIP.MOV</h2>
</TD>
<TD WIDTH="600" VALIGN="top" ALIGN="CENTER">
<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="480" HEIGHT="288" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
<PARAM NAME="autoplay" VALUE="true">
<PARAM NAME="src" VALUE="qtstart5a_480x228.mov">
<PARAM NAME="controller" VALUE="false">
<PARAM NAME="target" VALUE="myself">
<PARAM NAME="href" VALUE="CLIP.MOV">
<PARAM NAME="pluginspage" VALUE="http://www.apple.com/quicktime/download/indext.html">
</OBJECT>
</TD>
</TR>
</TABLE>

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:07 #1

Du kan liste filerne sådan her:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = "C:\InetPub\wwwroot\trailers"
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"mov") > 1 then
Response.Write "<a href=""trailers/show.asp?fil=" & File.Name & """>" & File.Name & "<br>"
end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:09 #2

show.asp kan så rettes til:

<%
filnavn = Request.Querystring("fil")
%>
<TABLE WIDTH="800" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR>
<TD WIDTH="200" VALIGN="Center" align="CENTER">
<h2 align="center"><%=filnavn%></h2>
</TD>
<TD WIDTH="600" VALIGN="top" ALIGN="CENTER">
<OBJECT CLASSID="clsid:02BF25D5-8C17-4B23-BC80-D3488ABDDC6B" WIDTH="480" HEIGHT="288" CODEBASE="http://www.apple.com/qtactivex/qtplugin.cab">
<PARAM NAME="autoplay" VALUE="true">
<PARAM NAME="src" VALUE="<%=filnavn%>">
<PARAM NAME="controller" VALUE="false">
<PARAM NAME="target" VALUE="myself">
<PARAM NAME="href" VALUE="<%=filnavn%>">
<PARAM NAME="pluginspage" VALUE="http://www.apple.com/quicktime/download/indext.html">
</OBJECT>
</TD>
</TR>
</TABLE>

Synes godt om

montago Praktikant

20. maj 2003 - 23:23 #3

jeg kan ikke rigtigt få min første index side til at vise noget...

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:26 #4

Er det meningen at ASP filen og filerne ligger i samme folder?

For så prøv at rette koden til:

<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
'Ret så det passer med din folder
strFolder = Server.MapPath(".")
Set objFolder = objFSO.GetFolder(strFolder)

For Each File in objFolder.Files
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"mov") > 1 then
Response.Write "<a href=""trailers/show.asp?fil=" & File.Name & """>" & File.Name & "<br>"
end if
Next

Set objFolder = Nothing
Set objFSO = Nothing
%>

Synes godt om

montago Praktikant

20. maj 2003 - 23:33 #5

jeg har siden her... www.mdk-data.da.ru/trailers/files.asp

helt krid hvid... men det burde virke...

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:35 #6

Prøv at rette dette:

For Each File in objFolder.Files
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"mov") > 1 then
Response.Write "<a href=""trailers/show.asp?fil=" & File.Name & """>" & File.Name & "<br>"
end if
Next

Til dette for at se om den overhovet vil lsite nogle filer.:

For Each File in objFolder.Files
Response.Write "<a href=""trailers/show.asp?fil=" & File.Name & """>" & File.Name & "<br>"
Next

Synes godt om

montago Praktikant

20. maj 2003 - 23:42 #7

ja... med den sidste rettelse funker det fint... den viser alle filer
prøv evt linket...

men med den første af de to sidste... er der stadig hvid skærm...

med den sidste af de to, virker videreførslen ikke helt efter hensigten... men burde ikke være det store problem

Synes godt om

eagleeye Praktikant

20. maj 2003 - 23:45 #8

Ok, prøver lige igen det > 1 som står i if sætnignen skal være > 0 .. Så du kan rette det tilbage til dette så den kun viser .mov filerne:

For Each File in objFolder.Files
if inStr(1,LCase(objFSO.GetExtensionName(File.Name)),"mov") > 0 then
Response.Write "<a href=""trailers/show.asp?fil=" & File.Name & """>" & File.Name & "<br>"
end if
Next

Synes godt om

montago Praktikant

20. maj 2003 - 23:50 #9

JAR JAR JAR,....

linkene virker på filer som ikke indeholder mellemrum... ergo må jeg nu lave en helvede masse omdøbninger :-)

Basic.mov virkede .. www.mdk-data.da.ru/trailers/files.asp

Synes godt om

montago Praktikant

20. maj 2003 - 23:52 #10

Shudan... med den sidste rettelse virker alt !!

TAKKER !!! jeg har nu 2 fede sider jeg kan rode med i timevis !!

GREAT!!!!

Synes godt om

montago Praktikant

20. maj 2003 - 23:57 #11

nææ... alle filer virker... uanset navn...

Synes godt om

montago Praktikant

20. maj 2003 - 23:58 #12

damn... du burde have haft 200 point... måske kommer der nogle flere spørgsmål senere

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	4	I dag 11:37	6 minutter siden
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS