Appunti, stralci di programmazione e altro
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…
Rss.xslt Rss.xslt <?xml version="1.0" encoding="utf-8"?> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:msxsl="urn:schemas-microsoft-com:xslt" exclude-result-prefixes="msxsl"> <xsl:output method="html" indent="yes"/> <xsl:template match="/"> <ul> <xsl:for-each select="rss/channel/item"> <li> <a href="{link}"> <xsl:value-of select="title" /> </a> </li> </xsl:for-each> </ul> </xsl:template> </xsl:stylesheet>…