Filoweb.it

Creare una serie di parole come link singolari ognuna


FB TW whatsapp RSS FEED News letter
ASP
Creare una serie di parole come link singolari ognuna


Dim Con

Set Con = Server.CreateObject(" ADODB.Connection" )

con.Open " driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath(" /notediconoscenza/sapere.mdb" )

Dim rs

Set rs = Server.CreateObject(" ADODB.Recordset" )

rs.Open " select * from voci WHERE id=" &id, con ,1,3

dim tags

tags=rs(" tags" )

Dim tagsArray

tagsArray = Split(tags, " " )

dim ultimo

ultimo=UBound(tagsArray)

dim primo

primo=LBound(tagsArray)

dim tag

for t=primo to ultimo

tagsArray(t)=" <a href=parola.asp?parola=" & tagsArray(t) &" >" & tagsArray(t) & " </a>"

tag=tag & tagsArray(t) &" "

next

RS.Close

Set RS = Nothing

con.Close

Set con=Nothing

response.write(tag)
FB TW whatsapp RSS FEED News letter

filoweb.it è il sito personale di Filippo Brunelli
(c) 2017 Filippo Brunelli
Le immagini ed i testi contenuti nel sito filoweb.it sono di proprietà di Filippo Brunelli salvo diversamente indicato.
L'uso delle immagini e del testo è gratuito per uso personale ed è subbordinato alla citazione della fonte.
Brunelli Filippo declina ogni responsabilità per l'uso che viene fatto delle informazioni presenti nel sito filoweb.it.
FILOWEB.it Piccolo quaderno degli appunti. Argomento: ASP, Titolo:Creare una serie di parole come link singolari ognuna. Altri script riguardano: CSS, Jscript, .net, Classic Asp, HTML, Jquery, varie, url rewrite, pagina protetta da password, ecc. Altro su https://www.filoweb.it