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


KBST1154
KBST1155
KBST1156
KBST1157

KBST1158
KBST1159
KBST1160
KBST1161

KBST1162
KBST1163
KBST1164
KBST1165

KBST1166
KBST1167
KBST1168

KBST1169

KBST1170
KBST1171
KBST1172
KBST1173

KBST1174
KBST1175
KBST1176
KBST1177

KBST1178
KBST1179
KBST1180
KBST1181

KBST1182
KBST1183
KBST1184
KBST1185

Back กกกกNextกก