Ho letto solo ora (scusate),

il mio codice crea la pagina fisicamente non bisogna metterle manualmente ecc... Non crea mappe ma decidi tu: htm html txt ecc...

Bè la soluzione non sarebbe difficile,

io parlo facendola in asp cioè:

farei una funzione di questo tipo
<%function verifica(link)
StrURL = link
Set objXMLHTTP = Server.CreateObject("MSXML2.XMLHTTP")
On Error Resume Next
objXMLHTTP.Open "GET", StrURL, false
objXMLHTTP.Send
statuscode = objXMLHTTP.Status
Set objxml = Nothing
if CInt(statuscode) = 200 then%>
[ x ] - Occupato
<%else%>
<strong>[ √ ] - Libero</strong>
<%end if
end function%>

Non metto come richiamare la funzione che sarebbe al quanto facile e anche perchè lanciarla manualmente non avrebbe senso. Questa funzione poi la incrocerei con uno split del codice data dal separatore ">" e con gli opportuni mid e altre funzioni creerei la lista dei link contenuti...

Ecco ringrazio Thanx per aver segnalato questa cosa così la integro su perfect che è il tool che ho presentato in un'altro post, ma senza nessun riscontro da parte di nessuno

Salve,

vorrei presentare un mio tool gratuito e realizzato sotto forma di studio.
Il Tool l'ho chiamato:
Perfect [internet-site]

Il suo funzionamento è molto semplice basta inserire l'url d'analizzare e lui in una manciata di secondi ci dirà:

• Pagerank reale
• Pagine indicizzate
• Pagine simili
• Link
• Back-Link
• Back-Link esclusi quelli provenienti dal dominio stesso
• Stesso nome ancora libero con estensione diversa
• Anteprima della serp di google
• Verifica esistenza dei meta principali con controllo
• Conteggio totale delle parole usate nella pagina
• Conteggio occorrenze con numero e percentuale
• Rilevamento della rete semantica dei termini maggiormente suati
• Ricerca nella serp di google fornendo Pagina e posizione
  Ovviamente il tutto avviene senza ricarica della pagina, ma con delle chiamate ajax.

Provo a mettere il link, sperando di non essere bannato:

perfect.only-web.net/

Mi paicerebbe solo che voi esperti mi diceste cosa manca o cosa non và bene. Secondo le mie conoscenze quello che ho inserito è corretto, ma non essendo un Seo spero nel vostro aiuto.

Grazie Max

Tipo:
Altri

Tipo:
Altri

La penso come te,

solo vedendo l'url del forum gli ho creato la stessa funzione...

...asp-asp-net/141777-asp-e-url-ecc...

Nell'altro post mentre creo fisicamente la pagina in html e anche quello è interessante.

Ciao Max

Ti ho scritto due righe per creare qualcosa di fittizio tramite un paio di funzioni;

