Søg
Avatar billede jakobclausen Nybegynder
29. april 2003 - 18:35 Der er 33 kommentarer og
1 løsning

Udskrive source

Jeg har nogle Asp filer liggende på en server, og vil gerne have mulighed for at kunne se sourcen på dem.

Havde tænkt mig at man kunne lave en viskilde.asp fil, som man så kunne tilgå vha: viskilde.asp?fil?side.asp som så kunne udskrive sourcen på side.asp

tror man skal bruge dette: http://www.devguru.com/Technologies/asp/quickref/server_htmlencode.html men kender ikke nok til selv at kunne lave det.

Er der nogen der kan lave dette for mig?
Avatar billede jakobclausen Nybegynder
29. april 2003 - 18:36 #1
rettelse: viskilde.asp?fil?side.asp  -> viskilde.asp?fil=side.asp
Avatar billede medions Nybegynder
29. april 2003 - 18:46 #2
Nope, det kan ikke lade sig gøre i ASP, kun i PHP!
- Server.HTMLEncode() funktionen konvetere blot normale tegn osv. til HTML format!
Det vil sige at:
< bliver til &lt;

//>Rune
Avatar billede r*nger Nybegynder
29. april 2003 - 18:54 #3
Selvfølgelig kan det lade sig gøre i ASP, PHP har bare en fin, indbygget funktion, der sætter farver på og det hele.

Jeg er ikke så skrap til ASP, men du skal kigge efter funktioner der kan åbne en fil og læse fra den. Det du læser, skal så sendes ud til browseren - og her kan du passende bruge HTMLEncode, så browseren ikke begynder at fortolke din kode som HTML.

/ Martin Seebach
Avatar billede mm12010 Nybegynder
29. april 2003 - 18:55 #4
det får du ikke noget ud af

du kan prøve at lege med Server.CreateObject("Scripting.FileSystemObject") og så læse indholdet som en txt-fil
Avatar billede medions Nybegynder
29. april 2003 - 18:57 #5
r*nger> Det er selvf. rigtig nok, man kan gøre det med FSO (File System Object) -men Det er jo ikke lige frem lige til! ;o)

<%
' Variabler
Dim fso, f, filespec

' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.ServerVariables("SCRIPT_NAME"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)


' Luk tekstfilen igen
f.Close
%>

-men det syntes jeg bestemt ikke er en optimal løsning efter det han spørger om...

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:00 #6
Jeg kender meget lidt til asp, så jeg vil meget gerne have en komplet fil!
Avatar billede medions Nybegynder
29. april 2003 - 19:01 #7
Øhh, har jeg da lige givet dig!!

<%
If Request.QueryString("fil") <> "" Then
' Variabler
Dim fso, f, filespec

' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.QueryString("fil"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)


' Luk tekstfilen igen
f.Close
End If
%>

//>Rune
Avatar billede medions Nybegynder
29. april 2003 - 19:03 #8
Og så selvf. udskrive teksten:

<%
If Request.QueryString("fil") <> "" Then
' Variabler
Dim fso, f, filespec

' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.QueryString("fil"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop


' Luk tekstfilen igen
f.Close
End If
%>

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:06 #9
Burde jeg så bare kunne skrive viskilde.asp?fil=side.asp

når jeg har gemt koden i viskilde.asp ??
Avatar billede medions Nybegynder
29. april 2003 - 19:07 #10
Ja!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:08 #11
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A0411)
Navnet er omdefineret
/asp/viskilde.asp, line 24, column 4
Dim fso, f, filespec
---^
Avatar billede medions Nybegynder
29. april 2003 - 19:08 #12
<%
If Request.QueryString("fil") <> "" Then
' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.QueryString("fil"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop


' Luk tekstfilen igen
f.Close
End If
%>

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:12 #13
Kan ikke få det til at virke, kan du ikke prøve at maile filen til mig: eksperten@bokaj.dk
Avatar billede medions Nybegynder
29. april 2003 - 19:15 #14
Øhh jeg har ikke nogen fil, jeg har skrevet hele koden her på eksperten!
-Hvorfor kan du ikke få det til at virke??
-De filer som du prøver at vise, skal ligge i det samme bibliotek som "visfil.asp"
-hvis du prøver scriptet af på din egen computer og du har Norton Antivirus, så skal du slå VBScript protection fra!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:19 #15
medions >> Ja men du kan vel sætte koden ind i et eller andet program, sådan som det nu skal stå og gemme som viskilde.asp

