Articoli marcati con tag ‘asp tutorial’

ASP: Sistema di gestione News parte 1

25 giu 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

Vi piacerebbe inserire nel vostro sito un box con le ultime 10 news aggiornate? Per accedere ai dati utilizzeremo ADO tradizionale. All’interno del pannello di controllo inserite questo codice:

 
%@ Page Language="VB" ValidateRequest="false" %
%@ Assembly Name="ADODB" %
%@ Import Namespace="ADODB" %
%@ Import Namespace="System.Data" %
 
 
Gestione delle News in ASP.NET
<form>
<table border="1" width="300" align="center">
<tbody>
<tr>
<td><strong>Inserisci News</strong></td>
</tr>
<tr>
<td>Titolo
 
Descrizione</td>
</tr>
</tbody></table>
<p align="center"></p>
 
</form>

ASP: Conteggio utenti

23 giu 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

Volete scoprire gli utenti connessi contemporaneamente sul vostro sito web? Attraverso il codice asp.net potrete scoprirlo in pochi minuti.

Nel file Global asax inserite:

 
 
public void Application_OnStart()
{
Application["users"] = 0; 
}
public void Session_OnStart()
{
Application["users"] = (int)Application["users"] + 1;
}
public void Session_OnEnd()
{
Application["users"] = (int)Application["users"] - 1;
}

Mentre nella pagina aspx:

 
 
 
public void ActiveUsers(Object src, EventArgs E)
{
UtentiConnessi.Text = "Ci sono <b>" + Application["users"].ToString() + "</b> utenti online";
}

ASP: Inserimento frasi casuali

18 giu 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

Vi piacerebbe che ad ogni log-in i vostri utenti visualizzino una frase nuova? Tipo consigli, novità o informazioni? Ecco il codice php che vi permette di fare tutto questo:

% 
 
' Dichiara tutte le variabili usate
Dim tot_tips, one_tip, txt_tip
 
' Inizializza il generatore pseudo-casuale
Randomize()
 
' Imposta il numero massimo di suggerimenti
tot_tips = 3
 
' Genera un numero pseudo-casuale compreso tra 1 e il massimo
one_tip = CInt( tot_tips*Rnd() + 1 ) 
 
' Setta il testo del suggerimento in base
' al valore del numero pseudo-casule
Select Case one_tip
   Case 1	txt_tip = "Frase numero UNO"
   Case 2	txt_tip = "Frase numero DUE"
   Case 3	txt_tip = "Frase numero TRE"
   Case Else	txt_tip = "Frase di comodo !!!"
End Select
 
' Mostra a video il suggerimento
Response.Write( txt_tip )
 
%

ASP: Realizziamo un contatore di accessi

11 giu 2009
Pubblicato in Programmazione | Nessun commento »

contatore

Integrare all’interno del proprio sito web un contatore di accessi è un’ottima soluzione se si vuole controllare il numero di visite giornaliere. Il seguente codice permette di creare un contatore che da il benvenuto agli utenti e mostra quante visite ci sono state.

 
%@LANGUAGE = VBScript%
 
%
    Dim contatore
    Response.Cookies("contatore").Expires = Date() + 365
    contatore = Request.Cookies("contatore")
    If contatore = "" Then
        Response.Cookies("contatore") = 1
        Response.Write("Benvenuto in questa pagina!")
    Else
        Response.Cookies("contatore") = contatore + 1
        Response.Write("Questa è la tua visita # " contatore)
    End if
%

ASP: Scoprire il sistema operativo del server

11 giu 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

asplrg1

Avete scelto il vostro fornitore di hosting per iniziare la vostra avventura nel web ma non sapete qual è il sistema operativo presente sul server? Esiste un sistema che permette di scoprire questo dato utilizzando queste righe di codice:

%
Dim MyOS
MyOS = Request.ServerVariables("Server_Software")
 
response.write MyOS
%

ASP: Funzione per evidenziare le parole

5 giu 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

Volete realizzare un motore di ricerca basato su un vostro database personale e non sapete come evidenziare le parole importanti ricercate? Create il seguente script attraverso il codice Asp, si andrà a creare una funzione che restituirà una stringa con il risultato finale evidenziato in grassetto.

%@LANGUAGE = VBScript%&gt;
 
%
 
    Function FiltroRicerca(MyText, MyKey)
 
        Dim re
 
        Set re = New RegExp
 
        re.Pattern = MyKey
 
        re.Global = True
 
        re.IgnoreCase = True
 
        FiltroRicerca = re.Replace(MyText, "<strong>"  MyKey "</strong>")
 
        Set re = Nothing
 
    End Function
 
    Dim risultato, chiave
 
    risultato = "Proviamo a scrivere qualcosa in questa pagina..."
 
    chiave = "questa"
 
