Lập trình asp.net để tạo bộ đếm số người online

Chia sẻ: Lang Huyen | Ngày: | Loại File: PDF | Số trang:4

Thêm vào BST

Báo xấu

330
lượt xem 111
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Cụm từ "số người on-line" của bạn không rõ ràng, thường thì người ta chỉ muốn đếm xem có bao nhiêu người đã truy xuất website cụ thể. Để xây dựng trang ASP hiển thị dòng chữ miêu tả số người đã truy xuất website (hay trang web) của mình, bạn cần giải quyết 2 vấn đề cơ bản: - Viết hàm chuyển đổi từ số nguyên sang dòng chữ phát âm số nguyên đó. - Tăng counter đếm (thường phải được để trên file hay database để lưu giữ lâu dài ngay cả khi trang web không được truy...

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Lập trình asp.net để tạo bộ đếm số người online

Lập trình asp.net để tạo bộ đếm số người online Hỏi: Xin hướng dẫn lập trình asp.net để tạo bộ đếm số người online và dịch từ số đó sang chữ. Đáp: Cụm từ "số người on-line" của bạn không rõ ràng, thường thì người ta chỉ muốn đếm xem có bao nhiêu người đã truy xuất website cụ thể. Để xây dựng trang ASP hiển thị dòng chữ miêu tả số người đã truy xuất website (hay trang web) của mình, bạn cần giải quyết 2 vấn đề cơ bản: - Viết hàm chuyển đổi từ số nguyên sang dòng chữ phát âm số nguyên đó. - Tăng counter đếm (thường phải được để trên file hay database để lưu giữ lâu dài ngay cả khi trang web không được truy xuất hay máy server bị shutdown), rồi dùng hàm chuyển đổi counter hiện hành sang chuỗi phát âm tương ứng và hiển thị ở vị trí thích hợp trên trang web. Đoạn lệnh sau đây là của trang ASP demo do chúng tôi viết, mỗi khi có người dùng nào đó truy xuất sẽ lưu thông tin về người dùng đó lên table tên là ClientsTab, rồi đếm tổng số người dùng đã truy xuất từ trước đến nay và hiển thị chuỗi phát âm lên trang web kết quả: = 1000 Then sotram2chu = "???" Exit Function End If 'Xác định 3 ký số miêu tả hàng trăm, hàng chục & đơn vị
shangtram = socandoi \ 100 socandoi = socandoi Mod 100 shangchuc = socandoi \ 10 shangdonvi = socandoi Mod 10 If shangtram >= 1 Then str = chuso(shangtram) & " trăm" End If If shangchuc >= 2 Then str = str & " " & chuso(shangchuc) & " mươi" ElseIf shangchuc = 1 Then str = str & " mười" End If If shangdonvi = 0 Then sotram2chu = str Exit Function End If If shangchuc = 0 Then If shangtram 0 Then str = str & " lẻ " & chuso(shangdonvi) Else str = str & " " & chuso(shangdonvi) End If sotram2chu = str Exit Function End If If shangchuc = 1 Then If shangdonvi 5 Then str = str & " " & chuso(shangdonvi) Else str = str & " lăm" End If sotram2chu = str Exit Function End If If shangdonvi = 1 Then str = str + " mốt" ElseIf shangdonvi = 5 Then str = str + " lăm" Else str = str + " " + chuso(shangdonvi) End If sotram2chu = str End Function '------------------------------------ ' Hàm đổi 1 số nguyên bất kỳ thành chuỗi phát âm tương ứng
'------------------------------------ Private Function so2chu(socandoi) Dim idx 'As Integer Dim ba_kyso 'As Integer Dim str, str_tram 'As String Dim tu_ngan_cach 'As String Dim chu_cach(5) 'As String chu_cach(1) = "tỷ" chu_cach(2) = "ngàn" chu_cach(3) = "triệu" idx = 0 ' vi tri dau cham phan cach tung 3 ky so str = "" str_tram = "" While socandoi 0 ba_kyso = socandoi Mod 1000 socandoi = socandoi \ 1000 str_tram = sotram2chu(ba_kyso) 'nen bo cac khoang trong dan dau If idx = 0 Then ' vi tri don vi str = str_tram ElseIf Len(str_tram) 0 Then 'vi tri ngan, trieu, ty tu_ngan_cach = chu_cach((idx Mod 3) + 1) str = str_tram + " " + tu_ngan_cach + " " + str ElseIf (idx Mod 3) = 0 Then str = "tỷ " + str End If idx = idx + 1 Wend so2chu = str End Function //hàm lưu thông tin về người dùng truy xuất và đếm số lượt người Function UserCount() 'khai báo các biến cần dùng dim MyConnection dim MyCommand dim MyRecordset 'tạo 1 connection đến database dung DSN set MyConnection = Server.CreateObject("ADODB.Connection") MyConnection.Open "DSN=MyDatabase" 'tạo đối tượng Command set MyCommand = Server.CreateObject("ADODB.Command") MyCommand.ActiveConnection = MyConnection 'lưu thông tin người dùng đang truy xuất vào database MyCommand.CommandText = "INSERT INTO ClientsTab VALUES ('" & Request.ServerVariables("Remote_Addr") & "','" & Request.ServerVariables("Path_Info") &
"','" & Request.ServerVariables("HTTP_User_Agent") & "')" MyCommand.Execute() 'đọc tất cả record trong table ClientsTab MyCommand.CommandText = "SELECT * FROM ClientsTab" set MyRecordset = MyCommand.Execute() clientnum = 0 'đếm số record trong table ClientsTab Do While Not MyRecordset.EOF clientnum = clientnum + 1 MyRecordset.MoveNext Loop 'đổi số lượt người ra chuỗi phát âm usercount=so2chu(clientnum) 'đóng các đối tượng đã dùng lại MyRecordset.Close MyConnection.Close End Function %> Bạn là người truy cập thứ tới trang web này. ...