Avatar billede wenzell Nybegynder
21. juli 2004 - 17:16 Der er 6 kommentarer

Indlæse forskellige tekst-filer forskellige steder i ASP-dokument

Hejsa -

Jeg prøver at lave et dokument, hvor flere txt-filer skal indlæses forskellige steder i samme ASP-dokument. Jeg kan godt indhente et enkelt dokument, men gentager jeg ASP-koden, så kager både den nye og gamle kode... Koden er som følger:

bla bla bla ...

<div id="t1">
                    <span class="subhead">Om jensen & bugge</span>
                    <p><%
                        Dim fso, f, filespec
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec = Server.Mappath("jensen-bugge.txt")
                        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

                        f.Close
                    %></p>
                </div>
                <div id="t2">
                    <span class="subhead">aktuelt</span>
                    <p><%
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec = Server.Mappath("aktuelt.txt")
                        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

                        f.Close
                    %></p>
                </div>

...bla bal bla...
Avatar billede goose Nybegynder
21. juli 2004 - 18:08 #1
Kan du ikke blot include dine filer i stedet for ?

<div id="t1">
<span class="subhead">Om jensen & bugge</span>
<p>
<!--#include file="jensen-bugge.txt"-->
</p>
</div>
<div id="t2">
<span class="subhead">aktuelt</span>
<p>
<!--#include file="aktuelt.txt"-->
</p>
</div>

/Goose
Avatar billede wenzell Nybegynder
22. juli 2004 - 10:40 #2
Det er selvfølgelig en meget bedre idé, men det virker ikke ...??
Avatar billede wenzell Nybegynder
22. juli 2004 - 10:52 #3
...og laver den så også de linie-skift der står i txt-filen?

Jeg bad nemlig ASP'en at læse hver linie og indføre et <br>, før den igen læser næste linie... ??
Avatar billede goose Nybegynder
22. juli 2004 - 11:15 #4
hmm, hvad så hvis du bruger følgende:

<div id="t1">
                    <span class="subhead">Om jensen & bugge</span>
                    <p><%
                        Dim fso, f, filespec
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec = Server.Mappath("jensen-bugge.txt")
                        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

                        f.Close
                    %></p>
                </div>
                <div id="t2">
                    <span class="subhead">aktuelt</span>
                    <p><%
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec2 = Server.Mappath("aktuelt.txt")
                        Set f2 = fso.OpenTextFile(filespec2,1)

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

                        f2.Close
                    %></p>
                </div>

- ved ikke om det vil virke, men jeg har en ide om at det måske er fordi du bruger samme variabler at det går galt ?

/Goose
Avatar billede wenzell Nybegynder
22. juli 2004 - 11:33 #5
Når jeg gør det får jeg samme problem som før (at den hverken vil vise 'jensen-bugge' eller 'aktuelt'?? Browseren laver et popup-vinduet:

"Der opstod fejl under kørslen
Vil du søge efter fejlen?
Linje: 34
Fejl: Et objekt er obligatorisk"

- Linie 34 er mit CSS, som ellers altid har afviklet fint?

Jeg poster hele koden af side (selv om den er lang) - det kan måske være at der ligger en fatal fejl, som jeg ikke selv har fundet..?

___________________________________________________________

<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

    <head>
        <meta http-equiv="content-type" content="text/html;charset=ISO-8859-1">
        <title>JENSEN & BUGGE - dansk folkemusik duo!</title>
        <script type="text/javascript" language="Javascript"><!--

function nothing() // dummy url
    {
    }
   
function non()
    {
    alert("The menu links are non-functional");
    }

   
function show(n)
    {
    if (document.getElementById)
        {
        var text0 = document.getElementById("t0");
        var text1 = document.getElementById("t1");
        var text2 = document.getElementById("t2");
        var text3 = document.getElementById("t3");
        var text4 = document.getElementById("t4");
        var text5 = document.getElementById("t5");
        var text6 = document.getElementById("t6");
        var text7 = document.getElementById("t7");
       
        for(i=0;i<=7;i++) // hide all text boxes
            {
            eval("text"+i).style.visibility = "hidden";
            }
            // then show the one we want
        eval("text"+n).style.visibility = "visible";
        }
    else
        {
        return false;
        }
    }
//-->   
</script>
        <style type="text/css" media="screen"><!--
body
    {
    color: black;
    background-color: #663333;
    background-image: url("pics/frame-baggrund.gif");
    background-repeat: repeat;
    background-attachment: fixed;
    margin: 0px
    }

#horizon       
    {
    color: white;
    background-color: transparent;
    text-align: center;
    position: absolute;
    top: 50%;
    left: 0px;
    width: 100%;
    height: 1px;
    overflow: visible;
    visibility: visible;
    display: block
    }

#menu
    {
    font-family: Verdana, Geneva, Arial, sans-serif;
    background-color: transparent;
    margin-left: -110px;
    position: absolute;
    top: 30px;
    left: 70%;
    width: 219px;
    height: 61px;
    visibility: visible
    }

#a-menu
    {
    font-family: Verdana, Geneva, Arial, sans-serif;
    background-color: transparent;
    text-align: left;
    margin-top: -135px;
    margin-left: -395px;
    position: absolute;
    top: 50%;
    left: 50%;
    height: 61px;
    visibility: visible
    }

#content   
    {
    font-family: Verdana, Geneva, Arial, sans-serif;
    background-color: transparent;
    background-image: url("pics/baggrund.gif");
    background-repeat: no-repeat;
    background-attachment: fixed;
    margin-left: -395px;
    position: absolute;
    top: -245px;
    left: 50%;
    width: 790px;
    height: 490px;
    visibility: visible
    }

.bodytext
    {
    font-size: 14px
    }

.headline
    {
    font-weight: bold;
    font-size: 24px
    }

   
.subhead
    {
    color: red;
    font-weight: bold
    }   
   

.a-menu
    {
    font-family: Verdana, Geneva, Arial, sans-serif;
    font-weight: normal;
    color: #663320;
    font-size: 150px
    }


a:link, a:visited
    {
    color: #06f;
    text-decoration: none
    }

a:hover
    {
    color: red;
    text-decoration: none
    }

#t0   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: visible;
    display: block
    }

