|
.
Add. : No. 7 Nguyen Thien Thuat
St.
- Ward. 2 / 3 District
Ho Chi Minh City - Viet
Nam
Shop : (+84.8) 8350091 Home :
(+84.8) 8490905
Mobil : (+84) 903.990020
Email :
ducngan@hcm.fpt.vn
<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I
bUseImages = false
strCountFileName = server.MapPath ("cgi-bin/ducngan_e.cnt")
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(strCountFileName, 1, True)
If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If
objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing
If bUseImages Then
For I = 1 to Len(iCount)
Response.Write " "
Next 'I
Else
Response.Write " " & " Số khách viếng :" & " " & iCount & " "
End If
%>
|