%
Function G_Counts(CounterFile)
Dim objFSO, objTS, Counts, StrCounts
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then
Counts = CLng(objTS.ReadLine)
End If
if Session("tempcount")="" Then
Counts = Counts+1
Session("tempcount")=True
End If
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
StrCounts = CStr(Counts)
For i = 1 to Len(StrCounts)
G_Counts = G_Counts & ""
Next
End Function
%>
|
||||||||||||||
|
||||||||||||||
|
GATEWAY
INTERNATIONAL CORPORATION LIMITED COPYRIGHT 2006~2008 ÊñICP±¸
06003941ºÅ 2006-2-13
|
||||||||||||||
|
Gateway
International Corporation Limited
Tel: 86-28-8608-0938 Fax:86-28-8608-0938 Address: No.3,Qingjiang East Road,Qingyang District,Chengdu,Sichuan 610072,China |
||||||||||||||