Visitor No: <%Dim fsoObj,tsObj,filObj,lngVisitorNo Set fsoObj=Server.CreateObject("Scripting.FileSystemObject") Set filObj=fsoObj.GetFile(Server.MapPath("HitCount.txt")) Set tsObj=filObj.OpenAsTextStream lngVisitorNo=CLng(tsObj.ReadAll) lngVisitorNo=lngVisitorNo+1 Set tsObj=fsoObj.CreateTextFile(Server.MapPath("HitCount.txt")) tsObj.Write CStr(lngVisitorNo) Set fsoObj=Nothing Set tsObj=Nothing Set filObj=Nothing Response.Write(lngVisitorNo)%> | home | about supreme | contact supreme |
|
|
Hosted - Maintained by Part Source cc |