CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

nanosoft Nybegynder

18. november 2001 - 08:02 Der er 3 kommentarer

Indexsering af fotos

jeg har et digital kamera... :P
som følge af det tager jeg mange billeder, som jeg gerne vil have lagt online.
men jeg kan ikke finde en måde at indexsere dem på,
har tænkt på en slags \"Explorer\" struktur med mapper også videre, hvordan gøres dette?
jeg har god erfaring i ASP og Databaser, så jeg mangler en ide.

Synes godt om

particle Nybegynder

18. november 2001 - 10:13 #1

------------------index.asp--------------------
<head>
<title>Galleri 1.0 - Koldy 2001</title>
</head>

<body bgcolor=\"#C0C0C0\">

<h3 align=\"center\">Galleri 1.0</h3>
<hr>

<%
\'------------------------------------------------
\'henter info om siden
\'------------------------------------------------
page = trim(Request.QueryString(\"page\"))
start = trim(Request.QueryString(\"start\"))

\'------------------------------------------------
\'Åbner Filsystem
\'------------------------------------------------
strPathInfo = Request.ServerVariables(\"PATH_INFO\")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

\'------------------------------------------------
\'grund variabler
\'------------------------------------------------
row_count = 0
row = 1
max_row = 3
count = 1
If NOT start <> \"\" then
Start = 1
End If
%>

<p align=center>

<%
\'------------------------------------------------
\'Info variabler
\'------------------------------------------------

info_page = 0
info_page_count = 0
info_Count = 0

\'------------------------------------------------
\'Info Script, udregner og udskriver info til siden
\'------------------------------------------------
If page <> \"\" then
response.write \"side <a href=\'index.asp\'>1</a> \"
else
Response.write \"side 1 \"
End If

For Each objFileItem in objFolderContents
info_Count = info_Count + 1
info_page = info_page + 1
if info_page = 9 then
info_page_count = info_page_count + 1
info_page = 0
End If
If info_page = 0 then
If trim(info_page_count + 1) = trim(page) then
response.write info_page_count + 1 & \" \"
Else
response.write \"<a href=\'index.asp?start=\" & info_count & \"&page=\" & info_page_count + 1 & \"\'>\" & info_page_count + 1 & \"<a> \"
End If
End If
Next
Response.write \"<br>Der er ialt <b>\" & (info_Count) & \"</b> billeder\"
if (info_page_count) * 9 = info_count then
Response.write \" på <b>\" & (info_page_count) & \"</b> sider<br>\"
Else
Response.write \" på <b>\" & (info_page_count) + 1 & \"</b> sider<br>\"
End If
%>
<div align=\"center\">
<table border=\"0\" cellspacing=\"3\" cellpadding=\"3\">
<tr>

<%
For Each objFileItem in objFolderContents

If objFileItem.Name = \"index.asp\" then
Else

If CLng(count) < CLng(start) then
count = count + 1
Else

If CLng(row) => CLng(max_row) And row_count = 3 then
Else

If row_count > 2 then
response.write \"<tr>\"
row_count = 0
row = row + 1
End If

Response.write \" <td><a href=\'\"
Response.Write(objFileItem.Name)
Response.write \"\'><img border=0 src=\'\" & (objFileItem.Name) & \"\' alt=\'\" & (objFileItem.Name) & \"\' width=239 height=180></a>\"
row_count = row_count + 1
count = count + 1
End If
End If
End If
Next
%>

</td>
</tr>
</table>
-----------------------------------------------

Synes godt om

particle Nybegynder

18. november 2001 - 10:14 #2

Og en lille \"readme.txt\":

-----------------readme.txt----------------
_______________________________________
|------------- Galleri 1.0 -------------|
| THIS SCRIPT IS MADE BY KOLDY 2001 |
|---------------------------------------|
| Må bruges af alle |
|---------------------------------------|
|Læs nu denne fil grundigt igennem :).. |
|---------------------------------------|
|_______________________________________|

.:Indhold:.
- Index.asp ^ Selv scriptet
- Readme.txt ^ Den side du sider og læser n00B

.:Install:.
- Unpack til den folder hvor du havde tænkt dit galleri skal være..
- Slet readme.txt (må om ingen omstendigheder være i samme bib som index.asp)
- smid de billeder du vil havde på siden ind i selvsamme bib.
- kør siden og det skulle virker
- good luck
---------------------------------------------

Synes godt om

nanosoft Nybegynder

19. november 2001 - 00:53 #3

Det er da meget smart til mindre foto albums...
men at have ca. 2000 billeder i samme mappe, eh...

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
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59
IIS virker ikke på asp sider... Af bsn i ASP	10	15/10/202313:12	18/10/202308:48

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