Glengamoi (Forum) · AspHeute · .NET Heute (RSS-Suche) · AspxFiles (Wiki) · .NET Blogs

Laden von Dateien aus dem Web mit ASP

Geschrieben von: Christian Koller
Kategorie: ASP Tricks

This printed page brought to you by AlphaSierraPapa

Um spezielle Anwendungen, wie Suchmaschinen oder Spider, mittels Active Server Pages programmieren zu können, benötigt man eine ASP-Komponente, die Dateien (und eventuell Bilder) aus dem Internet laden kann.

Ich möchte hier den Einsatz einer solchen Komponente am Beispiel der AspTear Komponente von AlphaSierraPapa erklären.

Nachdem die Installation der AspTear Komponente am Webserver abgeschlossen ist, kann man aus ASP-Scripts, aber auch aus Word, Excel und Access, Daten aus dem Internet abfragen.

Laden einer Textdatei aus dem Web

AspTear erlaubt es, Textdateien aus Web zu lesen. Der Inhalt der Textdatei kann an die ASP-Seite übergeben und dort weiterverarbeitet werden.

Bevor die Komponente in einer ASP-Seite benutzt wird, muß zuerst eine Instanz der Komponente erstellt und in einer Variable gespeichert werden:

<% @Language=VBScript %>
<%
Option Explicit

' Konstanten fuer AspTear definieren
Const atPost = 1
Const atGet = 2
Const atHead = 3

Dim objAspTear, strWebDatei, strDateiInhalt

' Objektinstanz von AspTear erstellen
Set objAspTear = Server.CreateObject("SOFTWING.ASPtear")      

' Zu ladende Datei
strWebDatei = "http://www.aspheute.com/default.asp"

' Inhalt der Datei laden und speichern
' Syntax: Retrieve(URL, Methode, Daten_Zur_Webseite, 
'                        Benutzername, Passwort)
strDateiInhalt = objAspTear.Retrieve(strWebDatei, atGet, "", "", "")

' Objektresourcen freigeben
Set objAspTear = Nothing

' Inhalt von http://www.aspheute.com/default.asp ist nun in
'  strDateiInhalt gespeichert
Response.Write strDateiInhalt
%>

Bilder kann man auf diese Weise aber nicht verarbeiten.

Speichern von Daten aus dem Web

Dateien aus dem Internet holen und direkt auf der Festplatte speichern ist eine weitere Funktionalität der AspTear Komponente. Zu diesem Zweck stellt die Komponente die Save Methode zur Verfügung.

Mit Hilfe der Save Methode kann man sowohl Text-Dateien als auch Grafiken aus dem Internet (und natürlich auch aus dem Intranet) direkt auf die Festplatte des Webservers (oder einem Netzwerkverzeichnis) schreiben.

Das folgende Beispiel zeigt, wie man Bilder direkt auf die Fesplatte lädt:

<% @Language=VBScript %>
<%
Option Explicit

' Konstanten fuer AspTear definieren
Const atPost = 1
Const atGet = 2
Const atHead = 3

Dim objAspTear, strUrl, strDatei, blnSpeichernErfolgreich

' Objektinstanz von AspTear erstellen
Set objAspTear = Server.CreateObject("SOFTWING.ASPtear")      

' Zu ladende Datei
strUrl = "http://www.aspheute.com/Images/Layout/aspheutetitle.gif"

' Wird auf der Festplatte gespeichert als:
strDatei = "C:\Temp\aspheutetitle.gif"

' Inhalt der Datei laden und auf Festplatte speichern
' Syntax: Save(URL, Methode, Daten_Zur_Webseite, 
'                    Dateiname, Benutzername, Passwort)
objAspTear.Accept = "*/*"
blnSpeichernErfolgreich = objAspTear.Save(strUrl, atGet, "" , strDatei, "", "")

If blnSpeichernErfolgreich Then
	Response.Write "Datei erfolgreich gespeichert."
Else	
	Response.Write "Datei nicht gespeichert."
End If

' Objektresourcen freigeben
Set objAspTear = Nothing

' Inhalt von http://www.aspheute.com/Images/Layout/aspheutetitle.gif ist nun in
'  der Datei C:\Temp\aspheutetitle.gif gespeichert
%>

Beide Beispiele zeigen die Grundfunktionaliät von AspTear. Taucht beim Ladevorgang einer Datei aus dem Web ein Fehler auf, so gibt AspTear diesen Fehler als Run-Time Fehler an die aufrufende ASP-Seite weiter. Deshalb sollten ASP-Seiten, die AspTear, oder andere Komponenten benutzen, stets eine Fehlerbehandlung enthalten.

Weitere Funkionalitäten von AspTear

AspTear kann nicht nur Dateien aus dem Webserver laden. Es kann beim Abruf der Datei auch Daten zur Datei schicken. Dabei geht es auf die selbe Weise vor, wie ein Browser, der eine Formular (mit POST oder GET) abschickt. Ausserdem kann man noch weitere Funktionalitäten eines Browsers mit der AspTear Komponente simulieren.

This printed page brought to you by AlphaSierraPapa

Download des Codes

Klicken Sie hier, um den Download zu starten.
http://www.aspheute.com/code/20000519.zip

Links zu anderen Sites

AspTear Dokumentation
http://www.alphasierrapapa.com/ComponentCenter/AspTear/Help/
Einfaches AspTear Beispiel
http://www.alphasierrapapa.com/ComponentCenter/AspTear/Help/examples-basic.html
Produktseite AspTear
http://www.alphasierrapapa.com/ComponentCenter/AspTear/

©2000-2006 AspHeute.com
Alle Rechte vorbehalten. Der Inhalt dieser Seiten ist urheberrechtlich geschützt.
Eine Übernahme von Texten (auch nur auszugsweise) oder Graphiken bedarf unserer schriftlichen Zustimmung.