Vise indhold af fil

Jeg har lavet et script her. I din tekstfil skal du bare huske at lade den første linie være blank. Du skal også huske at ændre 'test.txt' til det rigtige filnavn. Du kan sagtens kalde det fra en andre sider. Bare skriv  følgende sætning i de sider:
<!-- #include virtual="/testpage/links.asp" -->
, hvis filen hedder links.asp, og ligger i c:\Inetpub\wwwroot\testpage\

Here it goes:


<%
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")

    ReadFile = Server.MapPath ("test.txt")
    Set OutStream= FileObject.OpenTextFile (ReadFile, 1, TRUE)
    do while not OutStream.AtEndOfStream
    OutStream.SkipLine
        CurRead = ""
    CurLink = ""
    CurTitle = ""
    LinkMode = False
    do while not OutStream.AtEndOfLine
    CurRead = OutStream.Read(1)
    if LinkMode then
    CurLink = CurLink & CurRead
    else
   
    if not (CurRead = ";") then
    CurTitle = CurTitle & CurRead
    LinkMode = False
    else
    LinkMode = True
    end if
   
    end if
   
    loop
    %>
    <a href="<%= CurLink %>"><%= CurTitle %></a><br>
    <%
   
    loop
    Set OutStream = Nothing

%>


/ortrak