|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 CLASS : SUIVRE L'ACTIVITÉ DE SON SITE INTERNET
 Information sur la source
 Description
Voila une classe très simple mais très pratique ! Vous l'ajoutez a votre site Internet (ou dans votre framework si vous en avez un) et vous "loguez" les fonctions importantes de votre site comme les inscriptions à la newsletter, les commandes, les messages des internautes, mais aussi et surtout les arrêts de l'application, les erreurs du site, ...
dans les annotations, vous avez un exemple pour loguer les erreurs et les traces de votre site.
CREATE TABLE [dbo].[AA_Events] (
[EVT_ID] [int] IDENTITY (1, 1) NOT NULL ,
[EVT_TITLE] [text] COLLATE French_CI_AS NOT NULL ,
[EVT_DATE] [datetime] NOT NULL ,
[EVT_PRIO] [int] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
 Source
- Imports System.Data.SqlClient
- Imports System.Configuration
-
- Namespace IO
-
- Public Class Logs
-
- Public Shared Sub AddEvent(ByVal titleEvent As String, Optional ByVal Priorite As Integer = 3)
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim com As New SqlCommand("INSERT INTO AA_Events (EVT_TITLE,EVT_PRIO) VALUES ('" & Replace(titleEvent, "'", "''") & "'," & Priorite & ")", conn)
- Try
- conn.Open()
- com.ExecuteNonQuery()
- Catch ex As Exception
-
- Finally
- com = Nothing
- conn.Close()
- conn = Nothing
- End Try
- End Sub
-
- Public Shared Function GetEventsDay() As DataTable
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim DataAdap As SqlDataAdapter
- Dim latable As New DataTable
- Try
- conn.Open()
- DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE dbo.trunc(EVT_DATE)=dbo.trunc(getdate()) ORDER BY EVT_DATE DESC", conn)
- DataAdap.Fill(latable)
- Catch ex As Exception
-
- Finally
- DataAdap.Dispose()
- DataAdap = Nothing
- conn.Close()
- conn = Nothing
- End Try
- Return latable
- End Function
-
- Public Shared Function GetEvents() As DataTable
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim DataAdap As SqlDataAdapter
- Dim latable As New DataTable
- Try
- conn.Open()
- DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events ORDER BY EVT_DATE DESC", conn)
- DataAdap.Fill(latable)
- Catch ex As Exception
-
- Finally
- DataAdap.Dispose()
- DataAdap = Nothing
- conn.Close()
- conn = Nothing
- End Try
- Return latable
- End Function
-
- Public Shared Sub DelAllEvents()
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim com As New SqlCommand("DELETE FROM AA_Events", conn)
- Try
- conn.Open()
- com.ExecuteNonQuery()
- Catch ex As Exception
-
- Finally
- com = Nothing
- conn.Close()
- conn = Nothing
- End Try
- End Sub
-
- Public Shared Sub DelEventsPRIO(ByVal Priorite As Integer)
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim com As New SqlCommand("DELETE FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString, conn)
- Try
- conn.Open()
- com.ExecuteNonQuery()
- Catch ex As Exception
-
- Finally
- com = Nothing
- conn.Close()
- conn = Nothing
- End Try
- End Sub
-
- Public Shared Function GetEventsByPrio(ByVal Priorite As Integer) As DataTable
- Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
- Dim DataAdap As SqlDataAdapter
- Dim latable As New DataTable
- Try
- conn.Open()
- DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString & " ORDER BY EVT_DATE DESC", conn)
- DataAdap.Fill(latable)
- Catch ex As Exception
-
- Finally
- DataAdap.Dispose()
- DataAdap = Nothing
- conn.Close()
- conn = Nothing
- End Try
- Return latable
- End Function
-
- End Class
-
- End Namespace
Imports System.Data.SqlClient
Imports System.Configuration
Namespace IO
Public Class Logs
Public Shared Sub AddEvent(ByVal titleEvent As String, Optional ByVal Priorite As Integer = 3)
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim com As New SqlCommand("INSERT INTO AA_Events (EVT_TITLE,EVT_PRIO) VALUES ('" & Replace(titleEvent, "'", "''") & "'," & Priorite & ")", conn)
Try
conn.Open()
com.ExecuteNonQuery()
Catch ex As Exception
Finally
com = Nothing
conn.Close()
conn = Nothing
End Try
End Sub
Public Shared Function GetEventsDay() As DataTable
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim DataAdap As SqlDataAdapter
Dim latable As New DataTable
Try
conn.Open()
DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE dbo.trunc(EVT_DATE)=dbo.trunc(getdate()) ORDER BY EVT_DATE DESC", conn)
DataAdap.Fill(latable)
Catch ex As Exception
Finally
DataAdap.Dispose()
DataAdap = Nothing
conn.Close()
conn = Nothing
End Try
Return latable
End Function
Public Shared Function GetEvents() As DataTable
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim DataAdap As SqlDataAdapter
Dim latable As New DataTable
Try
conn.Open()
DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events ORDER BY EVT_DATE DESC", conn)
DataAdap.Fill(latable)
Catch ex As Exception
Finally
DataAdap.Dispose()
DataAdap = Nothing
conn.Close()
conn = Nothing
End Try
Return latable
End Function
Public Shared Sub DelAllEvents()
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim com As New SqlCommand("DELETE FROM AA_Events", conn)
Try
conn.Open()
com.ExecuteNonQuery()
Catch ex As Exception
Finally
com = Nothing
conn.Close()
conn = Nothing
End Try
End Sub
Public Shared Sub DelEventsPRIO(ByVal Priorite As Integer)
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim com As New SqlCommand("DELETE FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString, conn)
Try
conn.Open()
com.ExecuteNonQuery()
Catch ex As Exception
Finally
com = Nothing
conn.Close()
conn = Nothing
End Try
End Sub
Public Shared Function GetEventsByPrio(ByVal Priorite As Integer) As DataTable
Dim conn As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim DataAdap As SqlDataAdapter
Dim latable As New DataTable
Try
conn.Open()
DataAdap = New SqlDataAdapter("SELECT * FROM AA_Events WHERE EVT_PRIO=" & Priorite.ToString & " ORDER BY EVT_DATE DESC", conn)
DataAdap.Fill(latable)
Catch ex As Exception
Finally
DataAdap.Dispose()
DataAdap = Nothing
conn.Close()
conn = Nothing
End Try
Return latable
End Function
End Class
End Namespace
 Conclusion
Par exemple, dans le global.asax.vb, ajoutez dans :
<b>Application_Start :</b>
IO.Logs.AddEvent("Arrêt de l'application", 2)
<b>Application_Error :</b>
Dim sBody As String = "Erreur : " + Server.GetLastError().InnerException.Message + vbCrLf + "Page : " + Request.ServerVariables("SCRIPT_NAME") + vbCrLf + "QUERY_STRING : " + Request.ServerVariables("QUERY_STRING") + vbCrLf + "Référent : " + Request.ServerVariables("HTTP_REFERER") + vbCrLf + "Navigateur : " + Request.UserAgent.ToString + vbCrLf + "Paramètre : " + Request.ServerVariables("HTTP_URL") + vbCrLf + vbCrLf + "Stack : " + Environment.StackTrace
IO.Logs.AddEvent(Replace(sBody, vbCrLf, "<br>"), 1)
 Sources du même auteur
 Sources de la même categorie
Sources en rapport avec celle ci
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Je veux installer mon site sur internet [ par frankint ]
Voilà tout ce que moi je sais - Dans mon site j'ai du html vbscript javascript et du asp- Jai une base de donnée accès - j'ai un dsn créer localment -
telechargement [ par guizmows ]
Je voudrais mettre des log en telechargement sur mon site. Mais je n'ai qu'une connection par modem et j'aimerai savoir s'il est possible de copier un
Site hébergé en réseau [ par Jujufouq ]
Bonjour, J'ai un énorme problème : je viens de faire mon site en asp.net et je suis en réseau. Mon pc n'a pas la connexion internet, c'est celui de
Site internet et connection BDD [ par titchou ]
J'ai développé une application avec la possibilité de modifier des données contenues dans un BDD Acces, en local sur ma machine et avec IIS comme serv
Commentaires [ par Jackboy ]
Bonjour ! Un petit commentaire sur le site, ont devraient avoir le droit de modification et suppression de nos commentaires... car quelques fois le si
Erreur 500 DotNet [ par DionysosArte ]
Salut,Pour un site ASP on peut gérer les erreurs 500 (erreurs serveur) en modifiants les propriété du site dans IIS avec le script suiv
Log IIS, reporting et suivi de site internet [ par quineman ]
Bonjour,Je souhaite savoir si une class existe en ASP.NET 2.0 permettant d'écrire des logs divers (avec des catégories par exemple) pour pouvoir trace
Log telechargements [ par poiuytrez3 ]
Bonjour, J'ai un site en asp.net 1.1 qui marche sous Windows serveur 2003, donc avec IIS 6.Dams l'onglet Web Site de Default WebSite Properties, j'ai
demande renseignment sur le developpement de site internet [ par gcorbineau ]
Bonjour à tous,Je doit developper un logiciel qui doit alimenter une base de données, ce logiciel sera developpé en C# avec visual stud
Cmt dév un site Internet ASP ds un environnement de serveurs délocalisés? [ par Leila83 ]
Mes cordiales salutations à ts les développeurs de codes-sources.com et en particulier ceux de aspfr.com !J'mré savoir: &
|
 Téléchargements
Logiciels à télécharger sur le même thème :
Comparez les prix Nouvelle version
|