:<%
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) & "\hits.txt"
On Error Resume Next
Set InStream= FileObject.OpenTextFile (HitsFile, 1, false )
OldHits = Trim(InStream.ReadLine)
NewHits = OldHits + 1
InStream.Close
Set InStream = Nothing
Set OutStream= FileObject.CreateTextFile (HitsFile, True)
OutStream.WriteLine(NewHits)
OutStream.Close
Set OutStream = Nothing
Set FileObject = Nothing
NewHits = right("00000" & NewHits, 6)
L=Len(NewHits)
For I = 1 to L
num = Mid(NewHits,I,1)
Display = Display & " "
Next
Response.Write Display
%> |
  |
|
|
Nisshin
Transportation Qingdao Co., Ltd. (NTQ) was incorporated
using joint investment from Qingdao Jiaoyun Luhai International
Freight Transportation Co., Ltd., Nisshin Transportation Co.,
Ltd. and Air Sea Transport Inc.. This company has modern warehouses
and factories and is recognized worldwide as a leading player
in international logistics. The business scope of this company
covers the following: textile and garment quality inspection,
metal pin detection and general finish; shipping agency, storage,
container groupage, allotment, transit, stacking, maintenance
and related services.
NTQ operates under the philosophy of
“Safety, Quality, Economy and Efficiency” and has established
sound relations with all business partners for mutual progress
and benefits. We welcome and value new business opportunities
to continuously improve facilities and services.
|
|
|
| |
|
|