Originariamente inviato da Dirk Pitt
Visto che qui siamo sul forum di asp, non sappiamo un bel niente di php (almeno per me è così, o quasi). Di conseguenza spiegaci cosa fà quel codice.
omo di poca fede, capisci dai commenti cosa fa lo script 
codice:
sub mostraLink(da,num_link)
dim to_i
if theresArray=true then
to_i=da+num_link
if (to_i)>ubound(links) then to_i=ubound(links)
for i=da to to_i
response.Write(links(i) & "
")
next
else
response.Write("array link vuoto")
end if
end sub
dim fso,file,path,count
path=server.MapPath("link.txt")
set fso=Server.CreateObject("scripting.filesystemobject")
count=0: theresArray=false
if fso.FileExists(path) then
set file=fso.OpenTextFile(path, 1)
'//reggo le linee
while not file.AtEndOfLine
theresArray=true
Redim preserve links(count)
links(count)=file.readline
count=count+1
wend
file.close
set file=nothing
end if
call mostraLink(22,86)