webForumDet fria alternativet

Uppladdade filer sparas inte!?

ASP

24 svar · 447 visningar · startad av Trac3r

Medlem sedan maj 200335 inlägg
Frågan#1

Jag har problem med att spara filer som är uppladdade med aspsmartUpload.
Här är koden som jag har till att spara:

For i = 1 To numPictures

If Not mySmartUpload.Files("pic" & i).IsMissing Then   
          mySmartUpload.Files("pic" & i).saveAs("./bilder1/" & dataID & "\_" & i & ".jpg") 
      End If
Medlem sedan aug. 20003 575 inlägg
#2

Testa att göra såhär.

If Not mySmartUpload.Files("pic" & i).IsMissing Then 
mySmartUpload.Files("pic" & i).saveAs("./bilder1/" & dataID & "_" & i & ".jpg") 
Response.Write "Inne i if-satsen"
End If

För att kolla att den verkligen hamnar inom If satsen.

Medlem sedan maj 200335 inlägg
#3

nopp

den skriver inte ut något :/..
så här ser formuläret ut:

<FORM METHOD="post" ACTION="upload.asp" ENCTYPE="multipart/form-data">
<INPUT TYPE="FILE" NAME="pic1" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="pic2" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="pic3" SIZE="50"><BR>
<INPUT TYPE="FILE" NAME="pic4" SIZE="50"><BR>
<INPUT TYPE="SUBMIT" VALUE="Ladda upp">
</FORM>

Medlem sedan aug. 20003 575 inlägg
#4

kontrollera då om den kommer in i loopen med att skriva
har du satt numPictures = 4 ?

For i = 1 To numPictures 

Response.Write "Inne i loopen gång" & i

Next

Om det skrivs ut som det skall då är det denna raden som det finns något fel i.

If Not mySmartUpload.Files("pic" & i).IsMissing Then
Medlem sedan maj 200335 inlägg
#5

Den skrivs inte ut :/

Medlem sedan nov. 20017 144 inlägg
#6

Har du tittat här?

Medlem sedan maj 200335 inlägg
#7

har fixat det nu

Medlem sedan nov. 20017 144 inlägg
#8

Kul!
Det är som alltid bra att tala om vad man då har gjort.
WF handlar om att återanvända kunskap... :)

Medlem sedan maj 200335 inlägg
#9

såhär skrev jag:
dataID = CInt(mySmartUpload.Form("dataID").values) ' # HIT #
numPictures = CInt(mySmartUpload.Form("numPictures").values) ' # MADE BY EITRAZ #

For i = 1 To numPictures
If Not mySmartUpload.Files("pic" & i).IsMissing Then
mySmartUpload.Files("pic" & i).saveAs("./spelbilder/" & dataID & "_" & i & ".jpg")
End If
Next

Medlem sedan maj 200335 inlägg
#10

En sak jag inte förstår exakt är hur jag ska skriva ut bilderna i nyheten. Vet hur man skriver ut en. Men om det är många? :)
Mvh jonathan

Medlem sedan nov. 20017 144 inlägg
#11

Försök att förklara lite mer.

Medlem sedan maj 200335 inlägg
#12

jag vill visa alla bilderna till nyheten på en gång, men med koden jag har nu visas bara 1 ; P:

<img src="<%=RecSet("dataID")%>_<%=RecSet("antalbilder")%>.jpg">

Medlem sedan maj 200335 inlägg
#13

och så vill jag ha så att om det inte är någon bild i nyheten så ska det inte komma nått

Medlem sedan nov. 20017 144 inlägg
#14

Då måste du nästan lägga bilderna i en separat tabell och länka in varje bild med ett referensid. I annat fall så får du loopa ut dem ifrån kolumnen på någe vis. Jag fattar inte riktigt hur du har bilderna, men låt säga att dina bildnamn ligger kommaseparerade i kolumnen "antalbilder"(bild_1,bild_2,bild_3, osv.), så skulle du kunna göra något liknande. Som princip:

Dim bilder,i
bilder=split(RecSet("antalbilder"),",")
for i = lbound(bilder) to ubound(bilder)
Response.write "<img src="& bilder(i) &"><br>"
next
Medlem sedan maj 200335 inlägg
#15

nej nej.. har lixom bilderna i en mapp..

Medlem sedan maj 200335 inlägg
#16

Nu har jag fixat så bilderna visas, men så som jag har koden nu visas 1 bild, och sen måste man trycka på "nästa" för att se nästa... jag vill ha så att man kan kolla på alla bilderna samtidigt.
koden:
If picNum <= 0 OR picNum > numPics Then
Response.Write " "
Else

Response.Write "\<img src=""./spelbilder/" & thisID & "\_" & picNum & "".jpg"" width=""50"" height=""50"" border=""1""\>"
Response.Write "\<br\>\<br\>"

If (picNum - 1) Then

Response.Write "<a href=""viewpic.asp?ID=" & thisID & "&picNum=" & picNum - 1 & """>Färegående</a>"
End If

If picNum \< numPics Then
	Response.Write "\<a href=""viewpic.asp?ID=" & thisID & "&picNum=" & picNum + 1 & """\>N&auml;sta\</a\>"
End If

End If

Medlem sedan mars 20015 287 inlägg
#17
for i = 1 to numPics 
Response.Write "<img src=""./spelbilder/" & thisID & "_" & i & "".jpg"" width=""50"" height=""50"" border=""1"">" 
next

Kanske...

Medlem sedan maj 200335 inlägg
#18

hmm din kod verkade inte funka i mitt script.. nu har jag skrivit:
for picNum = 1 To numPics Step 1
Response.Write "<a href="./spelbilder/" & thisID & "_" & picNum & ".jpg""><img src=""./spelbilder/" & thisID & "_" & i & ".jpg"" width=""50"" height=""50"" border=""1""></a>"
next

och detta verkar inte funka heller :)

Medlem sedan nov. 20017 144 inlägg
#19

1. Vad händer?
2. Felmeddelande?

Medlem sedan mars 20015 287 inlägg
#20

Om nu numPics innehåller antalet bilder och att bilderna heter det som variabeln thisID heter samt sen 1.jpg 2.jpg osv Så tycker jag nog det bör fungera.
Vad skrivs det ut? Får du ut htmlkod som skriver ut rätt antal bilder? Blir då sökvägen till bilderna fel eller vad händer?

257 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)