/ Forside / Teknologi / Udvikling / Java Scripts / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Java Scripts
#NavnPoint
molokyle 5410
Klaudi 2799
smorch 2439
kim 1360
Harlekin 1134
bentjuul 984
gibson 800
severino 695
Random 675
10  konsulent.. 626
Galleri!
Fra : Per Ahm


Dato : 08-08-04 10:56

Har fundet flg. kode på netcoders , og det virker fint , og andvender det
til min datters børnehave....

Den henter og viser alle billede i den mappe filen ligger i (index.asp) og
sitet er så opdelt i måneder , med en index.asp i hver mappe!

Men, kan der forholdsvis nemt ændres , så den kun henter billedet i en
"lille" udgave , frem for at hente det store billede , og så vise den i
lille!

Det ville jo gøre siderne væsentligt hurtigere!!! Og , så kan vi vælge
hvilket vi ønsker at hente , og se i stor!

Evt. et andet script... ?

Med venlig hilsen
Per Ahm



.............................................................


<head>
<link rel="stylesheet" type="text/css" href="../style.css">

</head>

<body>





<p align="center"><font color="#000080"><font face="Tahoma"
size="2"><br>Klik på </font>
billedet for at åbne i stort format!<br>
Ønsker du at gemme det kan du højreklikke på det og vælge gem billede
som..<br>

<%
'------------------------------------------------
'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>

<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>
<base target="_blank">
<%
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=120 height=90></a>"
row_count = row_count + 1
count = count + 1
End If
End If
End If
Next
%>

</td>
</tr>
</table>
<BR></font>

.............................................................



 
 
*XxX* (08-08-2004)
Kommentar
Fra : *XxX*


Dato : 08-08-04 23:47


"Per Ahm" <per@perahm.dk> wrote in message
news:4115f859$0$8684$ba624c82@nntp04.dk.telia.net...
> Har fundet flg. kode på netcoders , og det virker fint , og andvender det
> til min datters børnehave....
>
> Den henter og viser alle billede i den mappe filen ligger i (index.asp) og
> sitet er så opdelt i måneder , med en index.asp i hver mappe!
>

ASP hører til i dk.edb.internet.webdesign.serverside.asp og ikke i en
clintside gruppe, men du skal nok have fat i et asp billede komponent til
serveren for at resize billederne



Per Ahm (08-08-2004)
Kommentar
Fra : Per Ahm


Dato : 08-08-04 14:56

> ASP hører til i dk.edb.internet.webdesign.serverside.asp og ikke i en
> clintside gruppe, men du skal nok have fat i et asp billede komponent til
> serveren for at resize billederne

OK, Takker... Det prøver jeg!

PA



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste