mercoledì 31 dicembre 2008

[LINK] Google Insight - Monitor Ricerche su Google

Google Insight è un utilissimo servizio che permette di monitorare volumi e andamenti delle ricerche effettuate su Google per località, categorie e intervalli di tempo. E' possibile quindi visualizzare tutte le ricerche effettuate periodicamente dagli utenti del Web. Basta quindi qualche parola "giusta" per qualche probabile visita in più...

Google Insight

giovedì 18 dicembre 2008

[LINK] - iConvert Creazione Icone Windows Mac Linux

Un utilissimo sito per creare icone in diversi formati.

vai a: iConvert

Grazie a: CaronteWeb

mercoledì 17 dicembre 2008

[JAVASCRIPT] - Scrivere Data Giorno Mese Anno

<SCRIPT language=JavaScript>
function initArray(){
this.length = initArray.arguments.length
for (var i = 0; i < this.length; i++)
this[i+1] = initArray.arguments[i]
}
var DOWArray = new initArray("Domenica","Luned&igrave","Marted&igrave","Mercoled&igrave",
"Gioved&igrave","Venerd&igrave","Sabato");
var MOYArray = new initArray("Gennaio","Febbraio","Marzo","Aprile",
"Maggio","Giugno","Luglio","Agosto","Settembre",
"Ottobre","Novembre","Dicembre");
today = new Date();
start = new Date(today.getYear(),00,01);
document.write(""+DOWArray[(today.getDay()+1)]," ", today.getDate(), " ", MOYArray[(today.getMonth()+1)], " ", today.getYear()+0000)
</SCRIPT>

venerdì 12 dicembre 2008

[LINK] [UTILITIES] - Case Converter Convertitore Testo Maiuscolo Minuscolo

Case Converter è un tool per convertire il testo in maniera molto semplice.

Quattro sono le opzioni messe a diposizione:

Upper Case - Trasforma tutto il testo in lettere maiuscole
Lower Case - Trasforma tutto il testo in lettere minuscole
Proper Case - Converte le iniziali di ogni parola in maiuscolo
Sentence Case -Converte solo l'iniziale della prima lettera del testo in maiuscolo

Dopo avere effetuato un operazione è possibile salvare il risultato in un file di testo.
Uno strumento da inserire nei segnalibri che può rilevarsi utile durante la scrittura di documenti.

Fonte: CaronteWeb

[HTML] - Chiusura automatica di una pagina

Appena il broswer leggerà il contenuto del body chiuderà automaticamente la finestra.

<body onLoad="window.self.close();">

mercoledì 10 dicembre 2008

[LINK] - DIA Tool per Grafici Organigrammi Flussi Freeware

Ecco un Software utilissimo e soprattutto gratuito per disegnare Organigrammi, Flussi, etc...
Un po' un piccolo Microsoft Visio in versione gratuita.

mercoledì 26 novembre 2008

[SQL] - [ASP] - SELECT COUNT

<%
CNN=Application("CNN")
set conn=server.createObject("ADODB.Connection")
conn.open CNN

set rs=server.createobject ("ADODB.Recordset")

qry="SELECT count(*) AS numero FROM nome_tabella WHERE campo = 'valore' ;"
rs.open qry,conn

'se non ci sono campi stampiamo 0
if rs.eof then
%>
<div>(0)</div>
<%
else
'altrimenti stampiamo il numero di record
%>
<div>(<%=rs.fields("numero")%>)</div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing

end if
%>

[ASP] - Data in formato gg/mm/aaaa in campo nascosto Type Hidden

<input type="hidden" name="data" value="<%gg=day(Date())
if gg < 10 then gg="0" & gg end if
mm=month(Date())
if mm < 10 then mm="0" & mm end if
aa=year(Date())
data=gg &"/"& mm &"/"& aa

response.write (data)
%>">

lunedì 24 novembre 2008

[JAVASCRIPT] - Funzione Controllo Campo Email

Il modulo dovrà chiamarsi "info" (form name = info).
onBlur attiverà il controllo fin da subito, durante la compilazione dell'email.
Il campo dell'email sarà un semplice campo di testo.

<script>
function ControllaMail()
{
EmailAddr = document.info.email.value;
Filtro = /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-]{2,})+\.)+([a-zA-Z0-9]{2,})+$/;
if (Filtro.test(EmailAddr))
return true;
else
{
alert("Indirizzo Email non valido. Controllalo, per favore.");
document.info.email.focus();
return false;
}
}
</script>

onBlur="return ControllaMail()"

venerdì 21 novembre 2008

mercoledì 19 novembre 2008

[ASP] - Dimensione di un File

CALCOLARE LA DIMENSIONE DI UN FILE

Dim fname, fpath
'fname è il nome del file da controllare
fname = "percorso_file"
fpath = Server.MapPath(fname)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(fpath)
'Formatto il numero senza alcuna cifra decimale
dimensione = FormatNumber(f.Size/1024, 0)&" KB"
'Visualizzo la dimensione tra parentesi
response.write "(" & dimensione & ")"
Set f = nothing
Set fso = nothing

venerdì 14 novembre 2008

[Javascript] - Riflesso in Immagini con REFLECTION

Grazie a questa Classe Javascript è possibile creare un effetto di riflesso nelle nostre immagini.

Basta includere il file JS nella pagina web dove si intende usarlo:

<script type=”text/javascript” src=”reflection.js”></script>

Quindi aggiungere all’immagine la classe “reflect”:

<img src=”image.jpg” alt=”image” width=”352&#8243; height=”258&#8243; class=”reflect” />

E’ possibile regolare alcuni parametri come l’opacità

Vai al link della documentazione

Guarda una dimostrazione dello script

[CSS] [HTML] - Eliminare Bordo da Immagine con Link

Mi è capitato utilizzando qualche funzione Javascript per le immagini (ad esempio per un riflesso) che non basti impostare il BORDER="0" nell'HTML affinchè il bordo scompaia da un'immagine che è anche un link.
O meglio, il bordo scompariva dall'immagine ma non dal riflesso creato da javascript.
Sono riuscito a risolvere il problema con i CSS.
Questo che sto per scrivere è quindi anche un modo "alternativo" per eliminare il bordo dalle immagini linkate ad una pagina.

Basta creare uno stile così:
<STYLE type="text/css">
<!--
a.noborder img{ border: 0px; }
-->
</STYLE>

E richiamare poi questa classe nell'Href dell'immagine.
<a href="link.ext" class="noborder"> ...</a>

In questo modo, modificando un pò quello stile, si possono anche cambiare i colori e il tipo di bordo.

mercoledì 12 novembre 2008

[ASP] - Forzare il Download di un File

CREARE UN FILE CHIAMATO download.asp e contenente:

<%@ Language=VBScript %>
<%
Response.Expires=0
Response.Buffer=0
Const CHUNK = 2048
strFilePath = Server.MapPath(Request.QueryString("file"))
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' Controllo se esiste il file (qua si possono mettere altri controlli)
if fso.FileExists(strFilePath) then
set objFile = fso.GetFile(strFilePath)
Response.AddHeader "Content-Disposition", "attachment; filename=" & objFile.Name
Response.AddHeader "Content-Length", objFile.Size
Response.ContentType = "application/octet-stream"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1 ' adTypeBinary
objStream.LoadFromFile strFilePath
lSize = objStream.Size
lBlocks = 1
For lBlocks = lBlocks To lSize \ CHUNK
If Response.IsClientConnected = False Then Exit For
Response.BinaryWrite objStream.Read(CHUNK)
Next
lSize = lSize Mod CHUNK
If lSize > 0 And Response.IsClientConnected = True Then
Response.BinaryWrite objStream.Read(lSize)
End If
objStream.Close
Set objStream = Nothing
else
%><html><body onLoad="self.close()"></body></html><%
end if%>


L'HREF dovrà essere qualcosa del tipo:

<a href="download.asp?file=percorso_file.ext"> SCARICA FILE</a>

lunedì 10 novembre 2008

[JAVASCRIPT] - Controllo Tipo File Upload

function preload(fil) {
// controllo il tipo di file
ext = fil.substr(fil.lastIndexOf("."))+".";
perm = ".pdf.gif."
if(perm.indexOf(ext.toLowerCase())<0){
alert("Attenzione! In Allegato puoi caricare solo file PDF");
//document.info.reset();
//rv = false;
} else {
//rv = true;
}
}

IL FORM:
<FORM NAME="info" METHOD="Post" enctype="multipart/form-data" ACTION="">
</FORM>

LA INPUT:
<input type="file" name="Allegato" id="Allegato" onchange="preload(this.value)" >

*** IN CASO VOLESSIMO CARICARE DUE FILE DI TIPO DIVERSO ***

//CONTROLLO CARICAMENTO SOLO FILE PDF
function preload_pdf(fil) {
// controllo il tipo di file
ext = fil.substr(fil.lastIndexOf("."))+".";
perm = ".pdf."
if(perm.indexOf(ext.toLowerCase())<0){
alert("Attenzione! In Allegato puoi caricare solo file PDF");
//document.info.reset();
//rv = false;
} else {
//rv = true;
}
}

//CONTROLLO CARICAMENTO SOLO FILE IMMAGINE
function preload_img(fil) {
// controllo il tipo di file
ext = fil.substr(fil.lastIndexOf("."))+".";
perm = ".gif.jpg.jpeg."
if(perm.indexOf(ext.toLowerCase())<0){
alert("Attenzione! In Immagine puoi caricare solo file GIF o JPG");
//document.info.reset();
//rv = false;
} else {
//rv = true;
}
}

IL FORM:
<FORM NAME="info" METHOD="Post" enctype="multipart/form-data" ACTION="">
</FORM>

LE 2 INPUT:
<input type="file" name="Allegato" id="Allegato" onchange="preload_pdf(this.value)" >

<input type="file" name="Allegato" id="Allegato" onchange="preload_img(this.value)" >

venerdì 7 novembre 2008

[ASP] - Visualizzare Immagini Casuali ad ogni Refresh

'-------------------VISUALIZZAZIONE IMMAGINI CASUALI----------------------------------'
'===============================================================================
'Prende automaticamente i file dalla cartella specificata in IMGS_DIR

IMGS_DIR = "./percorso_cartella/"

Randomize



' Variables for our FileSystemObject objects
Dim objFSO, objFolderObject, objFileCollection, objFile

' A pair of integers for our random image selection
Dim intFileNumberToUse, intFileLooper

' A "handle" to the file we choose to use
Dim objImageFileToUse

' A variable to build our image tag
Dim strImageSrcText

' Lets see what's in the directory:
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing

Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing

' Get a count of files and use it to generate a random
' number from 1 to the count.
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1

' Set up loop control so we exit when we get to the random
' file number we just picked.
intFileLooper = 1
For Each objFile in objFileCollection
If intFileLooper = intFileNumberToUse Then
' Get a "handle" on the appropriate file
Set objImageFileToUse = objFile
Exit For
End If
intFileLooper = intFileLooper + 1
Next

Set objFileCollection = Nothing

' Build our img src tag text
strImageSrcText = IMGS_DIR & objImageFileToUse.Name

Set objImageFileToUse = Nothing

' Show the image:
%>
<img
src = "<%= strImageSrcText %>"
width = "614"
height = "70"
alt = "nome_img"
border = "0"
/>

mercoledì 5 novembre 2008

[JAVASCRIPT] - Aprire PopUp Centrata

Funzione per far aprire una popup al centro dello schermo.
Cambiando i valori di W e H possiamo modificare rispettivamente la larghezza e l'altezza della popup.

<script language=javascript>

function PopupCentrata(page, name) {
var w = 750;
var h = 530;
var l = Math.floor((screen.width-w)/2);
var t = Math.floor((screen.height-h)/2);
var resizable = "yes";
var toolbar = 0;
var menubar = 0;
var scrollbars = 1;
window.open(page, name,"width=" + w + ",height=" + h + ",toolbar=" + toolbar + ",menubar=" + menubar + ",top=" + t + ",left=" + l+",resizable="+resizable+",scrollbars="+scrollbars);
}

</script>

Nell'HREF basterà inserire questo codice sostituendo a "pagina_web.ext" l'indirizzo della pagina web da visualizzare.

javascript:PopupCentrata('pagina_web.ext','nome_pag')

Parametri:

toolbar=0|1 Specidifca se mostrare la TOOLBAR o no
location=0|1 Specifica se mostrare la linea dell'indirizzo URL
directories=0|1 Specifica se mostrare i èpulsanti di directory di Netscape
status=0|1 Specifica se mostrare la Status Bar del Browser
menubar=0|1 Specifica se mostrare il Menu Bar del browser
scrollbars=0|1 Specifica se la finestra debba avere o no le Scrollbars
resizable=0|1 Specifica se la finestra sia ridimensionabile
width=pixels Larghezza nuova finestra
height=pixels Altezza nuova finestra
top=pixels Specifica la coordinata Y rispetto al margine superiore sinistro della nuova finestra
left=pixels Specifica la coordinata Y rispetto al margine superiore sinistro della nuova finestra

martedì 4 novembre 2008

Visualizzare TUTTI i post del blog di BLOGSPOT

Per visualizzare TUTTI i post inseriti sul proprio blog, sostituire a "nome_blog" il nome del proprio blog e ad "N" un numero che sarà sicuramente maggiore dei post inseriti (ad esempio 1000).

http://nome_blog.blogspot.com/search?max-results=N

lunedì 3 novembre 2008

[ASP] [SQL] - Piccolo motore di ricerca

Se ricevo una variabile di nome "TUTTI I CAMPI" (vedi Passaggio di Variabili) effettuo la ricerca su tutti i campi, scrivendo al posto di "nome_campo1", "nome_campo2", etc, TUTTI i nomi dei miei campi.
Altrimenti riceverò una variabile col nome del campo in cui cercare.

if nome_campo = "TUTTI I CAMPI" then
qry="SELECT * FROM nome_tabella WHERE nome_campo1 LIKE '%"&parola&"%' OR nome_campo2 LIKE '%"&parola&"%' ORDER BY nome_campo DESC ;"

else
qry="SELECT * FROM nome_tabella WHERE "& nome_campo &" LIKE '%"&parola&"%' ORDEER BY "& nome_campo &" asc ;"
end if

[ASP] - IF, AND, ELSE IF

In questo pezzo di codice, in base ad alcune medie ed alcuni calcoli assegno un diverso numero di "stelle" ad un tipo di corso.

'Calcolo delle medie per domanda ARROTONDATE a 2 cifre decimali con FormatNumber e conversione in NUMERO double con CDbl (altrimenti media_domanda rimane una stringa non sommabile)

media_domanda1 = CDbl(FormatNumber (somma1/numero_campi,2))

