---
title: "visa asp-kod"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/74133-visa-asp-kod"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Wiberg"
published: "2003-04-15T08:38:46.000Z"
updated: "2003-04-15T12:12:08.000Z"
replies: 7
views: 278
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/74133-visa-asp-kod"
---

# visa asp-kod

## #1 — Wiberg, 2003-04-15T08:38Z

Kan man t.ex. mha FSO läsa in en ASP-sida och skriva ut källkoden (inkl asp)? Filen som läser in och filen som läses in ligger på samma server...

Permalänk: https://www.webforum.nu/p/74133

## #2 — @nders, 2003-04-15T08:41Z

Ja.

Permalänk: https://www.webforum.nu/p/1011076

## #3 — Wiberg, 2003-04-15T09:06Z

Du har inte lust att bidra med en gnutta kod för att avlasta min trötta hjärna? ;)

Permalänk: https://www.webforum.nu/p/1011101

## #4 — Sebbe, 2003-04-15T09:11Z

Är inte säker på det här, men det kan funka. :)

```
<%
Dim objFSO, objTS, strKod

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath("aspfil.asp"), 1)

Do Until objTS.AtEndOfStream
  strKod = strKod & objTS.ReadLine & vbCrLf
Loop

objTS.Close
Set objTS = Nothing
Set objFSO = Nothing

Response.Write(Replace(Server.HTMLEncode(strKod),vbCrLf,"<br>"))
%>
```

Modifieras efter behov. ;)

Permalänk: https://www.webforum.nu/p/1011104

## #5 — KoTTeN, 2003-04-15T09:20Z

Annars om inte sebbes alternativ, mot förmodan inte fungerar så funkar detta: :)

```
			

			strFilePath = Server.MapPath("fil.asp")

			Set objStream = Server.CreateObject("ADODB.Stream")
			objStream.Open
			objStream.Type = adTypeBinary
			objStream.LoadFromFile strFilePath
			
			Response.BinaryWrite objStream.Read
			
			objStream.Close
			Set objStream = Nothing
```

Permalänk: https://www.webforum.nu/p/1011109

## #6 — Wiberg, 2003-04-15T09:55Z

Tack!

Permalänk: https://www.webforum.nu/p/1011145

## #7 — Sebbe, 2003-04-15T09:57Z

Bara av ren nyfikenhet: funkade min kod? ;)

Permalänk: https://www.webforum.nu/p/1011148

## #8 — Wiberg, 2003-04-15T12:12Z

Ja. KoTTeNs kod fick jag däremot inte att funka... :)

Permalänk: https://www.webforum.nu/p/1014154

---

Tråden på webben: https://www.webforum.nu/amne/asp/74133-visa-asp-kod