ASP.NET | Spedire una sitemap a Google
La seguente procedura permette di spedire al motore di ricerca Google la sitemap di un sito internet. Come esempio è stata presa in considerazione la sitemap di questo blog raggiungibile…
Appunti, stralci di programmazione e altro
La seguente procedura permette di spedire al motore di ricerca Google la sitemap di un sito internet. Come esempio è stata presa in considerazione la sitemap di questo blog raggiungibile…
Questa funzione permette di eliminare tutti i tag html da un testo: Function CleanHtml(ByVal html As String) As String html = html.Replace(">", "> ") Dim doc = New HtmlAgilityPack.HtmlDocument() doc.LoadHtml(html)…
La seguente funzione permette di recuperare il nome della pagina web attuale Function GetCurrentPage() As String Dim t() As String = Request.ServerVariables("URL").Split("/") Dim r As String = t(UBound(t)) Return r…
Il seguente esempio mostra la possibilità di leggere i messaggi di posta elettronica di un account POP3 e di scaricare gli eventuali allegati. La procedura utilizza la libreria LumiSoft Imports…
Il seguente esempio mostra come poter scrivere un testo su una immagine utilizzata come template. Public Sub WriteOnImage(_ImageName As String, _Text As String) Dim Template As String = Server.MapPath("template.bmp") Dim…
Questo comando esegue il backup del database “master” di sql server nella cartella C:\Backup: osql -S .\sqlexpress -E -Q “BACKUP DATABASE master TO DISK=’C:\Backup\master.bak’ WITH FORMAT
Protected Function GetFTPFile(ByVal FileDaScaricare As String) As String Dim r As String = String.Empty Dim a As String = Now.Year Dim m As String = Now.Month If CInt(m) < 10…
Imports System.Net Dim Result As String = String.Empty Dim url As String = "url della pagina che vuoi catturare" Dim http As WebClient = New WebClient Dim bResult As Byte()…
Imports System.Net Dim url As String = “http://www.sorrentino.it/sorrentino.html” Dim http As WebClient = New WebClient http.DownloadFile(url, “C:\html\sorrentino.html”)
Imports System.Security.Cryptography Public Class MyEncrypt Dim EncryptionKey As String = "password scelta da te" Public Function EncryptString128Bit(ByVal vstrTextToBeEncrypted As String) As String Dim bytValue() As Byte Dim bytKey() As Byte…