Linkmaker

Sæt <A HREF=\" for an, og \">link</A> bagefter.

60 point = svært spørgsmål


150 point er alt alt for meget.


www.fotx.net/dumdum

æhm det er ikke det jeg mener

jeg mener at den automatisk skal sætte <a href> ind i den tekst jeg skriver... ikke at jeg selv skal gøre det... derfor automatisk

Er dit nyhedssystem udtræk fra en database eller ??

Måske:

response.write(\"<a href=\" & RS(\"link\") & \">\" & RS(\"link\") & \"</a>\")

Skriver jeg i min nyhedsopretter;
tekst tekst og på siden www.jubii.dk finder du en søgemaskine tekst tekst tekst

Når det bliver vist på min nyhedsside, vil jeg så have at linket ovenover automatisk er blevet lavet klikbart

og ja den udtrækker fra en DB

150 point => pointinflation => ekspertens pointsystem mister sit formål.


www.fotx.net/dumdum

Nåå...

Gør den ik det selv, hvis du skriver www. foran ??

kan man ikke bruge replace() på en eller anden måde.

kan man måske gøre sådan:

www. bliver skiftet ud til <a href=\"www.
og .dk bliver udskiftet til \"></a>
string2 = replace(string1, www., <a href=\"www.) og
string3 = replace(string2, .dk, \"></a>.)

et vildt skud, på en løsning!

og så gøre det samme med .com, .org, .net osv.

mathiasiversen det virker ik :(

dumdum... det mister da ikke sit formål... dette er en ret svær opgave for ellers havde jeg sq løst den selv... jeg er da nød til at give folk nogen, hvis de gider bruge tid på at hjælpe mig

string2 = replace(string1, www., \"<a href=\"www.\") og
string3 = replace(string2, .dk, \"\"></a>.\")

husk at din tekst nu ligger i string 3

hvor har du sin tekst!
i et recordset?

<%=rs(\"nyhed\")%> sådan hiver jeg min nyhed ud fra db\'en

gimdner>> Hvis du mener at din opgave er \"ret svær\" bør du udlodde 60 point.

Hvis man udlodder meget mere end disse 60, er man med til at skabe en inflation i pointsene, hvilket gør at pointgivningen kommer ud af proportion.


www.fotx.net/dumdum

Jeg har lave denne function. Konvertere web og email adrsser til links:


Function LinkString(strInput)
    Set objRegExpHTTP1 = New RegExp
    Set objRegExpHTTP2 = New RegExp   
    Set objRegExpEMail = New RegExp

    objRegExpHTTP1.Pattern = \"(http|ftp)(:\\/\\/[\\w\\._-]+\\.[\\w\\._-]+\\S*)\"
    objRegExpHTTP2.Pattern = \"(^|[^\\/])(www[^\\.\\s]?\\.[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"
    objRegExpEMail.Pattern = \"([\\w\\._-]+@[\\w\\._-]+\\.[A-Za-z]{2,3}\\S*)\"

    objRegExpHTTP1.Global = True
    objRegExpHTTP2.Global = True
    objRegExpEMail.Global = True

    objRegExpHTTP1.IgnoreCase = True
    objRegExpHTTP2.IgnoreCase = True
    objRegExpEMail.IgnoreCase = True

    strOutput = objRegExpEMail.Replace(strInput, \" <a href=\'mailto:$1\'>$1</a> \")
    strOutput = objRegExpHTTP1.Replace(strOutput, \" <a href=\'$1$2\' target=\'_blank\'>$1$2</a> \")
    strOutput = objRegExpHTTP2.Replace(strOutput, \" <a href=\'http://$2\' target=\'_blank\'>$2</a> \")
       
    Set objRegExpHTTP2 = Nothing
    set objRegExpHTTP1 = Nothing
    Set objRegExpEMail = Nothing

    LinkString = strOutput
End Function



eks:
response.write LinkString(rs(\"tekstfelt\"))

nå ok, det ser lidt smartere ud :)

hvor skal jeg placere koden?

du kan ligge function først eller sidst i koden.

<%
function LinkString(strInput)
..
end function
%>

<html>
<head>
...
</html>

hhhmmm jeg kan altså ikke få det til at virke :(

Her er hele det stykke som trækker min nyhed ud... hvordan skal det se ud med det nye?

<DIV STYLE=\"text-align : justify;\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><%=rs(\"nyhed\")%><br>

<DIV STYLE=\"text-align : justify;\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><%=LinkString(rs(\"nyhed\"))%><br>

super det var bare mig der var en snotskovl... .synes jeg havde prøvet det.... tak eagleeye!