Sv:CreateObject dynamiskt med innehållande kod

CreateObject dynamiskt med innehållande kod

Postades av 2006-12-08 09:56:16 - Niklas Beckman, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 663 personer

Halloj.
Som ni kommer att kunna utläsa av min fråga och min kod så är jag en ytterst glad amatör när det gäller asp och det finns förmodligen hundra sätt att göra mitt ärende smidigare, men jag skulle ändå vilja använda den kod jag gjort hittills (för att jag är i inlärningsstadiet och skulle vilja slutföra mitt projekt med det jag tragglat mig igenom).
Så vad vill jag åstadkomma då?
Jo, jag har en sida som presenterar alla bilder i en mapp, gör dem till thumbnails och länkar till en sida där bilden skall visa i fullstorlek.
Min fråga är hur jag kan göra för att dessa sidor som jag länkar TILL skall skapas automatiskt allteftersom det dyker upp fler bilder i mappen som som bilderna samlas i.
På sidan där thumbnailsen presenteras ser koden ut såhär:

<%
   Dim objFolder, objSubFolder, objFile
						
   With Server.CreateObject("Scripting.FileSystemObject")
   Set objFolder = .getFolder(Server.MapPath("/pics/bordstolar"))
%>
						
<table width="504" cellpadding="0" cellspacing="0">
  <tr>
<%
   x=0
   For each objFile in objFolder.Files
   if x=5 then

   response.write "</tr><tr>"
   response.write "<td width=""100"" height=""20"" valign=""middle"">"
   response.write "<a target=""_blank"" href=""/mobler/"& objFile.Name & ".asp" & "?pic=" & objFile.Name & """>"
   response.write "<img src=""/pics/bordstolar/"& objFile.Name &""" width=""100"" height=""68"" border=""0"" />"
   response.write "    </a>"
   response.write "  </td>"

   x=0

   else

   response.write "<td width=""100"" height=""20"" valign=""middle"">"
   response.write "<a target=""_blank"" href=""/mobler/" & objFile.Name & ".asp" & "?pic=" & objFile.Name & """>"
   response.write "<img src=""/pics/bordstolar/"& objFile.Name &""" width=""100"" height=""68"" border=""0"" />"
   response.write "    </a>"
   response.write "  </td>"

   end if

   x=x+1

   Next
   response.write "</tr>"
   Set objFolder = Nothing
   End With
%>

De länkar som blir skickar alltså ett värde med Querystring med bildens filnamn. Och om jag STATISKT gör en asp-sida som heter exempelvis: 050326-DSC_0114.jpg.asp (då en utav bilderna heter 050326-DSC_0114.jpg) och skriver in följande kod i den asp-filen:

<body bgcolor="#62615f">
<%
	Dim Bild
	Bild = Request.QueryString("pic")
%>
<div align="center"><img src="/pics/bordstolar/<% =Bild %>" /></div>
</body>

Då fungerar allt precis smo jag tänkt mig. Kruxet är alltså att jag måste skapa alla sidor som det skall länkas till för HAND. Hur kan jag göra för att dessa sidor skapas dynamiskt allteftersom det dyker upp nya bilder i mappen. Jag antar att det blir nån form av CreateObject där jag skapar filer med hjälp av att hämta alla objFile.Name. Men problemet är ju att jag måste ha in koden

<body bgcolor="#62615f">
<%
	Dim Bild
	Bild = Request.QueryString("pic")
%>
<div align="center"><img src="/pics/bordstolar/<% =Bild %>" /></div>
</body>

i samtliga filer som den skapar automatiskt... Kan jag på nåt sätt få in detta med hjälp av WriteLine i själva CreateObject-processen.

Otroligt tacksam för svar.

Svara