% ' Dichiara variabili Dim strURL Dim aryURL Dim query Dim strPagina ' Assegna l'URL della pagina corrente strURL = Request.ServerVariables("URL") ' Splitta il percorso ai valori / aryURL = Split(strURL, "/") ' copia la query query = request.servervariables("QUERY_STRING") ' Prendi l'ultimo elemento dell'array strPagina = aryURL(Ubound(aryURL))&"?"& query %>
|
|
|
|
| Credit | Legal Disclaimer | Admin | Privacy Policy | © Copyright |