<% Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Dir = Request.ServerVariables("SCRIPT_NAME") Dir = StrReverse(Dir) Dir = Mid(Dir, InStr(1, Dir, "/")) Dir = StrReverse(Dir) HitsFile = Server.MapPath(Dir) & "\hitcounter\hits_result_suwannaphum_airport.txt" On Error Resume Next Set InStream= FileObject.OpenTextFile (HitsFile, 1, false ) OldHits = Trim(InStream.ReadLine) NewHits = OldHits + 1 Set OutStream= FileObject.CreateTextFile (HitsFile, True) OutStream.WriteLine(NewHits) %> š觢ѹó

š觢ѹ

ŵҸ͹-ҡҹó (46.6 .)

2 Զع¹ 2545

觢ѹ 18-34

ѹѺ

1

21

..

03.14.35

2

22

...Էѡ

ѵع

03.14.36

3

20

...иҹ

зͧ

03.33.50

4

36

ʧ

ԭ

03.51.38

5

15

ӨѴ

03.59.39

觢ѹ 35-39

1

241

Сҷͧ

03.31.42

2

204

ҹ

03.45.44

3

208

͹ѡ

֧

03.52.53

4

221

...ҵԪ

ͺҧŻ

04.03.26

5

211

ҷ ..

˹

04.28.13

觢ѹ 40-44

1

415

ѡ

04.02.36

2

420

Ѳ

04.11.02

3

447

ӹǹ

Ѿ

04.17.56

4

433

ѷ

ԭ

04.22.22

5

417

ӹҭ

ѹѵ

04.47.27

觢ѹ 45-49

1

600

˹ҷ

03.59.08

2

609

ҭ

ʹѹ

04.24.07

3

602

ز

ø

04.38.18

4

616

ɰ

04.51.23

5

622

ġ

ӾѺ

05.12.17

觢ѹ 50-59

1

842

Ե

˹ʹ

04.03.25

2

866

ҭ֡

04.09.30

3

868

TANIMOTO

MATUZO

04.16.34

4

846

04.22.28

5

814

Ҹ

áԵԡ

04.40.30

ѹѺ

觢ѹ 60 բ

1

1034

͡

ǧͧ

04.09.50

2

1023

ԪԵ

04.26.37

3

1026

ʹҹ

04.33.19

4

1035

ó

⾸ʴ

05.09.14

5

1015

ǹ

05.12.23

觢ѹ ˭ԧ 18-34

1

F 2

÷Ծ

§dzԪ

04.45.31

2

F 1

зջ

05.17.08

3

F 11

è

ó

05.27.12

4

F 3

ѭ

ǧҹԪ

05.27.32

觢ѹ ˭ԧ 35-44

1

F 113

ҳ

ҹʶԹ

04.33.13

2

F 117

ó

Ǿ

04.44.07

3

F 100

֧Ԩ

Ҥطപ

05.00.06

4

F 111

عѹ

ѹ

05.12.30

5

F 112

ǧԹ

05.18.42

觢ѹ ˭ԧ 45 բ

1

F 202

´

èҡ

04.58.46

2

F 205

ʧ

֡ع

05.19.55

3

F 203

05.48.19

4

F 201

͹

ʹ

06.14.55

觢ѹ ǹ

Ҿ

Ŵ

1

A 5

ùѹ

03.18.24

Ԫҵ

´

2

A 31

ԷԵ

ʶ

03.31.47

ǹġ 99

ѭ

Ѳ¸Թ

Ԩ

ԭԨ

3

A 8

¹

͹

03.40.35

ǹǧ .9

ԡ

ѹ

ѹѺ

觢ѹ ǹ

Ѫ

Ҵ

4

A 4

Ѳ

ǧ

03.44.11

ح׺

آ

ç

Էѵ

5

A 29

èԵ

ժ

03.47.24

оҹǹ-

Ѵ

ǹ

3

觢ѹ

ͭ

1

B 20

Ԫ

Թ

04.02.38

..

ɳѡɳ

ҳ

2

B 15

о

ҭ

04.03.48

Թ

Ǫ

ӹҨ

ѹ§ͧ

3

B 5

ķ

ºص

04.10.37

..ǹ

ѹ

ʹŻ

4

B 17

٭

ྪö֧

04.14.39

ѵ

ͺѲ

è

ح˹ѡ

5

B 8

ѳԡ

ըԵ

04.30.35

͡

ѧ

ѧ

 

(˵. ͢ͺس Amazingfield  attach  file  觼š觢ѹ

ŵҸ͹-ҡҹó (46.6 .)

ѹ16 ..45<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>