UpDate: 2011/02/20
|
<%Response.Write Now%>
|
|
ΟΉ³άΖΤΜ
@
^Ύ@ LRh
@
kLR
·J
|
|
Open: 2004/05/11 UpDate: 2011/02/20 |
|
<%
SGifCounterPass="/images/"
SCountFile =Server.MapPath("Count/Counter.txt")
On Error Resume Next
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set objCount = fs.OpenTextFile(SCountFile,1, FALSE,FALES)
if ERR.Number>0 Then
iCount=0
Else
iCount=objCount.ReadLine
End if
iCount=iCount+1
objCount.Close
Set objCount=fs.OpenTextFile(SCountFile,2,TRUE,FALSE)
objCount.WriteLine iCount
objCount.Close
Set fs=Nothing
sCount=right("00000"+CStr(iCount),5)
for i=1 to 5
data=" |
| @ |
|
@ |