Nello specifico crea una pagina contenitore con l'url pulito e digeribile scrivendo all'intenro gli eventuali id per richiamere il record. Avevo creato e scritto un codice invece che creava fisicamente la pagina html.

 
<%
 '----------°°°°°°°°°°°°°°°°°°°°°°°°°°----------
 'Inizio codice da personalizzare
 
 percorso="/public"    'cartella dove creare la pagina accertarsi di avere i permessi di scrittura
 pagina="/default.asp"   'pagina da includere
 QueryID="CAT_ID"    'Parametro id per recuperare dal db
  
 '----------°°°°°°°°°°°°°°°°°°°°°°°°°°----------
 'Fine codice da personalizzare non toccare il resto
 Function NoHTML(Stringa)
  Set RegEx = New RegExp
  RegEx.Pattern = "<[^>]*>"
  RegEx.Global = True
  RegEx.IgnoreCase = True
  NoHTML = RegEx.Replace(Stringa, "")
 End Function
 Function unisci(testo, id)
  Risultato = testo
  Risultato = NoHTML(Risultato)
  Risultato = LCase(Risultato)
  Risultato = Replace(Risultato, " ", "-")
  Risultato = Replace(Risultato, "\", "-")
  Risultato = Replace(Risultato, "/", "-")
  Risultato = Replace(Risultato, ":", "-")
  Risultato = Replace(Risultato, "*", "-")
  Risultato = Replace(Risultato, "?", "-")
  Risultato = Replace(Risultato, "<", "-")
  Risultato = Replace(Risultato, ">", "-")
  Risultato = Replace(Risultato, "|", "-")
  Risultato = Replace(Risultato, """", "")
  Risultato = Replace(Risultato, "'", "-")
  Risultato = id & "-" & Risultato & ".asp"
  unisci = Risultato 
 End Function
 
 Function eliminapagina(pag,add)
   Set FSO = CreateObject("Scripting.FileSystemObject")
   If FSO.FileExists(Server.MapPath(percorso) & "\" & unisci(pag,add)) Then
    Set Documento = FSO.GetFile(Server.MapPath(percorso) & "\" & unisci(pag, add))
    Documento.Delete
    Set Documento = Nothing
    Set FSO = Nothing
   End If
   
 End Function
 Function creapagina(pag,add)
   Set FSO = CreateObject("Scripting.FileSystemObject")
   Set Documento = FSO.OpenTextFile(Server.MapPath(percorso) & "\" & unisci(pag,add), 2, True)
   ContenutoFile = ""
   ContenutoFile = ContenutoFile & "<" & "%" & vbCrLf
   ContenutoFile = ContenutoFile & ""&QueryID&" = "& add &"" & vbCrLf
   ContenutoFile = ContenutoFile & "%" & ">" & vbCrLf
   ContenutoFile = ContenutoFile & "<!--#include virtual="""& pagina &"""-->"
   Documento.Write ContenutoFile
   Set FSO = Nothing
 End Function
%>

Spero ti possa essere utlie

Le altre due funzioni sono queste:

<%
 Function NoHTML(Stringa)
  Set RegEx = New RegExp
  RegEx.Pattern = "<[^>]*>"
  RegEx.Global = True
  RegEx.IgnoreCase = True
  NoHTML = RegEx.Replace(Stringa, "")
 End Function
 Function unisci(testo, id)
  Risultato = testo
  Risultato = NoHTML(Risultato)
  Risultato = LCase(Risultato)
  Risultato = Replace(Risultato, " ", "-")
  Risultato = Replace(Risultato, "\", "-")
  Risultato = Replace(Risultato, "/", "-")
  Risultato = Replace(Risultato, ":", "-")
  Risultato = Replace(Risultato, "*", "-")
  Risultato = Replace(Risultato, "?", "-")
  Risultato = Replace(Risultato, "<", "-")
  Risultato = Replace(Risultato, ">", "-")
  Risultato = Replace(Risultato, "|", "-")
  Risultato = Replace(Risultato, """", "")
  Risultato = Replace(Risultato, "'", "-")
  Risultato = id & "-" & Risultato & ".asp"
  unisci = Risultato 
 End Function%>

Le ho fatte seguendo la logica degli url che usa anche questo forum.

Spero possano essere utili,

Ciao Max

Sicuramente se si ha la gestione dei dns il mio codice decade...

Grazie a voi,

io queste due funzioni le uso agganciandole ad eventuali variabili prese da db es.

mettendo queste funzioni in una eventuale pagina che processa i dati per l'inserimento in un db prelevo il nome del pulsante creato e lo metto al posto (qui record&".htm").

per richiamare tale funzione o si usa:

<%
call SaveFile("/ewe.htm",geturl("qui và la pagina da richiamare"))
%>
oppure
<%=geturl("qui và la pagina da richiamare")%>

il tutto avviene in autoamtico.

Un mio scenario classico è creazione di pulsante es. Hotel a Cattolica

funzione che converte e bonifica il nome, sostituendo spazi e carateri speciali e con il nome del pulsante creazione fisica della pagina cioè:

public/Hotel-a-Cattolica.htm

se necessita vi posto anche la terza funzione che automatizza la creazione del nome della pagina

Ciao,

premetto che io sono uno all'antica (infatti uso ancora asp),

se dovessi farlo io quello che chiedi farei semplicemte questo:

Function GetUrl(Url)
    Dim Http
    Set Http = Server.CreateObject("Microsoft.XMLHTTP") 
    Http.open "GET",Url,False
    Http.Send()
    GetUrl = Http.ResponseText
    Set Http=Nothing
End Function

e poi richiamerei la funzione con il classico call,

call geturl("dir2.ecc...")

Questo ovviamente è in asp, se sei un utente php bè, puoi fare la medesima cosa, magari prendendo spunto dal codice postato.

Così la pagina principale si popola con il contenuto che si trova nel secondo percorso .

Ciao Max

Sono un programmatore e volevo condividere una porzione di codice utile per tutti quelli che utilizzano spazi web non gestibili da server tipo aruba e altri.

Volevo condividere il codice che nello specifico fà questo:

effettua una chiamata tramite XMLHTTP, se tutto va bene e la pagina restituisce lo stato 200 immagazzina il contenuto in una variabile (per contenuto intendo il codice html nella sua totalità) e crea fisicamente un file html.

Per fare questo ho creato due funzioni che lavorano tra loro, quindi facilmente utilizzabili. Per la creazione del file in principio avevo utilizzato il componete fso, ma ho dovuto sostituirlo con ADODB.Stream, visto che il primo era poco perfommante e tra la chiamata con la prima funzione e la seconda non riusciva a memorizzare la variabile.

[html]<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
call SaveFile("/ewe.htm",geturl("qui và la pagina da richiamare"))

Function GetUrl(Url)
Dim Http
Set Http = Server.CreateObject("Microsoft.XMLHTTP")
Http.open "GET",Url,False
Http.Send()
GetUrl = Http.ResponseText
Set Http=Nothing
End Function

Function SaveFile(PathFile,Content)

Set oStream = Server.CreateObject("ADODB.Stream") 
oStream.Open 
oStream.Charset = "ascii" 
oStream.Type = adTypeText 
oStream.WriteText Content
oStream.SaveToFile Server.MapPath("/public"&PathFile) , adSaveCreateOverWrite 
oStream.Close 
set oStream = Nothing 

End Function
%>[/html]Mi sono deciso a scrivere anche io dopo aver letto il libro di Giorgio e anche quello di Carta. Complimenti per l'ottimo lavoro e spero di poter essere utile a questa grande comunità.

Ciao Donato,

io sono massimo il papà di shop2007pro. Sono contento che tra i vari shop hai mensionato il nostro piccolo progetto.

Shop2007 è in continua evoluzione e oltre a svariate modifiche stà per uscire anche la versione 2010. Detto questo, gira su qualsiasi server windows 2003 server, anche se di default lo abbiamo progettato per aruba (che monta lo stesso sistema). Come si può vedere anche noi abbiamo una piccola comunità online dove tutti ricevano eventuali aiuti in tempo reale. Se hai bisogno contattami pure.

Buon Lavoro Max

Scusa a te non avevo capito che ti riferissi a lui...

Buona Giornata!

Non mi sono spiegato io ho rilasciato una versione open source (quindi gratis) da scaricare e installare su aruba. Si chiama Shop2007pro non metto il link perchè mi ammoniscono subito. Ma se vai su google mi trovi subito.

Ciao ASTIgiando.it,

io ho realizzato un e-commerce open source con un bel gruppo di discussione (forum), noi per scelta siamo partiti da db access, che per realtà piccole e per chi ha poche conoscenza va già benissimo. Lo shop si chiama Shop2007pro. Ovviamente abbiamo anche la versione per Mysql, che sicuramente è molto più stabile e veloce. Se hai bisogno non esitare a chiedere ulteriori info.

Auguri a tutti Massimo!!!

E sono io il Papà, ora sto facendo in modo di creare da admin la gestione dei db, ossia per i più esperti l'aggancio a Mysql ecc...

Il mio shop è gestibile tutto in maniera visuale e senza conoscenza di programmazione... ovviamente abbiamo anche noi una comunità con forum e demo on line. Per chi non volesse vedere il demo basta andare su google e digitare il nome dell'e-commerce siamo in tutta Italia. Sperando di non aver infranto nessuna regola del forum buon lavoro Max. Ovviamente è gratis!

Grazie, allora c'è qualcuno.

Cosa potrei inserire per migliorarlo o meglio cosa pensi debba cambiare.

Grazie infinite per avermi risposto.

Salve a tutti questo è un sito appena realizzato per un mio caro amico:

http://www.sorarosa.it/

Cosa ne pensate? Come posso migliorarlo?

Ciao, Max

Io personalmente, integrerei fckeditor con alle spalle un campo memo ed il risultato sarà strabilliante come usare word-online.

Mi scuso, non succederà più.

Ciao il tuo sito è carino, pensa che da un'anno che nel nostro progetto lo usiamo come template di default.

Mi spiego meglio, vai su google e digita shop2007 toverai non so quante pagine, tutti nostri.

Quello ufficiale dello shop lo puoi vedere qui:

Ciao Max