Search site


Contact

Tirta Sadewa
Banten

E-mail: greyhacker@reggaefan.com

IP
free counters

Poll

APAKAH ANDA SUKA DENGAN WEBSITE INI..?

Total votes: 185

Counter Powered by  RedCounter
www.Greyhacker.webnode.com www.alamnasroh666.tk
Grey Hacker
Krasak Underground | Underground Music | Compilation Music Underground.
Krasak Underground | Underground Music | Compilation Music Underground.

METALDOGMA

Your Ad Here Membuat Web Counter Dengan Menggunakan ASP dan Object File System Object

05/02/2010 15:16

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 akan saya 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\dataco unt.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.