Appunti, stralci di programmazione e altro
Problema: Inserendo nel web.config la voce <modules runAllManagedModulesForAllRequests=”true” /> si verifica l’errore This configuration section cannot be used at this path. This happens when the section is locked at a…
L’esempio seguente mostra come poter estrarre da un testo il contenuto di una stringa delimitata mediante in marcatori “” Dim Regex As New Regex("\", RegexOptions.Singleline) Dim Matches As MatchCollection =…
Avviare Power Shell da SQL Server Management studio e lanciare il seguente script: $db = (new-Object Microsoft.SqlServer.Management.Smo.Server("nome_server")).Databases.Item("nome_database") Foreach ($sp in $db.StoredProcedures){ if(!$sp.IsSystemObject){ if (!$sp.IsEncrypted){ $sp.TextMode = $false; $sp.IsEncrypted = $true;…
La seguente procedura permette di esportare una gridview in un file pdf utilizzando la libreria ITextSharp Imports System.IO Imports iTextSharp.text Imports iTextSharp.text.pdf Imports iTextSharp.text.html Imports iTextSharp.text.html.simpleparser Public Overloads Overrides Sub…
Per gestire la data in formato UTC possiamo ricorrere ad una funzione javascript richiamata in ASP: <%@ language="vbscript"%> <script language="javascript" runat="server"> function jsGetUTCTime() { var d = new Date(); return…
Inserire questo codice in global.asax: Sub Application_BeginRequest(ByVal sender As Object, ByVal e As EventArgs) Dim path As String = HttpContext.Current.Request.Url.PathAndQuery Dim pagequery As String = path.Substring(path.LastIndexOf("/") + 1) Dim pagequery_Elements…
Il seguente codice permette di verificare se si sta navigando da un browser mobile oppure no: Dim hbc As HttpBrowserCapabilities = Request.Browser If (CType(hbc, System.Web.Configuration.HttpCapabilitiesBase)).IsMobileDevice Then Response.Write("Browser mobile") Else Response.Write("Browser…
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…