Zum Inhalt springen

asp eigenen quellcode als txt sichern


Empfohlene Beiträge

Man kann ja auf jeden Fall im Internet-Explorer oder so ziemlich jedem anderen Browser den Quelltext der grad angezeigten Seite ausgeben lassen oder halt die HTML-Datei direkt speichern. So könntest du zumindest jede Seite als HTML bekommen. Wie sich das aber Automatisieren lässt, weiß ich nicht... - dürfte ein ziemlicher Programmieraufwand werden...

Du solltest allerdings auch vorher überlegen, ob das ASP-Projekt so überhaupt ohne den ASP-Code funzen könnte!

Dein größtes Problem wird da erstmal folgendes: Die Links auf den einzelnen Seiten werden so natürlich großteils nicht mehr funktionieren. Zum einen, weil die Dateiendung vorher ja meist nicht HTML war - und zum anderen, weil an die URL angehängte Variablen bzw. anderweitig übergebene Variablen ja keinen HTML-Dateien übergeben werden können - zumindest wird das nicht mehr funzen.

Nehmen wir z.B. eine Linkliste, die immer auf die selbe ASP-Seite mit einer ID als Anhängsel verlinkt, um dort anhand der ID Daten aus einer Tabelle zu holen. Du kannst nun jede Seite als HTML mit jeweils eigenem Namen speichern und dann die entsprechenden Links in der Liste entsprechend anpassen. Könnte zu einem extremen Aufwand ausarten - je nach Größe des Projekts...

Naja, und Formulare etc sind dann ja auch nicht mehr wirklich lauffähig...

Link zu diesem Kommentar
Auf anderen Seiten teilen

so, jetzt hab ich mal das msxml object verwendet um mir den quellcode meiner datei zu holen.

ausgeben funtioniert super, aber wenn ich den quelltext als textdatei sichern will geht das nicht. kommt ein fehler.

wenn ich den quelltext mal versuche über javascript auszugeben geht das auch nicht.

ich kann aber an den quelltext irgendeinen string dranhängen und das ganz im browser ausgeben, das geht.

kann das sein dass der quelltext irgendie gesperrt ist, doch kein "echter" string ist oder sonstiges??

hier mal mein asp code:

<%

Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")

objXmlHttp.open "GET", "http://MEINESEITE", False

objXmlHttp.send

strHTML = objXmlHttp.responseText

Set objXmlHttp = Nothing

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set fname=fso.CreateTextFile("c:\MEINESEITE.txt",true)

'HIER KOMMT DER FEHLER

fname.Write(strHTML)

'HIER KOMMT DER FEHLER ENDE

fname.Close

set fname = nothing

set fso = nothing

'DAS HIER GEHT ABER UND IM BROWSER SEHE ICH DIE KOMPLETTE SEITE

Response.Write strHTML

%>

hilfe!?

Link zu diesem Kommentar
Auf anderen Seiten teilen

wen es interessiert...

Const adTypeText = 2

Const adReadAll = -1

Dim objXmlHttp, objStream, fso, fname

Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP.4.0")

objXmlHttp.open "GET", "MEINESEITE", False

objXmlHttp.send

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Open

objStream.Type = adTypeText

objStream.WriteText (objXmlHttp.responseBody)

objStream.Position = 0

objStream.Charset = "latin1"

Set fso = Server.CreateObject("Scripting.FileSystemObject")

set fname=fso.CreateTextFile("MEINEDATEI",true)

fname.Write(objStream.ReadText(adReadAll))

'Response.Write objStream.ReadText(adReadAll)

fname.Close

set fname = nothing

set fso = nothing

objStream.close

Set objStream = Nothing

Set objXmlHttp = Nothing

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...