asp下载次数统计代码

<%
   sub numpad()
   set files=server.createobject("scripting.filesystemobject")
   set numtxt=files.opentextfile(server.mappath("/num/num.txt"))
   application("num")=numtxt.readline
   numtxt.close
   application("num")=application("num")+1
   response.write application("num")
   set numtxt=files.createtextfile(server.mappath("\num\num.txt"),true)
   numtxt.writeline(application("num"))
   numtxt.close
   end sub
   application.lock
   numpad
   application.unlock
   %>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 下载次数下载次数
相关日志: