Filoweb.it

Creare una serie di parole come link singolari ognuna


FB TW Pinterest 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 Pinterest 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