dag, ik wil een asp script maken dat als ik een directory met foto's volgooi van mijn digitale camera dat het script deze dan op een website laat zien.
iemand een idee
iemand een idee
:strip_exif()/u/22119/ch.gif?f=community)
Music is the pleasure the human mind experiences from counting without being aware that it is counting
~ Gottfried Leibniz
Music is the pleasure the human mind experiences from counting without being aware that it is counting
~ Gottfried Leibniz
Verwijderd
Nounou... kan me best voorstellen dat je soms niet weet waar je precies op moet zoeken.
Kijk eens naar het FileSystemobject, moet je een heel end mee komen. En nu zoeken!
As promised 
show_foto_cat.asp
show_foto.asp
Het leuke van dit scriptje is dat hij random een thumbnailtje haalt uit de directory klein. Zo heb je elke keer een nieuwe foto albom
Veel suc6 ermee
show_foto_cat.asp
code:
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
| <%@LANGUAGE=VBScript %>
<HTML>
<HEAD>
<Title>Foto album</title>
</HEAD>
<BODY
<div align="center">
<h3 style="font-family: Arial, Helvetica, sans-serif;">Kies een categorie</h3>
<table border="0" width="100%">
<TR>
<%
dim x(100)
folderspec = "C:\Directory"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ObjF = ObjFSO.GetFolder(folderspec)
Set ObjFolderCollection = ObjF.SubFolders
dim i
i = 0
For Each FL in ObjFolderCollection
Folder = FL.name
RandomFolderSpec = folderspec & Folder & "\klein\"
'response.write RandomFolderSpec
Set RandomFolder = ObjFSO.GetFolder(RandomFolderSpec)
Set RandomFileCollection = RandomFolder.Files
'Step through the files list, keeping track of
'the number of files....
idx=0
For Each file in RandomFileCollection
idx=idx+1
x(idx)=file.name
Next
randomize timer
whichNo=int(rnd()*idx)+1
%>
<td>
<div align="center">
<a href="show_foto.asp?folder=<%=Folder%>">
<% response.write "[img]""foto/"[/img]"%><br>
<%=Folder%>
</a>
</div>
</td>
<%
i = i + 1
if i = 3 then response.write "</TR><TR>" : i = 0
Next
%>
</table>
</div>
</body>
</html>
<%
set ObjFolderCollection = nothing
set ObjF = nothing
set ObjFSO = nothing
%> |
show_foto.asp
code:
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
| <!--#INCLUDE FILE="number12.inc"-->
<%
folderspec = "d:\internet\root\www\looneys\www\foto\"
'folderspec = "F:\internet\looneys\www\foto\"
subfolder = Request.Querystring("folder")
folderspec = folderspec & subfolder & "\"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objF = objFSO.GetFolder(folderspec)
Set objFC = objF.Files
%>
<HTML>
<HEAD>
<Title>Foto album</title><
<SCRIPT language=JavaScript>
function OpenFotoConsol(nFoto)
{
FotoPopUp=window.open('','FotoWindow','width=530,height=500,scrollbars=yes');
FotoPopUp.document.write('<html><head><title>Fotos</title></head><body leftmargin="0" topmargin="0"><table width="100%" border="0" align="center" height="100%"><tr><td width="100%" height="100%" align="center" valign="middle">[img]"'+nFoto+'"></td></tr></table></body></html>');
FotoPopUp.document.close();
};
</SCRIPT>
</HEAD>
<BODY>
<h3[/img]<%=SubFolder%></h3>
<table border="0" width="100%">
<tr>
<%
i = 0
For Each f1 in objFC
if instr(ucase(f1.Name), ".JPG") then
jssubfolder = subfolder
if instr(subfolder,"'") then jssubfolder = Replace(subfolder,"'","''") else jssubfolder = subfolder
i = i + 1
%>
<td align="center">
<a href="javascript:OpenFotoConsol('foto/<%=jssubfolder%>/<%=f1.Name%>')">[img]"foto/<%=subfolder%>/klein/<%=f1.Name%>"[/img]</a>
</td>
<%
if i = 3 then response.write "</tr><tr>" : i = 0
end if
Next
set objFC = nothing
set objF = nothing
set objFSO = nothing
%>
</TABLE>
<DIV align="center"><A href="show_foto_cat.asp">Terug naar de catagorieën</a></div>
</BODY>
</HTML> |
Het leuke van dit scriptje is dat hij random een thumbnailtje haalt uit de directory klein. Zo heb je elke keer een nieuwe foto albom
Veel suc6 ermee
Pagina: 1