سلام
ببین مثلا من یک ماژول ساختم که ویزیت صفجه رو حساب کنه
Public Class pagevisits
Public Sub visit(ByVal page As String)
Dim con1 As New SqlClient.SqlConnection
con1.ConnectionString = System.Configuration.ConfigurationSettings.AppSett ings.GetValues("connectionstring").GetValu e(0)
Dim cmd1 As New SqlClient.SqlCommand
cmd1.Connection = con1
cmd1.CommandText = "update pages set visits=visits + 1 where (name='all' or name='" & page & "')"
con1.Open()
cmd1.ExecuteNonQuery()
con1.Close()
End Sub
End Class
که در صفحه های دیگه به راحتی از این کد استفاده می کنم البته من فقط خواستم برات یه مثال بزنم
If Me.IsPostBack = False Then
Dim visit As New pagevisits
visit.visit("index2")
End If