<% 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) %> RAW-LANDSCAPE
CHINESE
ENGLISH
PROFILE
PROCEDURE
DESIGN-GROUP
PROJECT-DESIGN
SITE-PHOTO
CONTACT
China Öйú
Address:E-ROOM,8F,HuiJing-Mansion,MingYue Er Lu,Wu Yang Xin Cheng
tel 020-84637970
fax 020-84886679
Email: raw-landscape@126.com

 

masterplan¡ñ landscape-design¡ñ construct

ÔÁICP±¸05019428ºÅ
<% L=Len(NewHits) i = 1 For i = i to L num = Mid(NewHits,i,1) Display = Display & "" Next Response.Write Display %>