<% 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
Sport caps
Cotton hats
 Children hats Felts
Ladies winter hats
Ladies winter hats
 Children polar fleece caps Wool hats
Toys
Hand-knitted caps Knitted caps Jacquard Knitted caps Children 3-pcs set headband
Men' straw hats Ladies' straw hats Children' straw hats Polyester hats Polyester hats
Acylic scarves Polar fleece scarves Ski gloves
 Knitted gloves Fancy gloves for children

Straw bags
Winter bags

Winter bags
©1997-2000, Huaning International TecKBical & Trading Corporation All rights reserved