Vi piacerebbe scoprire quanto spazio rimane sul HD del vostro server? Utilizzando l’oggetto File System è possibile. Ecco il codice di esempio:
@LANGUAGE = VBScript%
‘ Dichiaro le variabili che mi servono nello script
Dim partizione, fso
partizione = "C" ‘ Ricavo la partizione che mi interessa
‘ Creo l’oggetto File System
Set fso = Server.CreateObject("Scripting.FileSystemObject")
‘ Mostro un messaggio che [...]
<%
Dim nominativo, mittente, destinatario, oggetto, messaggio
nominativo = "Nome Mittente"
mittente = "indirizzo@mittente.ext"
destinatario = "indirizzo@destinatario.ext"
oggetto = "Oggetto della mail…"
messaggio = "Corpo della mail…"
Dim objemail
Set objemail [...]
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)
%
Share on Facebook
Utilizzando le innumerevoli funzioni di VBScript è possibile creare senza problemi un utile calendario in Asp, da utilizzare all’interno del proprio sito web.
<title>Un calendario in ASP</title>
td { font: Normal 10px Verdana; }
<table bgcolor="#FFFFFF" align="center" cellpadding="5" [...]
%
‘ Creo una variabile dove inserisco la URL esatta
‘ della pagina HTML che continene il frameset
Dim MainFrm
MainFrm = "http://www.sito.com/main_frm.htm"
‘ Verifico la pagina chiamante (referrer)
‘ se questà è vuota oppure è diversa da MainFrm
‘ effettuo un redirect al frameset
If (Request.ServerVariables("HTTP_REFERER") = "") Or _
(Left(Request.ServerVariables("HTTP_REFERER"),42) MainFrm) Then
Response.Redirect MainFrm
End If
%
Share on Facebook
L’inserimento dell’apice nel db può causare infatti diversi problemi tra cui ad esempio il tipico errore 500 (errore interno del server).
Per evitare questo piccolo (ma fastidioso e talvolta pericoloso) inconveniente basta utilizzare una piccola funzione come questa:
%
function pulisci(stringa)
pulisci = replace(stringa, "’", "”")
end function
%
Share on Facebook
%
‘ Specifichiamo 4 variabili numeriche
Dim Val_A, Val_B, Val_C, Val_D
Val_A = 10
Val_B = 30
Val_C = 5
Val_D = 15
‘ Troviamo il numero più grande grazie ad una serie di confronti…
Dim MaxNum
MaxNum = 0
if Val_A > MaxNum then MaxNum = Val_A
if Val_B > MaxNum then MaxNum = Val_B
if Val_C > MaxNum then MaxNum = Val_C
if Val_D > MaxNum [...]
Ecco una funzione che vi permetterà di scoprire lo spazio residuo a vostra disposizione:
%@LANGUAGE = VBScript%
% ‘ Dichiaro le variabili che mi servono nello script Dim partizione, fso partizione = "C" ‘ Ricavo la partizione che mi interessa ‘ [...]
Breve tutorial che vi permette di sfruttare la funzione regular expressions, con questo script sarete in grado di conoscere quante occorrenze sono presenti all’interno di una stringa:
Function conta(a,b)
‘ Creo un nuovo oggetto Espressione Regolare
Dim objRegExpr
Set objRegExpr = New RegExp
‘ Definisco il pattern da usare (valore "b" passato [...]
Oggi vi mostro una semplice applicazione che permette di inserire un saluto diverso in base all’orario in cui ci si collega al sito. Il codice è il seguente, copiatelo in una pagina con estensione .asp per ottenere il risultato.
%
ora = Hour(Now)
If ora = 5 AND ora 12 Then
Response.Write "Buon giorno"
ElseIf ora = 12 [...]