'IF AND ELSE IF
if media_corso >= 0 And media_corso <= 1 Then
stelle_corso = stella1
elseIf media_corso > “1,34” AND media_corso <=2 Then
stelle_corso = stella2
elseIf media_corso > 2 AND media_corso <=”3,5” Then
stelle_corso = stella3
elseIf media_corso > 3 AND media_corso <=4 Then
stelle_corso = stella4
elseIf media_corso > 4 AND media_corso <=5 Then
stelle_corso = stella5
elseIf media_corso > 5 AND media_corso <=6 Then
stelle_corso = stella6
end if

[ASP] - Passaggio Variabili

Immaginiamo un form con una Action che indirizza alla pagina "azione.asp" e un campo di testo di nome "campo1".

Il contenuto di questo campo sarà richiamato nella pagina azione.asp con:

nome_variabile = Request.Form("campo1")

Se invece la variabile viene passata alla pagina azione.asp con l'HREF azione.asp?campo2='nome_variabile'

allora questa variabile verrà richiamata con:

nome_variabile = Request.QueryString("campo2")

[SQL] [ASP] - UPDATE

UPDATE in SQL e ASP.
Il carattere & _ permette di andare a capo in ASP.

CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
Set rs = Server.CreateObject("ADODB.Recordset")
qry="UPDATE nome_tabella "& _
"SET nome_campo = '"& valore_variabile &"', nome_campo2 = '"& valore_variabile2 &"'" & _
"WHERE nome_campo = "& valore_variabile &" ;"
conn.execute(qry)

rs.close
set rs=nothing
conn.close
set conn=nothing

venerdì 31 ottobre 2008

[ASP] - Data compresa entro un giorno limite

Ho dei video in un DB.
Se un video è stato inserito da meno di 7 giorni voglio che mi appaia una immagine con scritto NEW.

<%
gg=day(Date())
if gg < 10 then gg="0" & gg end if
mm=month(Date())
if mm < 10 then mm="0" & mm end if
aa=year(Date())

'data=aa & mm & gg

'Faccio una query al DB prendendo la data dell'ultimo video inserito
set rs_new=Server.CreateObject("ADODB.RecordSet")
qry_new="SELECT TOP 1 data_ins FROM tvideo ORDER BY id_video DESC;"
rs_new.Open qry_new,conn

'controllo che il db non sia vuoto
if not rs_new.EOF then

'CDATE trasforma in DATA
'data inserimento ULTIMO VIDEO
data_inserimento=cdate(mm&"/"&gg&"/"&aa)

'DATA DI OGGI (è in formato MM/GG/AAAA)
data_oggi= date()
'response.write y
'numero giorni per la quale un video è considerato NEW
giorni_novita = 7

'data limite per la quale il video è ancora considerato NEW
data_limite = data_oggi - giorni_novita
'response.write data_limite

'se la data di inserimento dell'ultimo video è compresa tra la data di oggi e il giorno limite in cui è considerato NEW...
if not data_inserimento < data_limite then

'spunta l'immagine NEW
%>
<img src="images/new.gif" width="30" height="15" align="absmiddle">
<%
end if
end if
%>

giovedì 30 ottobre 2008

[LINK] - Segnalare URL a Google per Motore di Ricerca

E' possibile segnalare a GOOGLE l'esistenza del nostro sito andando in questa pagina:

http://www.google.it/intl/it/add_url.html

Citando la pagina di Google sopra indicata:
"Il nostro crawler aggiunge nuovi siti all'indice ed aggiorna quelli esistenti dopo ogni scansione della rete. In alternativa, è possibile inviarci direttamente l'URL. È importante ricordare che non tutti gli URL segnalatici vengono aggiunti all'indice. Non possiamo quindi fornire indicazioni in merito ai tempi né garantire l'inserimento dell'URL segnalato nell'indice."

[ASP] - Suddivisione DATA

SUDDIVISIONE DATA IN ASP

Visualizza l'ora nel formato 12hr:
Codice: <%= time %>
Output HTML: 4:57:45 AM
Visualizza la data e l'ora in 12hr format:
Codice: <%= now %>
Output HTML: 6/06/99 4:57:45 AM
Visualizza giorno, mese, anno, in formato esteso
Codice: <% Response.Write(FormatDateTime(Now(),1) & " " )%>
Output HTML: Tuesday, April 20, 1999
Visualizza solo la data nel formato breve
Codice: <% Response.Write(FormatDateTime(Now(),2) & " " )%>
Output HTML: 6/06/99
Visualizza l'ora nel formato 12hr
Codice: <% Response.Write(FormatDateTime(Now(),3) & " " )%>
Output HTML: 4:57:45 AM

Visualizza l'ora nel formato 24hr:
Codice: <% Response.Write(FormatDateTime(Now(),4) & " " )%>
Output HTML: 04:54
Visualizza il nome del mese corrente
Codice: <%=MonthName(Month(Date))%>
Output HTML: April
Visualizza il numero del giorno della settimana corrente:
Codice: <%=WeekDay(Date)%>
Output HTML: 3
Visualizza il numero sul calendario del giorno corrente:
Codice: <%=Day(Date)%>
Output HTML: 20
Visualizza l'anno corrente:
Codice: <%=Year(Date)%>
Output HTML: 1999


