<% 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!
=================

<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>
Home Page About us Our products Contact us What' New
1 2 3 4 5 6 7 8 9 10 11 12 13

KBK0201

KBK0202

KBK0203

KBK0204

KBK0205

　KBK0206

KBK0207

KBK0208

KBK0209

　KBK0210

KBK0211

KBK0212

KBK0213

　KBK0214

KBK0215

KBK0216

KBK0217

　KBK0218

KBK0219

KBK0220

KBK0221

　KBK0222

KBK0223

KBK0224

KBK0225

　KBK0226


KBK0227


KBK0228

back　 for children　　headband