Avatar billede jerving Nybegynder
06. november 2001 - 16:11 Der er 4 kommentarer og
1 løsning

Generering af tabel

Kære eksperter,

Jeg skal starte med at side at jeg bestemt ikke er kendt i Asp-kodning. Sagen er den, at jeg er ved at lave en side til en mindre kunde som vil udstille produkter gennem et billede, en produktbeskrivelse, navnet på designeren og en beskrivelse.

Kunden ønsker til alles store overraskelse selv at kunne udskifte billeder og dertilhørende tekst relativt ofte.

Jeg har fundet det efterhånden velkendte komponentuafhængige ”Upload pure asp”-script som jeg ser som vældigt egnet til formålet.

Da jeg er en klovn til database ville jeg anvende nedenstående kode til at vise billederne. Den viser alle billedfiler i en respektiv mappe:

<%
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 = 3 \' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write \"<p><strong>\" & intImgCount & \" Billeder - \"
Response.Write \"viser side \" & intPage & \" af \" & intPageCount & \":</strong></p>\"

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

strScriptName = Request.Servervariables(\"ScriptName\")
Response.Write \"<p>Gå til side \"
For i = 1 To intPageCount
Response.Write \"<a href=\" & strScriptName & \"?page=\" & i & \">\" & i & \"</a> \"   
Next
Response.Write \"</p>\"
Set objFS = Nothing
%>

Det jeg vil spørge om er: 1) Hvordan (hvis muligt) viser jeg i stedet billederne i en genereret tabel frem for at der blot indsættes <p></p> efter hvert billede?
2) Hvordan (hvis muligt) viser jeg på samme måde en tekstfil; *.doc eller *.txt i samme tabel?

3) Hvordan kan jeg indflette javascriptet (<a href=\"java script:;\" onClick=\"window.open\".... bla,bla,bla), på hvert billed, så der samme tekst + billed vises i et vindue for sig når der klikkes på billedet?


Er der nogen, der kan hjælpe mig? :)
Avatar billede larsdue Nybegynder
06. november 2001 - 16:29 #1
Prøv dig frem med noget lignende følgende kode. Jeg har kun lige brugt 2 min på det, men det skulle kunne give dig nogle ideer til hvordan du kan løse dine problemer.

/Lars

<%
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 = 3 \' Antal filer på hver side
intImgCount = objFiles.Count
intPageCount = -Int(-(intImgCount/intPageSize))

Response.Write \"<p><strong>\" & intImgCount & \" Billeder - \"
Response.Write \"viser side \" & intPage & \" af \" & intPageCount & \":</strong></p>\"

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 \"</tr>\"
Response.Write \"</table>\"

strScriptName = Request.Servervariables(\"ScriptName\")
Response.Write \"<p>Gå til side \"
For i = 1 To intPageCount
Response.Write \"<a href=\" & strScriptName & \"?page=\" & i & \">\" & i & \"</a> \"   
Next
Response.Write \"</p>\"
Set objFS = Nothing
%>
Avatar billede jerving Nybegynder
06. november 2001 - 17:00 #2
Mange tak. Jeg får dog beskeden: Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/billeder.asp, line 29

Response.Write \"<td><a href=\"#\" onClick=\"openWindow(\" & ImageDir & Image.Name & \")\"><img src=\'\" & ImageDir & Image.Name & \"\'></a></td>\"
-----------------------------^

når jeg tester det?....:)
Avatar billede larsdue Nybegynder
06. november 2001 - 17:12 #3
hovsa, min fejl. Der skulle naturligvis stå følgende:

Response.Write \"<td><a href=\"\"#\"\" onClick=\"\"openWindow(\" & ImageDir & Image.Name & \")\"\"><img src=\"\"\" & ImageDir & Image.Name & \"\"\"></a></td>\"

/Lars
Avatar billede jerving Nybegynder
06. november 2001 - 17:22 #4
Tusind tak,
Jeg er ikke sikker på og det pt. er meningen, at den skulle generere det nye vindue med billedet i, når der klikkes på billedet. Den gør det i hvert fald ikke, men der rapporteres heller ikke en scriptfejl, når man prøver? Du kan se eks. på http://www.mysa.org.uk/billeder.asp.
Avatar billede jerving Nybegynder
03. oktober 2002 - 16:23 #5
Lukker
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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