OTTENERE UN GIORNO DELLA SETTIMANA
<%
response.Write(WeekDayName(1))
response.Write("<br />")
response.Write(WeekDayName(2))
%>

OUTPUT:
Sunday
Monday


NOME DELLA SETTIMANA ABBREVIATO:
<%
response.Write(WeekDayName(1,true))
response.Write("<br />")
response.Write(WeekDayName(2,true))
%>

OUTPUT:
Sun
Mon


GIORNO DELLA SETTIMANA ODIERNO
<%
response.Write(WeekdayName(weekday(date)))
response.Write("<br />")
response.Write(WeekdayName(weekday(date), true))
%>

OUTPUT:
Monday
Mon

[SQL] [ASP] - SELECT con selezioni dal DB

<select name="nome_select">
<option value=""selected>Seleziona qualcosa...</option>

<%
CNN=Application("CNN")
'imposta la connessione al database
Set objConn=Server.CreateObject("ADODB.Connection")

'apre la connessione al database
objConn.Open CNN

Set rs = Server.CreateObject("ADODB.Recordset")

sql = "SELECT * FROM nome_tabella ORDER BY nome_campo ASC"
rs.open sql, objconn
'se la query restituisce qualcosa..
if not rs.eof then
'ciclo fin quando la query estrae dati dal db
do until rs.eof

%>
<option value="<%= rs("campo1_estratto_dal_db")%> - <%=rs.fields("campo2_estratto_dal_db")%>">
<%= rs("campo1_estratto_dal_db")%> - <%=rs2("campo2_estratto_dal_db")%>
</option>

<%
rs.movenext
loop

end if

rs.close
set rs=nothing
conn.close
set conn=nothing
%>

</select>

[SQL] [ASP] - SELECT

CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
Set rs = Server.CreateObject("ADODB.Recordset")

qry="SELECT * FROM nome_tabella WHERE id = "& id &" ;"

rs.Open qry,conn

'se il db è vuoto...
if rs.eof then

'assegno 1 ad una variabile chiamata db_vuoto
db_vuoto = 1
%>

scrivo qualcosa in html...

<%
altrimenti...
else

'il db non è vuoto
db_vuoto = 0

nome_campo = rs.fields("nome_campo")

rs.MoveNext

rs.close
set rs = nothing
conn.close
set conn = nothing

[ASP] [SQL] - Visualizza i titoli dell ultime n notizie

Visualizzazione dei titoli di notizie precedenti.
L'ultima notizia sarà già visualizzata per intero (non presente in questo codice). Sotto quest'ultima notizia saranno visualizzati i titoli di n notizie passate nel formato xx/xx/xxxx (data) - Titolo Notizia.
Cliccando sul titolo si aprirà una popup con la visualizzazione della notizia per intero.
Il codice esclude il titolo dell'ultima notizia che è già visualizzata per intero.
NB.: l'href richiama una funzione Javascript non presente in questo codice ma di cui ho postato il codice precedentemente.

<%
'Connessioni al DB
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN

set rs=server.createobject("ADODB.recordset")

'seleziono il massimo id per escludere l'ultima notizia dalla visualizzazione
qry="SELECT MAX (id) as max_id FROM nome_tab WHERE parametri ;"
rs.Open qry,conn
id = rs.fields ("max_id")

Const CONST_DISPLAY = 3 'NUMERO DI NOTIZIE VISUALIZZATE
Dim i
Set rsQuery = Conn.Execute("SELECT * FROM nome_tabella WHERE parametro='parametro' AND (id < "&id&") ORDER BY id DESC")

'Se non ci sono notizie...
If rsQuery.EOF Then
%>
Dati in Aggiornamento...
<%
End If
'Altrimenti...
i = 1
While Not rsQuery.EOF And i <= CONST_DISPLAY
%>
<a href="javascript:openwindow('nome_popup.asp?id=<%=rsQUERY("id")%>','xxx<%=rsQUERY("id")%>',730,580,'yes' ,'no','1',5,4)">

'LCASE = Scrive TUTTO in minuscolo
'LEFT = TAGLIA i caratteri dopo l'n-esimo (in questo caso 29) e aggiunge "..."
<%= rsQuery("campo_data") %> - <% if (rsQuery("titolo")) > left (rsQuery("titolo"),65) then
Response.Write lcase(Left(rsQuery("titolo"),29)+"...")
else
Response.write lcase(replace(rsQuery("titolo")& "", VbCrLf, "<br/>"))
end if
%>
</a><br>
<%
rsQuery.MoveNext : i = i + 1
Wend

'Chiudo connessioni
rsQuery.close
set rsQuery =nothing
rs.close
set rs = nothing
%>

[SQL] [ASP] - SELECT MAX

Nella selezione del valore MASSIMO di un campo usare "AS" per assegnare il valore estratto al nome di un nuovo campo.

'apro connessioni al db
CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN
set rs=server.createobject("ADODB.recordset")

'questa è la Query
qry="SELECT MAX (nome_campo_da_estrarre) AS max_nome_campo FROM nome_tabella WHERE qualcosa = ('in questo modo') AND (qualcosaltro='SI' OR qualcosaltro='NO') ;"

rs.Open qry,conn

'assegno ad una variabile il valore estratto
nome_variabile_campo_estratto = rs.fields ("max_nome_campo")

'stampo il valore
response.write nome_variabile_campo_estratto

mercoledì 29 ottobre 2008

[ASP] - TRIM e REPLACE

Le funzioni TRIM e REPLACE permettono rispettivamente di eliminare gli spazi e sostituire alcune parole chiave presenti in una variabile.
Alcuni caratteri particolari possono infatti dare problemi nell'inserimento in Database o durante il passaggio di tali valori a funzioni Javascript.

In questo caso sostituiamo gli "a capo" con il tag HTML br:
variabile= Replace(variabile, chr(13) & chr(10), "<br />")

Al contrario, quando ad esempio richiamiamo il testo in un campo di testo, sostituiamo di nuovo i br con gli "a capo":
replace(variabile & "", "<br />",VbCrLf )

In questo caso togliamo gli spazi dalla stringa contenuta variabile e sostituiamo l'apice singolo con i doppi apici.
variabile= Replace(Trim(variabile), "'", "''")

[SQL] [ASP] - DELETE

Cancellare dati da una tabella in SQL e ASP.

CNN=Application("CNN")
set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN

qry="DELETE * FROM nome_tabella WHERE id= "& id &" ;"

'response.Write qry (in caso di errori)

conn.execute(qry)
conn.close
set conn=nothing

[JAVASCRIPT] - Tornare Indietro

Con questo codice Javascript è possibile tornare indietro di una pagina senza che i dati dei form vengano resettati.
Basta inserire nell'HREF dell'HTML:

javascript:history.back()

[SQL] [ASP] - INSERT

CNN=Application("CNN") 'connessione al Db

set conn=Server.CreateObject("ADODB.Connection")
conn.open CNN

qry = "INSERT INTO nome_tabella (nome_campo1, nome_campo2) VALUES ( '"&valore1& "', '"&valore2& "');"
'response.write(qry) in caso di errori...
'response.end() in caso di errori...
conn.execute(qry)

conn.close
set conn=nothing

[JAVASCRIPT] - Controllo campi numerici

Queste funzioni, INSIEME, controllano che i campi inseriti in una SELECT siano tutti numerici.

Nel campo di testo del form che dobbiamo controllare aggiungiamo
onBlur="check('numero')"

function isnumber(numero)
{
var numstr="0123456789";
var thischar;
var counter=0;
for(var i=0;i<numero.length;i++)
{
thischar=numero.substring(i,i+1)
if(numstr.indexOf(thischar) != -1)
counter++;
}
if(counter==numero.length)
return(true);
else
return(false);
}

function check(numero)
{
obj=eval("document.info."+ numero)
a=obj.value
if(isnumber(a)==false)
{
alert("Attenzione! Puoi inserire solo caratteri numerici")
obj.value=""
obj.focus()
}
}

[JAVASCRIPT] - Controllo numero caratteri

Questa funzione controlla che i caratteri in una select non siano più del numero passato alla funzione (in questo caso 70)

function number70(crt)
{
var counter=0
obj=eval("document.info."+crt)
data=obj.value
for (var i=0; i<data.length;i++)
{
if(i==70)
{
alert("attenzione:non puoi digitare più di 70 caratteri")
obj.value=""
obj.focus()
}
}
}

martedì 28 ottobre 2008

[JAVASCRIPT] - Stampare una pagina

L'HREF del link conterrà il carattere # mentre prima inserire il seguente codice:

onClick="javascript:window.print()"
href=”#”

[JAVASCRIPT] - Chiudere una finestra o una PopUp

Basta inserire questo pezzo di codice nell'HREF del link:

**javascript:window.close()**

[JAVASCRIPT] - Conferma di eliminazione

La seguente funzione attende la conferma dell'utente prima di cancellare l'elemento selezionato.

Ha bisogno della funziona gotopage()

Alla funziona passiamo i parametri del nome dell'elemento da cancellare e l'id che sarà poi passato alla pagina successiva per la cancellazione.

Dentro l'HREF ci sarà qualcosa del tipo:
javascript:cancel('<%=rs.fields("id")%>','<%=rs.fields("mail")%>')

(rs.fields: campi presi dal DB in ASP, possiamo mettere qualunque valore)

function gotopage(pPagina)
{
document.info.method="post";
document.info.action=pPagina;
document.info.submit();
}

function cancel (id, mail)
{
scelta=window.confirm("Attenzione hai scelto di eliminare " + mail + ". Premi Ok per proseguire oppure Annulla per annullare.")
if (scelta==true)
{
gotopage("indirizzo_delete.ext?id=" + id)
}
}

[JAVASCRIPT] - Controllo pulsanti RADIO

Questa funzione esegue un controllo su pulsanti RADIO di un form.

Lasciare la Action del Form vuota.
Aggiungere nella riga di dichiarazione del form onSubmit="return conferma(this);"

Dovrà esserci presente un normale pulsante SUBMIT.

<script language=”javascript”>
function conferma(theForm)
{
var a1=false
for(var k=0;k<theForm.elements['domanda1'].length;k++){
if (theForm.elements['domanda1'][k].checked) a1=true;
}
if(!a1){
alert('Attenzione! Non è stata selezionata alcuna risposta alla domanda 1');
return false;
}

var a2=false
for(var k=0;k<theForm.elements['domanda2'].length;k++){
if (theForm.elements['domanda2'][k].checked) a2=true;
}
if(!a2){
alert('Attenzione! Non è stata selezionata alcuna risposta alla domanda 2');
return false;
}

********* qui sotto non è un campo radio ma un campo d testo *********
var a5=false
if(!(document.info.commento1.value=="")) a5=true;
if(!a5){
alert('Attenzione! Non è stata inserita alcuna risposta nel campo 5');
return false;
}
*************************************************************
else
document.info.method="post";
document.info.action = "indice_gradimento_exe.asp";
document.info.submit()
}

</script>

[JAVASCRIPT] - Controllo Campi di testo e/o Select

Queste due funzioni insieme controllano che tutti i campi testo o delle Select non siano vuoti.

Se in ogni campo è stato scritto qualcosa procede e passa i valori alla pagina seguente con un metodo POST. Altrimenti apre una popup segnalando l'errore.

N.B.: La action del form deve essere vuota

Chiamare il form “info”


Il collegamento sarà un HREF con scritto:

** javascript:procedi('indirizzo.ext?visitato=true') **

(il campo visitato=true mi permette di portare alla pagina seguente un valore che potrebbe risultarmi utile.)


function gotopage(pPagina)
{
document.info.method="post";
document.info.action=pPagina;
document.info.submit();
}

function procedi(ind)
{

err=false //variabile che mi dice se ci sono errori
cont=0 //contatore errori
campi=0 //campo che non è stato valorizzato

str = new Array();
str[1] = "ruolo";
str[2] = "tipo_formazione";
str[3] = "offerta";
str[4] = "titolo";
str[5] = "descrizione";

if(document.info.ruolo.value=="")
{err=true;++cont;campi=1;}

if(document.info.tipo_formazione.value=="")
{err=true;++cont;campi=2;}

if(document.info.offerta.value=="")
{err=true;++cont;campi=3;}

if(document.info.titolo.value=="")
{err=true;++cont;campi=4}

if(document.info.descrizione.value=="")
{err=true;++cont;campi=5;}

if(err==false)
{
//possiamo andare avanti
gotopage(ind)
}
else
{
//messaggio di errore
if(cont!=1)
{
alert("Attenzione Non hai compilato alcuni campi obbligatori")
}
else
{
alert("Inserisci " + str[campi])
}
}
}

[JAVASCRIPT] - Aprire PopUp e parametri WINDOW.OPEN

Per aprire una nuova finestra in forma di POPUP utilizziamo questo esempio di codice:

<a onClick="javascript:window.open('PAGINA.EXT','NOME_FINESTRA',
'left=20,top=20,width=500,height=500,toolbar=1,resizable=0');">
pulsante, immagine o testo per aprire la popup </a>

ecco i parametri di WINDOW.OPEN:

toolbar=0|1 Specidifca se mostrare la TOOLBAR o no
location=0|1 Specifica se mostrare la linea dell'indirizzo URL
directories=0|1 Specifica se mostrare i èpulsanti di directory di Netscape
status=0|1 Specifica se mostrare la Status Bar del Browser
menubar=0|1 Specifica se mostrare il Menu Bar del browser
scrollbars=0|1 Specifica se la finestra debba avere o no le Scrollbars
resizable=0|1 Specifica se la finestra sia ridimensionabile
width=pixels Larghezza nuova finestra
height=pixels Altezza nuova finestra
top=pixels Specifica la coordinata Y rispetto al margine superiore sinistro della nuova finestra
left=pixels Specifica la coordinata Y rispetto al margine superiore sinistro della nuova finestra

lunedì 27 ottobre 2008

[UTILITIES] - Applicazioni Nascoste Windows XP

Ottima raccolta di applicazioni "nascoste" di windows xp. Basta cliccare su “start”->”esegui” ed inserire il file .exe per utilizzarli.

