瀏覽人數:
<%
'使用Session計算
Dim file_S,fsobj_S,txt_S,num_S,len_S,fix_num_S
file_S = server.MapPath("count.cn")
set fsobj_S = Server.CreateObject("Scripting.FileSystemObject")
set txt_S = fsobj_S.OpenTextFile(file_S, ForReading, False)
'If txt_S.AtEndOfStream Then
If txt_S.AtEndOfLine Then
num_S = 0
txt_S.Close
else
num_S = Cdbl(txt_S.readline)
txt_S.close
end if
'if session("counted") <> true then
set fsobj_S = Server.CreateObject("Scripting.FileSystemObject")
set txt_S = fsobj_S.OpenTextFile(file_S,ForWriting,true)
Application.lock
num_S = num_S + 1
txt_S.WriteLine num_S
txt_S.close
Application.unlock
' session("counted") = True
'end if
Dim i,j
len_S = len(num_S)
fix_num_S = 5 - len_S '固定取5位數
for i = 1 to fix_num_S
Response.Write ""
next
for j = 1 to len_S
Response.Write ""
next
If Err.number <> 0 then
Response.Write " (" & Err.Description & "代號:" & Err.number & ") " & _
"請將上述括號內的錯誤訊息拷貝,寄至管理員信箱!Thanks! "
Response.End
End if
On Error Goto 0
%>