webForumDet fria alternativet

Problem med Request?

0 svar · 223 visningar · startad av timedia

timediaMedlem sedan maj 2001420 inlägg
#1

Detta är sidan husshow.asp: Var tar thumbsen vägen? första gången jag går in på sidan visas thumbsen, men när jag klickar på en av dom visas sidan utan thumbs - Varför??

[B]         MASSA   HTMLKOD    [/B]  <%
			  set fso = server.createobject("scripting.filesystemobject")
set folder =fso.getfolder(Server.Mappath("bild"))
for each fo in folder.subfolders
		response.write "<td width='100' valign='top' scope='col'>" & fo.name & "<br><a class='thumb'  href='husshow.asp?obj=" & fo.name & "'><img src=""bild/" & fo.name & "/th_main.jpg""></a><br></td>"

Next

%>
                </tr>
              </table>
              </div>
          </div>          

          <% 'här laddas thumbsen
foname = request.querystring("obj")
Set FSO2 = Server.CreateObject("Scripting.FileSystemObject") 
Set Folder2 = FSO2.GetFolder(server.mappath("bild/"&foname&""))
set Files = Folder2.Files 
	Response.Write "<table>" & vbCrLf
	        Response.Write "<tr>" & vbCrLf
For each Item In Files
	if left(Item.Name,3) = "th_" then

       		If x mod 4=0 and x>1 Then Response.Write "</tr><tr>" & vbCrLf

            Response.Write "<td>" & vbCrLf
			strFileName = item.name
			Response.write "<a href='husshow.asp?pic=bild/"& foname &"/"& Mid(strFileName, 4) &"'>"
			Response.write "<img src ='bild/"& foname &"/"& strFileName &"'></a>"
		    Response.Write "</td>" & vbCrLf
			x=x+1
			end if
Next
	
set Folder = nothing 
set Folder2 = nothing 
set FSO = nothing 
set FSO2 = nothing 
set Files = nothing

%></th>
        <th width="318" height="231" align="right" valign="bottom" scope="row">&nbsp;</th>
      </tr>
      <tr>
        <th width="318" align="right" valign="bottom" scope="row"></th>
      </tr>
    </table></th>
  </tr>
</table>
</body>
</html>
<%function showpic()
	If request.querystring("pic") <> "" then
	Bild = request.querystring("pic")
		Response.write "<img src='"&Bild&"'>"		
else 
		response.write "&nbsp;"
	end if
	end function
	%>
135 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)