网页计数器怎么用DW做网页计数器

网页计数器  时间:2021-03-17  阅读:()

怎么用DW做网页计数器

<script Language="vbscript" RunAt="server"> Sub Application_OnStart ''global.asa 一定是放在网站的虚拟根目录下的 ''在根目录下有一个 counter.txt 记录访问总量 ''Application("Counter") ''计数器的变量名 ''Application("Online") ''在线人数的变量名 dim objFSO,objTS set objFSO = Server.CreateObject("scripting.FileSystemObject") set objTS = objFSO.OpenTextFile(Server.MapPath("./images/counter.gif"),1,false) if not objTS.atendofstream then Application("Counter") = CLng(objTS.ReadLine) ''网站计数器 end if objTS.close : set objTS=nothing : set objFSO = Nothing if IsEmpty(Application("Counter")) then Application("Counter") = 0 ''置初始值 Application("Online") = 0 ''在线人数 设置初始值 End Sub Sub Session_OnStart Application.Lock Application("Online") = Application("Online") + 1 ''在线人数累加 Application("Counter") = Application("Counter")+ 1 ''计数器累加 Application.UnLock End Sub Sub Session_OnEnd Application.Lock Application("Online") = Application("Online") - 1 ''在线人数累减 Application.UnLock dim objFSO,objTS set objFSO=Server.CreateObject("scripting.FileSystemObject") set objTS=objFSO.OpenTextFile(Server.MapPath("./images/counter.gif"),2,true) objTS.write Application("Counter") ''将计数器记录到文本中 objTS.close : set objTS=nothing : set objFSO = Nothing End Sub Sub Application_OnEnd End Sub </script>

v5server:香港+美国机房,优质CN2网络云服务器,7折优惠,低至35元/月

v5net当前对香港和美国机房的走优质BGP+CN2网络的云服务器进行7折终身优惠促销,每个客户进线使用优惠码一次,额外有不限使用次数的终身9折优惠一枚!V5.NET Server提供的都是高端网络线路的机器,特别优化接驳全世界骨干网络,适合远程办公、跨境贸易、网站建设等用途。 官方网站:https://v5.net/cloud.html 7折优惠码:new,仅限新客户,每人仅限使用一次 9...

华纳云E5处理器16G内存100Mbps688元/月

近日华纳云商家正式上线了美国服务器产品,这次美国机房上线的产品包括美国云服务器、美国独立服务器、美国高防御服务器以及美国高防云服务器等产品,新产品上线华纳云推出了史上优惠力度最高的特价优惠活动,美国云服务器低至3折,1核心1G内存5Mbps带宽低至24元/月,20G ddos高防御服务器低至688元/月,年付周期再送2个月、两年送4个月、三年送6个月,终身续费同价,有需要的朋友可以关注一下。华纳云...

妮妮云(43元/月 ) 香港 8核8G 43元/月 美国 8核8G

妮妮云的来历妮妮云是 789 陈总 张总 三方共同投资建立的网站 本着“良心 便宜 稳定”的初衷 为小白用户避免被坑妮妮云的市场定位妮妮云主要代理市场稳定速度的云服务器产品,避免新手购买云服务器的时候众多商家不知道如何选择,妮妮云就帮你选择好了产品,无需承担购买风险,不用担心出现被跑路 被诈骗的情况。妮妮云的售后保证妮妮云退款 通过于合作商的友好协商,云服务器提供2天内全额退款,超过2天不退款 物...

网页计数器为你推荐
proceduresns2019支付宝五福支付宝五福是哪五福?中国企业在线一般都在哪里找企业信息啊?波音737起飞爆胎飞机会爆胎的吗?网站ipad颁发的拼音发字的多音字组词小型汽车网上自主编号申请网上选号自编号怎么选12306.com12306身份信息待核验要多久?审核要多久瞄准的拼音瞄怎么读,瞄的组词,瞄的读音,瞄的笔顺,瞄的意思团购程序有什么好用的社区团购小程序?
双线主机租用 免费试用vps 域名备案批量查询 budgetvm 5折 l5520 监控宝 警告本网站 gg广告 服务器监测 新世界服务器 超级服务器 华为云服务登录 lamp是什么意思 中国联通宽带测速 万网注册 服务器硬件配置 移动王卡 美国主机 tko 更多