ASP Upload + SaveAS methode

[Markus]

Hi Leute hab ein Eintragungsformular mit Uploadmöglichkeit:

Benutze dazu ASPSmart.Upload:

Nun mein Problem möchte den hochgeladenen Dateien selbst namen vergeben und diese abspeichern soweit kein Problem mit SaveAS Methode aber wenn ich das eigentlich "Upload" mache habe ich dann 2 Dateien hochgeladen die mit dem ursprünglichen Namen und die unter SaveAs Namen.

Hier mein Code:

<%

Dim mySmartUpload
 Dim intCount
 Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

mySmartUpload.MaxFileSize = 1000

mySmartUpload.AllowedFilesList = "gif,jpg"

' Hier der eigentliche Upload..
 mySmartUpload.Upload

'Hier der SaveAS Upload mit meiner Bezeichnung
 'Wenn ich den eigentlichen upload oben weglasse kann ich das Item ("FILE1") nicht mehr ansprechen..

mySmartUpload.Files.Item("FILE1").saveas "/upload/test.jpg"

intCount = mySmartUpload.Save(Server.Mappath("/~upload/"))
 Response.Write(intCount & " Datei(en) hochgeladen")

%>

Wer kann mir da bitte weiterhelfen

Danke

MFG
Markus

[Odium]

Hallo,

wie oft willst du das denn noch fragen?
Du benutzt ein Zusatzmodul für den Upload, auf das wohl nicht standardmässig in VB zugegriffen werden kann. Also schau in dessen Dokumentation die du sicherlich vom Hersteller beziehen kannst.
Woher sollen wir denn wissen was so ein Zusatzmodul für ansprechbare Objekte und Eigenschaften besitzt.

http://www.aspsmart.com/

Odium

[Odium]

Ich hab das testweise mal gezogen, sag nicht das da keine helpfiles dabei sind.

Odium

[Markus]

Hi Odium

Kenne die Seite mittlerweie schon gut..

Aber wie gesagt komme damit nicht klar weil ich eben 2 mal die datei gespeichert bekomme wenn ich mich zb. an diese Beispiel halte:

<%
'  Variables
'  *********
   Dim mySmartUpload
   Dim file
   Dim intCount
   intCount=0

'  Object creation
'  ***************
   Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")

'  Upload
'  ******
   mySmartUpload.Upload

'  Select each file
'  ****************
   For each file In mySmartUpload.Files
   '  Only if the file exist
   '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  **************************************************************************
         file.SaveAs("/aspSmartUpload/Upload/" & file.FileName)
         ' sample with a physical path
         ' file.SaveAs("c:\temp" & file.FileName)

Es wird einerseits hier gespeichert mit orginalen Namen:

mySmartUpload.Upload

und andererseits hier mit selbst definierten namen:

file.SaveAs("/aspSmartUpload/Upload/testname")

Kenn die Codes schon aber nur bekomm ich halt leider 2 dateien gespeichert.

MFG
Markus

[Marco]

Da das Dokument bei: mySmartUpload.Upload zum erstenmal gespeichert wird....lösche doch einfach diese Zeile

[Markus]

Hi

Habe das Problem inzwischen gelöst:

Die Zeile muß bleiben:

mySmartUpload.Upload

Das eigentliche SaveAS auch:

mySmartUpload.Files.Item("FILE1").saveas "/upload/test.jpg"

Nur diese Zeile muß raus: (hier würde der orginal Name gespeichert werden)

intCount = mySmartUpload.Save(Server.Mappath("/~upload/"))

' Response.Write(intCount & " Datei(en) hochgeladen")

MFG
Markus

Da das Dokument bei: mySmartUpload.Upload zum erstenmal gespeichert wird....lösche doch einfach diese Zeile