<% 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) & "\ntcount\hits.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) %>
Welcome to headwearworld!
Baseball Caps
children caps
ladies hats
Men's hats
Bakeboy caps
Trilby hats
Children hats
Headband
Visor
Felts
carnival
For Adults
For Children
3-pcs set
For Adults
3-Pcs sets
For Children
For Men
For Ladies
For Children
polyester hats
Knitted Gloves
Magic glove
Ski Gloves
Polar Fleece Gloves
Fancy Styles
Cotton bags
Straw Bags
Winter Bags
Toys
Belt
Tie
Sock
Wristband
Ear Cover
Legwarmer
New Cotton Hats
New Knitted Caps
New Straw Hats
New Other Products
=================
<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "
" Next Response.Write Display %>
Acrylic scarves
knitted scarves
pllar fleece
fur scarves
silk scarves
Home Page
About us
Our products
Contact us
What' New
1
2
3
4
5
6
7
KBC8126
KBC8127
KBC8128
KBC8129
KBC8130
KBC8131
KBC8132
KBC8133
KBC8134
KBC8135
KBC8136
KBC8137
KBC8138
KBC8139
KBC8140
KBC8141
KBC8142
KBC8143
KBC8144
KBC8145
back
next