%
Dim myfileobject
Dim filecounter
Set myfileobject = Server.CreateObject("Scripting.FileSystemObject")
Set filecounter = myfileobject.OpenTextFile(Server.MapPath("./")&"/counter.txt")
Dim G_Counts
G_Counts = filecounter.readall
filecounter.close
If G_Counts <> "" And IsNumeric(G_Counts) = False Then
G_Counts = 1
Else
G_Counts = Int(G_Counts)
End If
If session("g_visit_flag")<>1 Then
Set filecounter=myfileobject.CreateTextFile(Server.MapPath("./")&"/counter.txt")
G_Counts = G_Counts + 1
filecounter.writeline(G_Counts)
filecounter.Close
Session("g_visit_flag")=1
End If
%>
::信阳恒大猪鬃::Hengda Bristles::Manufacture and supply all kinds of boiled bristle