คำสั่งใหม่ๆ
ที่ต้องรู้
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 สวยๆ ไว้ใช้งานกันนะครับ
|
|
|
|
|