webForumDet fria alternativet

bild upload

4 svar · 443 visningar · startad av cupy

cupyMedlem sedan apr. 2002299 inlägg
#1

Hej hej!

Jag skulle behöva hjälp:
Min upload script döper om alla filer jag laddar upp och det gör det genom att lägger 1- framför varenda fil !
Problemet är att när jag laddar inte upp något fil alls då lägger den ändå 1- i databasen så när jag hämtar en inlägg som innehåller ingen bild
då scripten försöker ändå visa en bild!

Så döper scripten om filen :

Dim pathToFile

	Dim fso,fnum
	
	Set fso=Server.CreateObject("Scripting.FileSystemObject")
	fnum=1
	Do While fso.FileExists(Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName)
	fnum=fnum+1
	Loop
	pathToFile=Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName
	fileName=fnum & "-" & fileName
	Set fso=Nothing

och såhär visar jag bilden i ett inlägg

<%IF trim(RecSet("filename") & "") <> "" then%>
<a href="uploaded/<%= replace(RecSet("filename"),"_th", "_or") %>">
<img src="uploaded/<%= RecSet("filename") %>" border=0 alt="<%= rubrik %>"></a>
<%end if %>

Jag tror hit skulle jag behöva en if-sats men jag kan inte fixa den själv. Tack på förhand

PoffeMedlem sedan apr. 20022 743 inlägg
#2

Du får lägga till ett fält i din databas, ex Ja/Nej-fält (True/False) som du sätter till Ja eller Nej (True eller False) när man laddar upp bilden beroende på om man laddar upp nån bild eller inte.

Sen när du ska hämta posten ur databasen så kontrollerar du om det fältet innehåller Ja elel rNej och gör utifrån det en if-sats som skriver eller inte skriver ut bilden.

cupyMedlem sedan apr. 2002299 inlägg
#3

Tack för svaret Men det är precis mitt problem if-satsen

sedan jag glömde säga att i db lagras bara namnet på bilderna

solbulleMedlem sedan mars 20015 287 inlägg
#4

Fullösning :e :

<%IF len(trim(RecSet("filename") & "")) > 3 then%>
<a href="uploaded/<%= replace(RecSet("filename"),"_th", "_or") %>">
<img src="uploaded/<%= RecSet("filename") %>" border=0 alt="<%= rubrik %>"></a>
<%end if %>
cupyMedlem sedan apr. 2002299 inlägg
#5

Tack Solbolle men jag löste oxå undertiden så här

Dim pathToFile

	If filename<>"" Then
		Dim fso,fnum
		Set fso=Server.CreateObject("Scripting.FileSystemObject")
		fnum=1
		Do While fso.FileExists(Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName)
			fnum=fnum+1
		Loop
		pathToFile=Server.mapPath("uploaded/") & "\" & fnum & "-" & fileName
		fileName=fnum & "-" & fileName
		Set fso=Nothing
	End If

men för hjälp!

133 ms totalt · 3 externa anrop · v20260731065814-full.30151723
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
130 ms — hämta tråd, inlägg och bilagor (db)