webForumDet fria alternativet
Logga in / Bli medlem

Mapp problem

ASP

10 svar · 419 visningar · startad av jlee

Medlem sedan dec. 2002378 inlägg
Trådstart#1

Detta script gör thumbnails av stora bilder. Man ska kunna välja vecka i en scroll list. Problemet är att mappen som man väljer inte hittar bilderna i den utan det blir ett kryss istället för bild.
jag hamnar allstå utanför mappen jag vill till??

<%
If Request.QueryString("do") = "" Then
  Dim FSO 
  Dim Files 
  Dim File  
  Dim Count
  Dim vFolder ' skapa variabel
  vFolder = Request("folder") ' hämta mappnamnet
  Const Columns = 2 
  Const ImageWidth = 100 

  Set FSO = Server.CreateObject("Scripting.FileSystemObject") 
  Set Files = FSO.GetFolder(Server.MapPath("./" & vFolder)).Files ' lägg in variabel
  Set FSO = Nothing 
  Response.Write "<TABLE width=""200px"" border=""0"" cellspacing=""0"">" 
  Response.Write "<TR>" 
  Count = 0

  For Each File In Files 
  Select Case LCase(Right(File.Name, 3)) 
  Case "jpg", "gif", "bmp", "png" 
  Count = Count + 1

  if Count Mod Columns = 1 Then Response.Write "</TR><TR>" 

  Response.Write "<TD  align=""center"" valign=""top"">" 
  
Response.Write "<A href=""vanster.asp?image=" & File.Name & """ target=""vanster"" >"
  

  
  Response.Write File.Name 
  Response.Write "<BR><IMG src=""" & File.Name & """ border=""2"" width=""" & ImageWidth & """></a><BR>" 
  
  Response.Write "</TD>" 
  End Select 
  Next 

  Response.Write "</TR>" 
  Response.Write "</TABLE>" 
  Set File = Nothing 
  Set Files = Nothing 
ElseIf Request.QueryString("do") = "delete" Then
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

  If objFSO.FileExists(Server.MapPath(Request.QueryString("bild"))) Then
  objFSO.DeleteFile(Server.MapPath(Request.QueryString("bild")))
  End If

  Set objFSO = Nothing
  Response.Redirect("?do=")
End If
%></p><div align="center">
<form name="form1" method="post" action="hoger.asp">
  <select name="folder" onChange="document.form1.submit();">

  <option selected>Välj vecka</option>
  <option value="20">Vecka 20</option>
  <option value="21">Vecka 21</option>
  <option value="22">Vecka 22</option>
  <option value="23">Vecka 23</option>
  </select>
</form></div>
Medlem sedan apr. 2002183 inlägg
#2

byt ut:

Response.Write "<BR><IMG src=""" & File.Name & """ border=""2"" width=""" & ImageWidth & """></a><BR>"

mot:

Response.Write "<BR><IMG src=""" &vFolder&"/"& File.Name & """ border=""2"" width=""" & ImageWidth & """></a><BR>"
Medlem sedan juni 200032 967 inlägg
#3

... och vänligen använd [kod]-taggar.

mvh

Medlem sedan dec. 2002378 inlägg
#4

Verkar inte funka..ska det kanske vara en ändring i länken också?

Response.Write "<A href=""vanster.asp?image=" & File.Name & """ target=""vanster"" >"

Medlem sedan mars 20023 561 inlägg
#5

Antagligen samma ändring isåfall:

Response.Write("<a href=""vanster.asp?image=" & vFolder & "/" & File.Name & """ target=""vanster"">")
Medlem sedan dec. 2002378 inlägg
#6

Det var inte det som var problemet....funkar fortf inte

Medlem sedan dec. 2002378 inlägg
#7

vecko mappen öppnas inte konstigt nog..

Medlem sedan feb. 200112 078 inlägg
#8

@nders skrev:

... och vänligen använd [kod]-taggar.

Medlem sedan dec. 2002378 inlägg
#9

Kan någon hitta felet som gör att scriptet inte funkar?

Medlem sedan mars 20023 561 inlägg
#10

Det är ju inget scriptfel, det är bara att mappstrukturen inte ser ut som scriptet är kodat till. Det är ju bara att du ser över sökvägarna så löser det sig.

Medlem sedan dec. 2002378 inlägg
#11

Kan dessvärre inte förstå hur jag ska ändra för att lösa problemet?

391 ms totalt · 4 externa anrop · v20260731065814-full.51f67c91
115 ms — deklarationer (db)
135 ms — hämta statistik (db)
132 ms — hämta tråd, inlägg och bilagor (db)
123 ms — ändringar (db)