DevTrain

Autor: Bernhard Elbl

WSC-Upload mit ASP

Dateien mit ASP auf dem Server uploaden, ohne eine Komponente registrieren zu müssen?
Die Lösung heißt MetaBuilder.FileUp.wsc
Es handelt sich um eine Script-Komponente. Die sehr einfach zu verwenden ist.

Die Datei sollte im selben Verzeichnis liegen, wie die Dateien, die auf sie zugreifen.
Nachteil: Die Geschwindigkeit des Uploads ist alles andere als berauschend.

Als erstes baue ich eine HTML-Form mit einem File-Feld und einem Submit-Button.
Die Upload-Datei wird per POST und der enctype: multipart/form-data über HTTP an den Server geschickt.

Alles was ich in der Form benötige ist das hier.
_upload.htm
...
<body>
<form method="post" action="uploadinfo.asp" enctype="multipart/form-data">
<table>
<input type="file" name="File1">
<input type="submit" name="submit" value="Speichern">
</form>
...

Auf der Seite uploadinfo.asp wird die Script Komponente instanziiert.
Diese kann per GetObject ausgelesen und verwendet werden.
<%
strPath = "script:" & Server.MapPath("./MetaBuilders.FileUp.wsc" )
set MBRequest = GetObject( strPath )
 ' hier evtl. Features einbauen, z.B.
 ' Response.Write MBRequest.Path
 MBRequest("File1").Save
set MBRequest = nothing
%>


Features der Komponente: (Diese müssen vor .Save stehen)
Abfragemöglichkeiten
Pfad, von dem die Datei kommt
Response.Write MBRequest("File1").Path

Der Orginal-Dateiname
Response.Write MBRequest("File1").FileName

Extension der Orginal-Datei z.B. exe,jpg,bmp
Response.Write MBRequest("File1").Extension

Der MIME/ContentType der Datei (z.B. image/jpeg)
Response.Write MBRequest("File1").ContentType

Zuweisen von Aufgaben
Speicherpfad, in der die Datei gespeichert wird
MBRequest("File1").SavePath = "C:\verzeichnis\unterverz\"

Überschreiben von Dateien zulassen. Standardmäßig auf false
MBRequest("File1").Overwrite = true

Speichern der Datei auf dem Server auslösen
MBRequest("File1").Save

Speichern der Datei auf dem Server mit Namensänderung
MBRequest("File1").SaveAs
z.B. so im Code integrieren
MBRequest.("file1").SaveAs("neuerName." & MBRequest("file1").Extension)

 Objekt zerstören
set MBRequest = nothing

Unten können Sie den ASP-Code und die WSC-Komponente downloaden.


Erfasst am: 23.03.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=398
© Copyright 2003 ppedv AG - http://www.ppedv.de