Erstatning af links

på activeserverpages.dk og netcoders.dk findes der et par enkelte link-replace-scripts... prøv at kig på dem

Det så ikke ud til at der var noget af det der kunne bruges, så jeg lavede min egen kode og nu virker det bare perfekt!

Her er koden jeg kom frem til:
<%
Set fso = CreateObject("Scripting.FileSystemObject")

Set Txt = fso.OpenTextFile( Server.Mappath("minfil.html"),1)
mytext = Txt.ReadAll
Txt.Close

While Instr(lcase(mytext),"href=") > 0

startpos = Instr(lcase(mytext),"href=")

if mid(mytext,startpos+len("href="),1) = """" then
    linkendpos = Instr( mid(mytext,startpos+len("href=")+1),"""")-1

    link = mid(mytext,startpos+len("href=")+1,linkendpos)

    if lcase(left(link,len("http://"))) <> "http://" then
        link = link_base_href & link
    end if

    link = addbeforelink & Server.URLEncode(link)

    beforetext = left(mytext,startpos+len("href="))
    aftertext = mid(mytext,startpos+len("href=")+1+linkendpos)

elseif mid(mytext,startpos+len("href="),1) = "'" then
    linkendpos = Instr( mid(mytext,startpos+len("href=")+1),"'")-1

    link = mid(mytext,startpos+len("href=")+1,linkendpos)

    if lcase(left(link,len("http://"))) <> "http://" then
        link = link_base_href & link
    end if

    link = addbeforelink & Server.URLEncode(link)


    beforetext = left(mytext,startpos+len("href="))
    aftertext = mid(mytext,startpos+len("href=")+1+linkendpos)

else
    linkendpos = Instr( mid(mytext,startpos+len("href=")),">")-1

    link = mid(mytext,startpos+len("href="),linkendpos)

    if lcase(left(link,len("http://"))) <> "http://" then
        link = link_base_href & link
    end if

    link = addbeforelink & Server.URLEncode(link)

    beforetext = left(mytext,startpos+len("href=")-1)
    aftertext = mid(mytext,startpos+len("href=")+linkendpos)
end if

response.write beforetext & link

'response.write EncToHTML(beforetext) & "<br>|"
'response.write EncToHTML(link) & "<br>|"

mytext = aftertext

Wend

response.write aftertext
%>

Mvh. Christoffer Thygesen

e-mail: cht@cht.dk
homepage: http://cht.dk