“Segnala una pagina ad un amico”

[jan267]

Ecco un altro script, questa volta si tratta del modulo “Segnala una pagina ad un amico” e c`e` sia in VBScript che in JScript.
Ecco i 2 links:
• Script in VBScript
• Script in JScript
Bye

 

[jan267]

Tnx Luke

Luke ha fatto una osservazione giusta:
“... E se nella pagina ci fossero QueryString? ...”
E se nella pagina ci fossero querystring.. beh:

<%
Dim sitourl, paginaurl, pageurl, qs
sitourl = Request.ServerVariables("HTTP_HOST")
paginaurl = Request.ServerVariables("SCRIPT_NAME")
qs = Request.QueryString

pageurl = "http://" & sitourl
pageurl = pageurl & paginaurl
If len(qs) > 0 Then
     pageurl = pageurl & "?" & qs
End If
Response.write "<br><a href=""segnala.asp?act=ShowForm&url=" & pageurl & """>Segnala<br>questa pagina!</a></font><br>"
%>

ciau

 

[lukeonweb]

Grazie a te Jacopo

http://www.lukeonweb.net/tip.asp?lang=Asp&id=E_08

basta implementare questa variabile e concatenarla

var qstr = Request.ServerVariables("QUERY_STRING");