%
 
        Evidenziare le parole ricercate con ASP
 
%=FiltroRicerca(risultato, chiave)%

ASP: Upload file su server

3 giu 2009
Pubblicato in Programmazione | Nessun commento »

Eseguire Upload di file in moda manuale è una funziona parecchio lunga, per fortuna esistono dei componenti che installati sul server permettono di effettuare il lavoro in maniera più veloce, grazie a un codice Asp non ci sarà più da impazzire.

Il componente utilizzato per questa funzione è AspUpload non è gratuito ma il costo e alla portata di tutti. All’interno del server si dovrà creare una cartella file e dentro di essa un file nominato upload.html, il codice per questo file html è:

<form action="upload.asp" enctype="multipart/form-data" method="post">
 
 
</form>

Ed ecco il codice Asp commentato per esser più chiaro:

%@LANGUAGE = VBScript%&amp;
%
    ' Gestisco eventuali errori
    On Error Resume Next
    ' Creo l'oggetto Persist ASPUpload
    Set Upload = Server.CreateObject("Persits.Upload.1")
    ' Controllo che non vengano sovrascritti file esistenti
    Upload.OverwriteFiles = False
    ' Limito ad 1 mega la possibilità di caricare file
    Upload.SetMaxSize 1048576
    ' Creo una variabile col file da caricare
    Dim MioFile
    MioFile = Request.Form("file_da_caricare")
    ' Effettuo l'Upload, se non si sono verificati errori
    Count = Upload.Save(Server.MapPath("/file/" &amp; MioFile))
%
 
        Upload di file col componente ASPUpload
 
%
    ' Verifico il buon andamento della procedura
    ' e lancio un messaggio di errore o di conferma
    If Err &lt;&gt; 0 Then
        Response.Write "ERRORE: " &amp; Err.Description
    Else
        With Response
            .Write Count
            .Write "Upload effettuato con successo!"
            .Write "
 
"
            .Write "Alcune info:"
            .Write "
 
"
            .Write "Dimensioni del file: " &amp; File.Size &amp; "byte"
            .Write "
"
            .Write "Tipologia di file: " &amp; File.Type
        End With
    End If
%

ASP: Scoprire indirizzo IP visitatori

26 mag 2009
Pubblicato in Programmazione | Nessun commento »

16png

Volete in pochi minuti qual è l’indirizzo IP dei vostri visitatori? Ecco un semplice codice Asp che attraverso la richiesta Forwarded permette di visualizzare il server utilizzato dal visitatore.

 
Dim MyIP 
 
MyIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 
If IP="" Then
  IP=Request.ServerVariables("REMOTE_ADDR")
End If

ASP: Creazione cartelle con l’utilizzo di permessi

25 mag 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

Molte volte con applicazioni Asp capita di dover creare delle cartelle con permessi che siano abilitati per la lettura, da pubblicare successivamente su un server. Utilizzare queste cartelle garantisce la possibilità di scrivere dati in pagine web, e successivamente di leggerli direttamente dal proprio browser.

Create una nuova cartella nel vostro sito, in questo esempio per semplificare le cose sarà nominata “abilita”. Attribuite alla stessa i permessi per lettura e scrittura, cliccando sulla cartella con tasto destro all’interno del menu, selezionate l’opzione condivisione web e infine cliccate su condividi cartella.

A questo punto visualizzerete una finestra che vi permetterà di scegliere varie opzioni, selezionate scrittura e lettura, il messaggio di avviso vi dirà di stare attenti perché attivando quest’opzione, la cartella potrà entrar in contatto con script pericolosi. Confermate tutto e applicate le modifiche.

ASP: Visualizzare il nome del giorno

25 mag 2009
Pubblicato in HowTo, Programmazione | Nessun commento »

asp_logo_135

Volete ottenere il nome del giorno attraverso il codice Asp? Esistono due funzioni che permettono di visualizzare una data specifica. Una è weekdayname che restituisce il nome del giorno in base a un determinato valore numerico, oppure l’altra che da come risultato il giorno della settimana in base alla data parametro.

 
Dim VarDate
VarDate = Date()
 
'Nome del giorno odierno (con numero/mese/anno)
Response.Write("Oggi è "WeekDayName(WeekDay(VarDate)) "VarDate)
 
'Forma abbreviata del nome del giorno
Response.Write("Oggi è "WeekDayName(WeekDay(VarDate), true) VarDate)