|
Jika Anda surfing di internet dan mengunjungi suatu situs maka biasanya pada bagian bawah halaman web terdapat fasilitas web counter. Web counter disini berfungsi sebagai indikator counter dari pengunjung dari suatu situs pada page tertentu. Ini berguna bagi pemilik situs untuk mengetahui sudah berapa orang yang mengunjungi page pada situsnya.
Pada tulisan kali ini penulis akan mengajak pembaca semua untuk membuat web counter dengan menggunakan ASP (Active Server Pages) dan dengan memanfaatkan object FileSystemObject. Web counter yang akan kita buat adalah berupa text counter.
Tulisan ini bersifat terbuka yang berarti Anda bisa memberikan
komentar kepada tulisan ini melalui sony-ak@sony-ak.com. Anda dilarang keras mengutip sebagian atau seluruh tulisan ini tanpa
menyebutkan sumber aslinya.
Ada beberapa hal yang harus disiapkan untuk membuat web counter ini yaitu sebagai berikut:
1. Web server, penulis menggunakan Personal Web Server 4.0 sebagai web server untuk aplikasi ini. Tentu saja Anda dapat menggunakan web server lain yang mendukung ASP seperti MS Internet Information Server (MS IIS).
2. ASP script editor, penulis menggunakan Microsoft Visual Interdev 6.0 sebagai script editor. Anda bisa saja menggunakan MS FrontPage atau notepad.
OK, jika semua sudah siap maka langsung saja penulis akan beberkan ASP script nya sebagai berikut:
File Name: pagecount.asp
01. <% Option Explicit %>
02. <%
03. Dim oFileSys,FileCounter,oFS,PageVisit
04. Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
05. FileCounter = "c:\aritech\websites\experiment\pagecounter\datacount.dat"
06. if not oFileSys.FileExists(FileCounter) then
07. set oFS = oFileSys.CreateTextFile(FileCounter,True)
08. oFS.WriteLine "1"
09. oFS.Close
10. PageVisit = "1"
11. else
12. set oFS = oFileSys.OpenTextFile(FileCounter,1)
13. PageVisit = oFS.ReadAll
14. PageVisit = cstr(cint(PageVisit) + 1)
15. set oFS = oFileSys.OpenTextFile(FileCounter,2)
16. oFS.WriteLine PageVisit
17. oFS.Close
18. end if
19. Set oFileSys = nothing
20. %>
21. <html>
22. <head>
23. <title>Sony AK ASP Page Counter</title>
24. </head>
25. <body>
26. <p align="center"><font face="Tahoma" size="2">Selamat datang di Sony AK ASP
27. Page Counter Demo, Anda adalah pengunjung ke <%=PageVisit%> dari page ini.</font></p>
28. </body>
29. </html>
Bagian terpenting dari counter ini adalah mulai dari line 02 sampai line 20. Dimana sebenarnya bagian itu adalah bagian utama untuk menghasilkan counter. Sedangkan line 21 sampai line 29 adalah halaman web Anda yang bisa Anda modifikasi sesuai dengan keinginan.
Script diatas menggunakan object FileSystemObject untuk mengakses file teks tempat counter disimpan. Pada line 03 adalah bagian deklarasi variabel yang akan digunakan. Kita lihat ada variabel PageVisit yang nantinya akan kita gunakan untuk menyimpan nilai counter untuk ditampilkan pada web/page Anda. Pada line 04 kita akan membuat instance dari object FileSystemObject. Line 05 berisi variabel yang berisi nama file dan path untuk menyimpan data counter. Pada contoh diatas penulis menyimpan data counter pada file datacount.dat pada folder c:\aritech\websites\experiment\pagecounter\. Anda bisa mengubah bagian ini sesuai dengan folder yang Anda inginkan.
Line 06 akan melakukan pemeriksaan pada file data counter apakah sudah ada atau belum. Jika ternyata file data counter belum ada maka script akan membuat file tersebut dan mengisinya dengan nilai awal 1 (line 07 - 10). Jika file data counter ternyata sudah ada maka script akan melakukan pembacaan pada file data tersebut (line 12 - 13), kemudian script akan melakukan increment pada data counter (line 14) dan selanjutnya menyimpan data counter yang sudah di-increment tadi ke dalam file data kembali (line 15 - 17). Nah sampai disini variabel PageVisit akan berisi nilai counter web pada saat itu. Anda bisa meletakkan variabel ini untuk ditampilkan ke halaman web/page Anda. Pada contoh diatas penulis meletakkan variabel PageVisit pada line 27. Dan jadilah web counter Anda. Silakan Anda simpan script diatas pada web folder dan coba jalankan script diatas pada web browser.
Demikianlah tulisan mengenai pembuatan web/page counter sederhana berbasis teks. Jika ada komentar silakan kirim ke
sony-ak@sony-ak.com.
Selamat mencoba.
File script pagecount.asp bisa di download di sini dalam format zip.
| Send
your comments or suggestions |
|
|
|
