Billedsystem

prøv at stikke hovedet indenfor på http://www.codelink.dk og kig under kildekode ~ nline fotoalbum

Prøv denne her, den genererer en tabel med alle billeder der er i en udvalgt tabel. Du kan selv vælge hvor mange der stak vises pr. side:

<HTML>
<HEAD>
</HEAD>
<body bgcolor=\"#000000\" text=\"#FFFFFF\" link=\"#000000\" alink=\"#000000\" vlink=\"#000000\">
<%
ImageDir = \"/images/\" \' Mappen med filerne
Set objFS = CreateObject(\"Scripting.FileSystemObject\")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

intPage = Request.Querystring(\"page\")
If isNumeric(intPage) = False Or intPage < 1 Then
  intPage = 1
End If

intPageSize = 100 \' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))


Response.Write \"<table border=\"\"0\"\" cellspacing=\"\"5\"\" cellpadding=\"\"5\"\">\"
Response.Write \"<tr>\"

For Each Image In objFiles
intFile = intFile +1
If (intFile >= ((intPage-1)*intPageSize)+1) And (intFile =< (intPageSize*intPage)) Then
  Response.Write \"<td><a href=\"\"#\"\" onClick=\"\"openWindow(\" & ImageDir & Image.Name & \")\"\"><img src=\"\"\" & ImageDir & Image.Name & \"\"\"></a></td>\"
End If
Next

Response.Write \"<td>\"

Dim fso, f, filespec
Set fso = CreateObject(\"Scripting.FileSystemObject\")
filespec = Server.Mappath(\"/tekster/hej.txt\")
Set f = fso.OpenTextFile(filespec,1)

\' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & \"<br>\"
Loop

f.Close
Response.Write \"</td>\"

Response.Write \"</tr>\"
Response.Write \"</table>\"

strScriptName = Request.Servervariables(\"ScriptName\")

Set objFS = Nothing
%>
</BODY>
</HTML>