Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


aspUpload - Upload.Form - Sökvägsprb

Postades av 2004-11-09 16:27:44 - Kim Lundström, i forum asp - allmänt, Tråden har 1 Kommentarer och lästs av 450 personer

Hey

Har ett script ( se nedan ) som laddar upp bilder till servern. ( loopia ).
Det funkar rätt bra, förrutom en grejj.
Sökvägen.

Det är tydligen så att man kan inte hämta data från Upload.Form före man har kört upload.save.
Detta ställer till ett prb efterssom jag har en sökväg i upload.form som jag måsta komma åt innan jag sparar filen.

Känns lite grann som hönan och ägget.

Hur kan man lösa det? Nån som vet?

FORMULÄRET
__________________________________

<%
Response.Write "<FORM method=post name=uploadPic ENCTYPE=multipart/form-data action=XXX>"
Response.Write "<b>Välj mapp att ladda upp till</b><br>"
Response.Write "<SELECT name='targetFolder' style='width=100%;'>"

Set mappLista = Server.CreateObject("Scripting.FileSystemObject")
Set mainFolder = mappLista.GetFolder(Server.MapPath("images/galleri"))
Set myList = mainFolder.subFolders
For Each Folder in myList

Response.Write "<option value='" & Folder.Name & "'>" & Folder.Name & "</option>"

Next

Set mappLista = Nothing
Set mainFolder = Nothing
Set myList = Nothing

Response.Write "</SELECT><br><br>"

Response.Write "<b>Bläddra fram bilden/bilderna</b><br>"
Response.Write "<input type=file size=70 name=file01><br>"
Response.Write "<input type=file size=70 name=file02><br>"
Response.Write "<input type=file size=70 name=file03><br>"
Response.Write "<input type=file size=70 name=file04><br>"
Response.Write "<input type=file size=70 name=file05><br>"

Response.Write "<div align=right><input type=submit name=submit value='Ladda upp bilden'></div>"
Response.Write "</FORM><br>"
%>


SCRIPT
______________________

<%
	Set Upload = Server.CreateObject("Persits.Upload.1")
	Upload.OverwriteFiles = False
	On Error Resume Next
	Upload.SetMaxSize 1048576
	Count = Upload.Save(Server.mapPath("images/galleri/" & Upload.Form("targetFolder")))
%>


Svara

Sv: aspUpload - Upload.Form - Sökvägsprb

Postades av 2004-11-09 19:14:46 - Kim Lundström

Jag löste det...

<%
	Set Upload = Server.CreateObject("Persits.Upload.1")
	Upload.OverwriteFiles = False
	On Error Resume Next
	Upload.SetMaxSize 1048576
	Upload.Save

	subdir = Upload.Form("targetFolder")
	Path = Server.mapPath("images/galleri/" & subdir)
	Upload.CreateDirectory Path, True

	For Each File in Upload.Files
	File.SaveAs Path & "/" & File.FileName
	Next

	Session("message") = "Bilderna är uppladdade"
	Response.Redirect "default.asp?p=galleri"
%>


Svara

Nyligen

  • 21:28 Chicken Road Casino Game
  • 21:21 1xBet Promo Code 2025
  • 18:37 Remove the bumper in AUDI
  • 15:35 Chicken road crash game
  • 21:41 Automotive Services UK
  • 20:44 Erfarenhet av CBD-olja mot sömnpro
  • 12:13 Sex Dolls for Sale
  • 19:42 Online Casinos for Haitian Players

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 920
27 965
271 780
9 389
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies