<%
Dim adoCon
Dim strCon
Dim strSQL
Dim rsconfiguration
Dim blnEmail ' verifica notifica email
Dim intRecordsPerPage ' numero di record per pagina
Dim emailamministratore ' indirizzo email amministratore
Dim blnCookieSet ' verifica funzione anti-spam
Dim Ublogtype ' tipologia di blog: "open" oppure "closed"
Dim Ublogname ' titolo delle pagine che ospitano Ublog
Dim MySQLSVR
' indirizzo IP oppure nome dell'host su cui risiede
MySQL server
Dim MySQLPRT ' porta di MySQL (default 3306)
Dim MySQLUID ' nome utente
MySQL Dim MySQLPWD ' password MySQL
Dim MySQLDB ' nome del database
MySQL Dim MySQLOPT ' MyODBC valore opzionale
Dim StrPath ' 'percorso fisico della cartella di upload immagini
Dim StrPathShort ' percorso virtuale della cartella di upload immagini
Dim kinkoffile ' tipo di file ammessi per l'upload
Dim maxsizefile ' dimensione massima ammessa per le immagini uploadate
'#######################################
' INIZIO MODIFICA
'#######################################
' imposta il numero di pagine che devono essere visualizzate in blocco nel men riguardante la paginazione
PagesPerBlock=10
'parametri per la connessione al db
MySQLSVR = "000.000.000.000"
MySQLPRT =
MySQLUID = "000000000"
MySQLPWD = "000000000"
MySQLDB = "000000000"
MySQLOPT =
'apertura connessione al db
Set adoCon = Server.CreateObject("ADODB.Connection")
strCon = "Driver={MySQL};server="&MySQLSVR&";port="&MySQLPRT&";uid="&MySQLUID&";pwd="&MySQLPWD&";database="&MySQLDB&";option="&MySQLOPT&""
adoCon.Open strCon
' definizione parametri upload immagini
kinkoffile = "jpg,gif,bmp,png"
maxsizefile = 50000 ' 50 kb
'Per conoscere percorso fisico della cartella di upload basta
' eseguire una pagina asp con il seguente codice:
'Response.Write "Path: " & Server.MapPath("/public/images_upload")
StrPath = "d:\inetpub\webs\tuositocom\public\images_upload"
StrPathShort = "/public/images_upload/"
'#######################################
' FINE MODIFICA
'#######################################
Set rsconfiguration = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT configurazione.* FROM configurazione;"
rsconfiguration.CursorType = 3
rsconfiguration.Open strSQL, adoCon
if NOT rsconfiguration.EOF then
Ublogname = rsconfiguration("nomeblog")
emailamministratore = rsconfiguration("email_address")
intRecordsPerPage = CInt(rsconfiguration("n_record"))
blnCookieSet = CBool(rsconfiguration("cookie"))
Ublogtype = rsconfiguration("tipologia")
end if
rsconfiguration.Close
Set rsconfiguration = Nothing
function Anteprima(sText, nParole)
Dim nTemp, nVolte
'Eliminiamo gli eventuiali caratteri di CR ed LF
sText = Replace(sText, vbCrLf, "")
'Cerca la fine della prima parola
nTemp = InStr(sText, " ")
if nTemp <> 0 then
nVolte = 1
'Finche` non abbiamo finito le parole o abbiamo
'raggiunto quelle massime
While nTemp <> 0 And nVolte < nParole
'Incrementiamo il numero delle parole trovate
nVolte = nVolte + 1
'Cerchiamo la fine della parola successiva
nTemp = InStr(nTemp + 1, sText, " ")
Wend
end if
'Se abbiamo trovato qualche parola
if nVolte > 0 then
'Se La variabile nTemp > 0 allora significa che
'abbiamo trovato le n parole che ci serivivano
if nTemp > 0 then
'Le stampiamo insieme ai puntini
Anteprima = Mid(sText, 1, nTemp - 1) & " ..."
else
'Altrimenti abbiamo trovato meno delle n
'parole. Stampiamo la frase intera
Anteprima = sText
end if
else
'una sola parola
if Len(sText) > 0 then
Anteprima = sText
else
'La frase passata ha lunghezza 0
Anteprima = ""
end if
end if
end Function
%>