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. | Lập trình để tạo bộ đếm số người online Hỏi Xin hướng dẫn lập trình để 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ả html meta http-equiv Content-Type content text html charset utf-8 head --------------------------- Hàm đổi 1 số có tối đa 3 ký số thành chuỗi tương ứng. I Private Function sotram2chu socandoi As String Khai báo dữ liệu Dim chuso 11 As String Dim shangchuc shangtram shangdonvi Dim str As String chuso 1 một chuso 2 hai chuso 3 ba chuso 4 bốn chuso 5 năm chuso 6 sáu chuso 7 bảy chuso 8 tám chuso 9 chín str Kiểm tra số cần đổi có hợp lệ không If socandoi 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 Elself 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
