Counter ตัวเลขแบบรูปภาพ
โดย: สุรัตน์ บัณฑิตลักษณะ
ที่มา: www.thaiasp.net
 
     Counter เป็นอีกหนึ่ง เครื่องมือที่ผู้สร้างเว็บเพจใช้นับจำนวนผู้เยี่ยมชม โดยจำนวนผู้เยี่ยมชมจะแสดงถึงความนิยม ของเว็บเพจนั้นๆ แล้วยิ่ง ถ้าผู้สร้างเว็บเพจต้องการแสดงตัวเลขให้ผู้อื่นเห็นด้วย แล้ว ตัวเลขที่แสดงออกมาก็ต้องสวยงามน่าดู ที่นิยมกันก็คือ Counter แบบรูปภาพ
เตรียมอะไรบ้างก่อนสร้าง?      
1. รูปหมายเลข 0-9 โดยตั้งชื่อตรงกับหมายเลข เช่น หมายเลข 0 ให้ตั้งชื่อว่า 0.gif และถ้าขี้เกียจสร้างรูปเอง คลิกที่นี่ ครับ
2.ไฟล์เอกสาร นามสกุล .txt เอาไว้เก็บจำนวนผู้เยี่ยมชมในที่นี้ให้ชื่อว่า counter.txt
3.ไฟล์ที่เราจะนำ counter ไปแทรก ในบทความนี้ให้ชื่อว่า main.asp
  
ถ้าขี้เกียจสร้างรูปเอง คลิกที่นี่ ครับ
คำสั่งใหม่ๆ ที่ต้องรู้
1. การเรียกใช้ค่าจากไฟล์เอกสาร ทำได้โดย

1. กำหนด Object ในการติดต่อกับไฟล์เอกสาร ด้วยคำสั่ง
     Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
2.นำ Object ที่กำหนดขึ้นไป . กับการทำงาน อย่างเช่น OpenTextFile ดังนี้
     Set instream= FileObject.OpenTextFile ("c:/inetpub/wwwroot/counter.txt", 1, False )
3.นำคำสั่ง Server.MapPath ซึ่งทำหน้าที่ในการประยุกต์ Directory เสมือนมาใช้ประกอบเช่น
ถ้าไฟล์ counter.txt อยู่ใน directory เดียวกันจะได้ว่า
     Set instream= FileObject.OpenTextFile (Server.Mappath("counter.txt"), 1, False )

2.คำสั่งพิเศษอื่นๆ

1.คำสั่ง Len คือ คำสั่งในการแสดงค่าจำนวนตัวอักษร เช่น
     Len("surat") จะมีค่าเท่ากับ 5
2.คำสั่ง Mid คือคำสั่งที่ใช้ในการตัดคำ โดยมีวิธีการใช้ดังนี้ Mid(ข้อความ,ตำแหน่ง,ความยาว) อย่างเช่น
     Mid("ABCDEF",3,2) จะมีค่าเท่ากับ "CD" หรือ
     Mid("123456",2,1) จะมีค่าเท่ากับ "2"

ลงมือสร้างกันเลย!!
1. ไฟล์ที่เราจะสร้างเป็นไฟล์ counter จะมีชื่อว่า counter.asp มีรายละเอียดดังนี้

<%Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
hitsfile = Server.MapPath("counter.txt")
Set instream= FileObject.OpenTextFile (hitsfile, 1, False )
' เรียกค่าจำนวนผู้เยี่ยมชมจากไฟล์ counter.txt
oldhits = instream.ReadLine ' เก็บค่าเข้าตัวแปร oldhits
newhits = oldhits + 1 ' บวกค่าด้วยหนึ่งแล้วเก็บเข้าตัวแปร newhits
Set outstream= FileObject.CreateTextFile (hitsfile, True)
OutStream.WriteLine(newhits)
' เก็บค่าจำนวนผู้เยี่ยมชมที่อยู่ในตัวแปร newhits เข้าไปในไฟล์ counter.txt
l=Len(newhits) ' เก็บจำนวนตัวอักษร(จำนวนหลัก)ของตัวแปร newhits ไว้ในตัวแปร l
For i = 1 to l ' วนการทำงานจากหลักที่ 1 ถึงหลักที่ l
num = Mid(newhits,i,1) ' ตัดตัวเลขออกมาที่ละตัว
display = display & "<img src=""" & num & ".gif"">"
' แสดงรูปตามหมายเลขแล้วเก็บเข้าตัวแปร display
Next%>
<%=display%>

ผลที่ได้และการนำไปใช้งาน!
กรุณา คลิกที่นี่ เพื่อดูผลการเรียกไฟล์ counter.asp
วิธีการนำไปใช้ อย่างเช่นเรามีไฟล์ หน้าแรกอยู่แล้วชื่อ main.asp ถ้าเราจะนำไฟล์ counter.asp ไปแทรกก็ทำได้โดยคำสั่ง ดังนี้
     <!--#include file="counter.asp"-->
อย่างไรก็ตาม ผู้อ่านสามารถ download Source Code ทั้งหมดได้ที่นี่ http://www.thaiasp.net/download/counter.zip
หวังว่าบทความนี้คงจะทำให้ผู้อ่านมี Counter สวยๆ ไว้ใช้งานกันนะครับ
บทความที่เกี่ยวข้อง Couter กับ Text file


Home | ASP Board | Coldfusion Board | Source Code | Lesson(beginner)
Lesson(Professional) l My Jobs | E-card |About Us


Copyright © 2000 www.ThaiASP.net All rights reserved.