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...
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
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>
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