<%
function mycount (countfile)
on error resume next
dim objFSO, objTS
dim r_count
r_count = 0
application.lock ' 锁定对象
set objFSO=server.createobject("scripting.filesystemobject")
set objTS=objFSO.opentextfile(server.mappath(countfile),1,ture)
r_count = trim(CStr(objTS.ReadLine()))
'=======================================================================================
'if session("F") <> "F" then '不对
r_count = CLng(r_count) + 1
'session("F") = "F"
'end if
objTS.close '关闭文件
''''''''''''''''''''''''''''''''''''''''''''''' next function ''''''''''''''''''''''''''
set objTS=objFSO.opentextfile(server.mappath(countfile),2,ture)
objTS.writeline(r_count)
objTS.close
mycount = r_count
application.unlock
if err.number<>0 then
mycount=242567
end if
end function
%>
鸥日驰（上海）贸易有限公司
设为首页
