Filoweb.it

Creare una serie di parole come link singolari ognuna


FB TW G+ 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 G+ 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 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 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