- Der sker ikke det mindste når jeg skriver viskilde.asp?fil=side.asp
- De ligger i samme mappe
- Hvordan slår jeg det fra?
Avatar billede medions Nybegynder
29. april 2003 - 19:24 #16
<html>
<head>
  <title>Din første hjemmeside!!!</title>
</head>
<body>

<%
' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.QueryString("fil"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop


' Luk tekstfilen igen
f.Close
%>


</body>
</html>

Prøv lige sådan, altså sæt overstående ind i Notepad, og gem det som "viskilde.asp" (husk at sætte " og " rundt om filnavnet når du gemmer det)
-Åben programmet  Norton AntiVirus -> Option -> Script Blocking -> Enable Script Blocking HER skal du fjerne hakket!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:27 #17
Kan ikke få det til at virke! Det virker meget som om det er rent tilfældigt det du slynger ud: "Prøv lige sådan"

Kan du ikke selv prøve at gemme det, og se om du kan få det til at virke, jeg kan ikke
Avatar billede medions Nybegynder
29. april 2003 - 19:31 #18
jakobclausen> Jeg HAR lige testet det selv, og det virker fint her..!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:32 #19
medions >> prøv lige at maile filen til mig: eksperten@bokaj.dk

Så prøver jeg lige at smide det op på en server denne gang!
Avatar billede medions Nybegynder
29. april 2003 - 19:36 #20
Sendt

//>Rune
Avatar billede medions Nybegynder
29. april 2003 - 19:40 #21
Prøv evt. sådan her:

<html>
<head>
  <title>Din første hjemmeside!!!</title>
</head>
<body>

<textarea cols="30" rows="40">
<%
' Filesystem objektet
Set fso = CreateObject("Scripting.FileSystemObject")

' Find den fysiske placering af tekstfilen
filespec = Server.Mappath(Request.QueryString("fil"))

' Åbn tekstfilen
Set f = fso.OpenTextFile(filespec,1)

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop


' Luk tekstfilen igen
f.Close
%>
</textarea>


</body>
</html>

-så indsættes alt koden i et TextArea, så afvikles den ikke!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:42 #22
Filen ligger her: http://web2.ikasths.dk/mmd2207/asp/viskilde.asp

og i samme mappe ligger filen besti.asp -> http://web2.ikasths.dk/mmd2207/asp/viskilde.asp?fil=bestil.asp

Det er ikke helt lige hvad jeg har forstillet mig!
Hvorfor er titlen "Din første hjemmeside"
Avatar billede medions Nybegynder
29. april 2003 - 19:44 #23
Har du prøvet med det eksempel jeg gav dig lige overnfor?

-nu sender jeg det lige komplet til dig igen!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:45 #24
Den sidste ser derimod ud til at virke:
http://web2.ikasths.dk/mmd2207/asp/viskilde1.asp?fil=bestil.asp
Avatar billede medions Nybegynder
29. april 2003 - 19:48 #25
Der kan man bare se!
-Venligst accepter spm'et hvis du har fået dit svar!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:51 #26
jaja rolig nu!

Man kan ikke gøre noget for at teksten bliver lidt mere overskuelig. F.eks. ala http://web2.ikasths.dk/mmd2207/asp/bestil.txt
Avatar billede medions Nybegynder
29. april 2003 - 19:53 #27
Jov... Replace alle dine < og > tags, til &lt; og &gt; og så fjerne <textarea> og </textarea>

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:54 #28
Men der er ikke mulighed for at man kan ligge det ind i viskilde.asp ?
Avatar billede medions Nybegynder
29. april 2003 - 19:56 #29
?
Avatar billede jakobclausen Nybegynder
29. april 2003 - 19:57 #30
Kan man skrive noget i asp kode på viskilde.asp så ledes at det kommer til at stå mere overskueligt, det der bliver udskrevet ?
Avatar billede medions Nybegynder
29. april 2003 - 20:00 #31
Så har jeg sendt dig en ny mail...

//>Rune
Avatar billede medions Nybegynder
29. april 2003 - 20:00 #32
-og mere gør jeg ikke for 15 points!

//>Rune
Avatar billede jakobclausen Nybegynder
29. april 2003 - 20:04 #33
Jeg takker
Avatar billede medions Nybegynder
29. april 2003 - 20:06 #34
Thx 4 Poinz

//>Rune
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 8 17/09/202611:37 I går 10:39
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
17/0914:55 Hente WordPad til Windows 11 Af Strawberry i Andet software
17/0911:37 Persits.Upload Af bsn i ASP
16/0918:13 oprette et installationsmedie Af Malm i Windows
16/0913:11 Adapterstik stik på ladekabel til USB-C Af ErikHg i Andet software
White papers
Flere white papers »