<% 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
Approved by the foreign economic & trading ministry of P.R.China and founded in 1988, Klobe Accessory Ltd.(herein after referred to as "the corporation") is a comprehensive enterprise engaged in import and export trading activities. The corporation mainly exports goods of all sorts such as solar products, knitting sweaters, shoes, hats&caps, textiles, garments, hardware, tools, electrical products and light industrial products and imports technology and equipment from abroad for domestic users.

The corporation also handles transfer of technology, joint ventures,cooperative production, processing with materials supplied, processing with samples given, assembling with components supplied, compensation trade and provides consultancy services