#t1   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t2   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t3   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t4   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t5   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t6   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

#t7   
    {
    position: absolute;
    top: 57%;
    left: 200px;
    width: 550px;
    height: 200px;
    visibility: hidden;
    display: block
    }

--></style>
    </head>

    <body>
        <div id="horizon">
            <div id="content">
                <div id="menu"><img src="pics/menu-off.gif" alt="" usemap="#camera" border="0"><map name="camera">
<area title="om jensen & bugge" onmouseover="show(1)" onClick="" shape="rect" coords="1,1,160,16" href="#nothing()" alt="">
<area title="aktuelt" onmouseover="show(2)" onClick="" shape="rect" coords="40,16,106,28" href="#nothing()" alt="">
<area title="mp3" onmouseover="show(3)" onClick="" shape="rect" coords="170,16,200,28" href="#nothing()" alt="">
<area title="pressemateriale" onmouseover="show(4)" onClick="" shape="rect" coords="20,28,157,39" href="#nothing()" alt="">
<area title="gæstebog" onmouseover="show(5)" onClick="" shape="rect" coords="100,39,173,48" href="#nothing()" alt="">
<area title="kontakt" onmouseover="show(6)" onClick="" shape="rect" coords="30,48,96,63" href="#nothing()" alt="">
<area title="links" onmouseover="show(7)" onClick="" shape="rect" coords="173,48,240,63" href="#nothing()" alt=""></map></div>

            <div class="bodytext">
                <div id="t0">
                    Dette er JENSEN & BUGGEs starttekst og start-side - Velkommen...</div>
                <div id="t1">
                    <span class="subhead">Om jensen & bugge</span>
                    <p><%
                        Dim fso, f, filespec
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec = Server.Mappath("jensen-bugge.txt")
                        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

                        f.Close
                    %></p>
                </div>
                <div id="t2">
                    <span class="subhead">aktuelt</span>
                    <p><%
                        Set fso = CreateObject("Scripting.FileSystemObject")
                        filespec2 = Server.Mappath("aktuelt.txt")
                        Set f2 = fso.OpenTextFile(filespec2,1)

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

                        f2.Close
                    %></p>
                </div>
                <div id="t3">
                    <span class="subhead">mp3</span>
                    <p>    <b><a href="/pressemateriale/mp3-1.mp3">nr. 1 >> Fynbo af Helge Sørensen</a></b><br>
                        <b><a href="/pressemateriale/mp3-2.mp3">nr. 2 >> Vals efter Lilian Vammen</a></b><br>
                        <b><a href="/pressemateriale/mp3-3.mp3">nr. 3 >> Rheinlænder fra Læsø efter Madvig Vilsen</a></p>
                </div>
                <div id="t4">
                    <span class="subhead">pressemateriale</span>
                    <p>Used to move backwards through the menu items or to Cancel operations.</p>
                </div>
                <div id="t5">
                    <span class="subhead">gæstebog</span>
                    <p>Move to the Menu item above or, in shooting mode, zoom-in (tele).</p>
                </div>
                <div id="t6">
                    <span class="subhead">kontakt</span>
                    <p>bla bla bla</p>
                </div>
                <div id="t7">
                    <span class="subhead">links</span>
                    <p>bla bla bla</p>
                </div>
            </div>
        </div>
        <div id="a-menu"><span class="a-menu">AKTUELT</span></div>
    </body>
</html>
Avatar billede kimovitch Nybegynder
24. juli 2004 - 13:20 #6
Hey Wenzell

Din postede kode virker upåklageligt på min maskine, så det kunne lyde som om det er noget i dine txt-filer (måske specielt aktuelt.txt), der laver knas. Har du scripts i txt-filerne?

-Kim
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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.

Du kan også logge ind via nedenstående tjenester