ASP.NET: Xây dựng bộ đếm cho Web (Web Counter)
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[counter]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[counter]
GO
CREATE TABLE [dbo].[counter] (
[hit] [int] NOT NULL
) ON [PRIMARY]
GO
INSERT [dbo].[counter] (hit) VALUES (1)
GO
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[webcounter]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)
drop procedure [dbo].[webcounter]
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS OFF
GO
CREATE PROCEDURE dbo.webcounter
AS
BEGIN
SET NOCOUNT ON
DECLARE @hits INT
update counter set hit = hit + 1
SELECT hit from counter
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
This is our ASP.NET page. Please modify database connection.
<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SQLClient" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim objCon As New SQLConnection("server=ASP;User id='sa';password='123';database=dotnet")
Dim cmd As SQLCommand = New SQLCommand("EXEC dbo.webcounter", objCon)
objCon.Open()
Dim r as SQLDataReader
r = cmd.ExecuteReader()
r.read()
strCounter.text = "Hit : " & r.item(0)
end sub
</script>
<html>
<head>
</head>
<body>
<asp:label ID="strCounter" runat="server"/>
</body>
</html>
Title: ASP.NET: Xây dựng bộ đếm cho Web (Web Counter)
Post by
Publication: 2013-05-12T08:11:00-07:00
Post by
Publication: 2013-05-12T08:11:00-07:00
Klik untuk melihat kode: :) =( :s :D :-D ^:D ^o^ 7:( :Q :p T_T @@, :-a :W *fck* x@