Bài viết này mình sẽ hướng dẫn bạn viết cho mình 1 công cụ đếm lượt truy cập vào website bằng ngôn ngữ ASP.
Đầu tiên bạn hãy tạo các hình ảnh biểu thị các số đếm từ 0 đến 9. Nếu không có khả năng đồ họa các bạn có thể download tại: http://tinyurl.com/d3eahg
Giờ bạn tạo 1 file .txt với nội dung là: 1
Tiếp đến là bạn chèn mã ASP vào vị trí muốn đặt bộ đếm:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | <% ' Huynh Mai Anh Kiet ' Quy Nhon - Binh Dinh ' 0905.567.654 ' wWw.MangBinhDinh.Info Dim fsoObject Dim tsObject Dim filObject Dim lngVisitorNumber Dim intWriteDigitLoopCount Set fsoObject = Server.CreateObject("Scripting.FileSystemObject") Set filObject = fsoObject.GetFile(Server.MapPath("HuynhMaiAnhKiet.txt")) Set tsObject = filObject.OpenAsTextStream lngVisitorNumber = CLng(tsObject.ReadAll) lngVisitorNumber = lngVisitorNumber + 1 Set tsObject = fsoObject.CreateTextFile(Server.MapPath("HuynhMaiAnhKiet.txt")) tsObject.Write CStr(lngVisitorNumber) Set fsoObject = Nothing Set tsObject = Nothing Set filObject = Nothing For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber) 'Hien Thi Bo Dem Response.Write("[img][/img]") Next %> |
Trong đó HuynhMaiAnhKiet.txt là tên tập tin txt tạo ra lúc nãy và HuynhMaiAnhKiet là thư mục chứa tập tin ảnh các số đếm từ 0 đến 9. Ở đây định dạng ảnh là .gif các bạn có thể dùng định dạng ảnh khác như .jpg, .bmp, .png và bạn định dạng lại tại đoạn mã
1 | Response.Write(Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & ".gif""") |
Rồi giờ bạn chỉ upload lên host hỗ trợ ASP là chạy thôi.
Chú ý là tập tin .txt bạn phải set quyền ghi cho nó nha.
Download code ví dụ: http://tinyurl.com/dfuf6q.
Huỳnh Mai Anh Kiệt
