12. august 2003 - 09:56Der er
12 kommentarer og 1 løsning
Lukning af vindue
Hej. Jeg bruger følgende kode til at vise nogle pdf filer, når der har været i gennem alle filer, så skriver den "Sidste tilbud", men jeg vil også gerne have den til at komme med "Luk" hvor jeg så kan lukke vinduet, det er lavet som et popup vindue. Men jeg kan bare ikke finde ud af indsætte koden!
<base target="_self">
<script language="Javascript"> var a a=2
function naeste(link1) { window.parent.frames["hovedramme"].location.href=link1+".pdf"; }
</script> <% Dim fso, f, fl, fc, s, N Function ShowFolderList(FileSpec) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(FileSpec) Set fc = f.Files N=0 For Each fl in fc If UCase(Mid(Fl.Name,Len(Fl.Name)-2,3))="PDF" then N=N+1 End If Next ShowFolderList = N End Function FilDir=Server.MapPath(".") antal=ShowFolderList(FilDir) %> <html>
<body bgcolor="#737173">
<FORM NAME="TEST" METHOD="POST">
<% if n < 2 then %> <span style='color:#FFFFFF;font-family:Arial;'></span><br> <% else %> <input type="button" value="Næste" onClick="java script:naeste(a);((a > <%=int(antal)-1%>) ? ikkefler() : ++a);"> <% end if %> </FORM>
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
</script> <% Dim fso, f, fl, fc, s, N Function ShowFolderList(FileSpec) Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(FileSpec) Set fc = f.Files N=0 For Each fl in fc If UCase(Mid(Fl.Name,Len(Fl.Name)-2,3))="PDF" then N=N+1 End If Next ShowFolderList = N End Function FilDir=Server.MapPath(".") antal=ShowFolderList(FilDir) %> <html>
<body bgcolor="#737173">
<FORM NAME="TEST" METHOD="POST">
<% if n < 2 then %> <span style='color:#FFFFFF;font-family:Arial;'> </span><br> <% else %> <input type="button" value="Næste" onClick="naeste(a);"> <% end if %> </FORM>
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.