1) Character Map = charmap.exe (utile per ricercare caratteri inusuali)
2) Disk Cleanup = cleanmgr.exe
3) Clipboard Viewer = clipbrd.exe (vedi il contenuto degli appunti)
4) Dr Watson = drwtsn32.exe (Troubleshooting tool)
5) DirectX diagnosis = dxdiag.exe (Diagnose & test DirectX, video & sound cards)
6) Private character editor = eudcedit.exe (Ti permette di creare o modificare caratteri)
7) IExpress Wizard = iexpress.exe (Crea pacchetti di installazione/estrazione)
8 ) Microsoft Synchronization Manager = mobsync.exe (sincronizza file nel network quando lavori offline)
9) Windows Media Player 5.1 = mplay32.exe (Vecchia versione di Media Player).
10) ODBC Data Source Administrator = odbcad32.exe (qualcosa con i database)
11) Object Packager = packager.exe (per inserire file in pacchetti).
12) System Monitor = perfmon.exe (veramente utile,molto configurabile,ti permette di vedere le performance del tuo pc)
13) Program Manager = progman.exe (Legacy Windows 3.x desktop shell).
14) Remote Access phone book = rasphone.exe
15) Registry Editor = regedt32.exe [also regedit.exe] (per hackerare i registri di windows).
16) Network shared folder wizard = shrpubw.exe (create cartelle condivise in rete).
17) File siganture verification tool = sigverif.exe
18) Volume Contro = sndvol32.exe
19) System Configuration Editor = sysedit.exe (modifica System.ini & Win.ini).
20) Syskey = syskey.exe (database di account sicuri).
21) Microsoft Telnet Client = telnet.exe
22) Driver Verifier Manager = verifier.exe (verifica problemi con i driver).
23) Windows for Workgroups Chat = winchat.exe.
24) System configuration = msconfig.exe (controlla l’avvio di programmi)
25) gpedit.msc usato per gestire permessi e accessi degli utenti

Fonte: Technorati

[LINK] - Password Standard Router Modem

Elenco di tutte le Password Standard (di fabbrica) di Router e Modem

Segnalo anche un altro utilissimo sito:
VulnerabilityAssessment
che fornisce anche un archivio con login e password e non solo.

[LINK] - POP3 SMTP DNS IMAP4

[UTILITIES] - Ripristinare file di sistema Windows

Inserisci il cd di installazione del sistema operativo poi vai su start - esegui e digita
sfc /scannow
Il comando verifica ed eventualmente ripristina dal cd eventuali file di sistema mancanti o danneggiati.

[UTILITIES] - FAT e FAT32 in NTFS da Prompt dei comandi

Apri il prompt dei comandi facendo clic sul pulsante Start, scegliendo Tutti i programmi, quindi Accessori e infine Prompt dei comandi.

Nella finestra del prompt dei comandi digita

convert lettera_unità: /fs:ntfs

Ad esempio, digitando convert D: /fs:ntfs l'unità D: verrà formattata con NTFS. Utilizzando questo comando è possibile convertire i volumi FAT o FAT32 in NTFS.

Importante: Dopo aver convertito un'unità o una partizione in NTFS, non è possibile riconvertirla nel file system FAT o FAT32. In questo caso, sarà infatti necessario riformattare l'unità o la partizione con una conseguente cancellazione dei dati presenti sulla partizione, inclusi programmi e file personali.

[TUTORIAL] - Inserire Google AdSense tra i Post di Blogspot

Per inserire automaticamente AdSense all'inizio o alla fine del post è necessario copiarne il codice dentro il template, ma non è possibile farlo così come viene fornito da Google, bisogna prima modificarlo per farlo aderire allo standard XML usato da Blogger per i suoi template. Per farlo, generiamo il codice HTML da AdSense e utilizziamo PARSE EDITOR per trasformare in ASCII i tag HTML.

Incolliamo il codice AdSense e clicchiamo su Parse in fondo alla pagina, per ottenere il codice che utilizzeremo dentro il template.

L'utilizzo di questo strumento non viola i termini del contratto di AdSense, che prevede di non modificare il codice html degli annunci: infatti stiamo solo indicando alcuni caratteri con una "terminologia diversa", ma il risultato finale sarà lo stesso.

Quest'operazione si rende necessaria, ripeto, per far cambiate il codice XHTML di AdSense in codice XML usato da Blogger.

Inserire AdSense tra il titolo e il post

Una volta modificato il codice di AdSense come spiegato sopra, andate in Layout->Modifica HTML e, dopo aver selezionato "Espandi i modelli widget", cercate nel template la seguente riga di codice:

<div class='post-body'

e subito sopra incollategli il codice generato prima. Se volete, come nel mio caso, mostrare la pubblicità solo se viene visualizzato il singolo post e non sempre, dovrete racchiudere il codice modificato di AdSense tra le righe evidenziate in rosso:

<b:if cond='data:blog.pageType == &quot;item&quot;'>
<p>
Codice AdSense modificato
</p>
</b:if>

E inserirlo sempre nel punto indicato sopra. Salvate e visualizzate il blog.

Inserire AdSense alla fine del post prima dei commenti

Generate il codice AdSense e modificatelo come sopra, aggiungendo se volete le righe in rosso, ma inseritelo nel template dopo la seguente riga:

<p><data:post.body/></p>

Fatto!

Fonte: link

[LINK] - scrivere codice HTML senza che venga interpretato

Per poter scrivere del codice HTML senza che venga interpretato dall'editor, bisogna scrivere i codici ASCII dei caratteri che compongono i TAG.
Ad esempio al posto di < bisogna usare < e al posto di > invece >
tramite il link sotto è possibile scrivere tutto il codice e trasformare direttamente in poco tempo tutti i tag del codice.

[LINK] - blogcrowds.com

Il primo ringraziamento va a questo sito dal quale ho preso parecchio spunto per la realizzazione di questo Template.

http://www.blogcrowds.com