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>"
10 svar · 419 visningar · startad av jlee
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>
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>"
Antagligen samma ändring isåfall:
Response.Write("<a href=""vanster.asp?image=" & vFolder & "/" & File.Name & """ target=""vanster"">")
Det var inte det som var problemet....funkar fortf inte
vecko mappen öppnas inte konstigt nog..
@nders skrev:
... och vänligen använd [kod]-taggar.
Kan någon hitta felet som gör att scriptet inte funkar?
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.
Kan dessvärre inte förstå hur jag ska ändra för att lösa problemet?