开启左侧

[广告特效] 免费网站图形计数器代码,网站访客统计器

[复制链接]
钟振森 发表于 2014-5-16 23:35:50 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题
免费网站图形计数器代码  演示→
这里介绍两种计数器,图形计数器和文字计数器.首先你需要一个支持ASP的空间,一般的虚拟空间都有提供。

第一步,下载图形计数器源程序,
请点击此处下载

co.rar

12.16 KB

售价: 0 元(CNY)   [充值RMB]  [免费赚RMB]  [关于会员等级] 
下载权限: 一星会员 以上等级或 【VIP会员】  [购买VIP]   [免费升VIP]


第二步,下载后,解压CO.RAR文件,用记事本打开Path.asp设置安装目录,设置完后保存。(强烈建议不去修改)

第三步,用记事本打开count.asp
http://www.你的网址.com改成你自已的网址,改好保存

第四步,
在你首页插入以下代码(地址改成你自已的)
<script src="https://www.ymzj.cn/co/count.asp"></script> 以下几款网站计数器样式,您可以选择一款后,(十张图片)覆盖co/images目录。

1.jpg

样式图片包下载
请点击此处下载

images.rar

28.82 KB

售价: 0 元(CNY)   [充值RMB]  [免费赚RMB]  [关于会员等级] 
下载权限: 一星会员 以上等级或 【VIP会员】  [购买VIP]   [免费升VIP]

文字计数器代码  演示↓
当前在线[83]
您是本站第 190289 位访问者


1.普通文字计数器
第一步,把以下代码复制到记事本,另存为WOSO.ASP,记的要选所有文件进行保存

  1. <%
  2. cnt=0
  3. dnt=0
  4. s=Request.ServerVariables("path_translated")
  5. Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  6. cName=Server.MapPath("c.cnt")
  7. dName=Server.MapPath("d.cnt")
  8. Set objCountFile = objFSO.OpenTextFile(cName,1,True)
  9. If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll)
  10. objCountFile.Close
  11. Set objCountFile=Nothing
  12. cnt=cnt+1
  13. Set objCountFile=objFSO.CreateTextFile(cName,True)
  14. objCountFile.Write cnt
  15. objCountFile.Close
  16. Set objCountFile=Nothing

  17. if application("dntime")<=cint(hour(time())) then
  18. Set objCountFile = objFSO.OpenTextFile(dName,1,True)
  19. If Not objCountFile.AtEndOfStream Then dnt=CLng(objCountFile.ReadAll)
  20. objCountFile.Close
  21. Set objCountFile=Nothing
  22. end if
  23. application("dntime")=cint(hour(time()))
  24. dnt=dnt+1
  25. Set objCountFile=objFSO.CreateTextFile(dName,True)
  26. objCountFile.Write dnt
  27. objCountFile.Close
  28. Set objCountFile=Nothing
  29. Set objFSO = Nothing

  30. t=(cint(day(date()))*24+cint(hour(time())))*60+cint(minute(time()))
  31. k=0
  32. i=1
  33. y=0
  34. Do While application("zxip"&i)<>""
  35. if application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR") then
  36.   application("zxsj"&i)=t
  37.   y=1
  38. end if
  39. if t-application("zxsj"&i)>9 or t<application("zxsj"&i) then
  40.   k=k+1
  41. else
  42.   if k>0 then
  43.    application.lock
  44.    application("zxip"&i-k)=application("zxip"&i)
  45.    application("zxsj"&i-k)=application("zxsj"&i)
  46.    application.unlock
  47.   end if
  48. end if
  49. if k>0 then
  50.   application.lock
  51.   application("zxip"&i)=""
  52.   application.unlock
  53. end if
  54. i=i+1
  55. loop
  56. if y=0 then
  57. application("zxip"&i)=Request.ServerVariables("REMOTE_ADDR")
  58. application("zxsj"&i)=t
  59. else
  60. i=i-1
  61. end if%>
  62. <HTML><HEAD><TITLE>计数器</TITLE>
  63. <META content=zh-cn http-equiv=Content-Language>
  64. <META content="Microsoft FrontPage 6.0" name=GENERATOR>
  65. <META content=FrontPage.Editor.Document name=ProgId>
  66. <META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK
  67. href="images/default.css" rel=stylesheet type=text/css>
  68. <base target="rightframe">
  69. </HEAD>
  70. <BODY bgColor=#FFFFFF topMargin=0 leftMargin=2>
  71. <TABLE border=0 borderColor=#111111 cellSpacing=0 height="60" id=AutoNumber1
  72. style="BORDER-COLLAPSE: collapse" width=180>
  73.   <TBODY>
  74.   <TR>
  75.     <TD width="100%" height="11">
  76.       <P style="LINE-HEIGHT: 200%" align="center"><FONT color=#0099FF>
  77.                 <a target="_blank" title="在线人数统计" href="https://www.ymzj.cn">
  78.                 <span style="text-decoration: none"><font color="#0099FF">当前在线[<%=i%>]</font></span></a> </FONT><FONT color=#ffffff> <BR></FONT>
  79.                 <font color="#0099FF"><a target="_blank" href="https://www.ymzj.cn">
  80.                 <font color="#0099FF"><span style="text-decoration: none">您是本站第</span></font></a><a target="_blank" title="总访问人数统计" href="https://www.ymzj.cn"><span style="text-decoration: none"><font color="#FF0000"> <%=cnt%>
  81.                 </font><font color="#0099FF">位访问者</font></span></a></font></P></TD></TR></TBODY></TABLE></BODY></HTML>
复制代码

第二步,插入以下代码到你的首页调用计数器,( 网址改为你自已的 )
  1. <IFRAME border=0 frameBorder=0 height=35 scrolling=no
  2.       src="https://www.ymzj.cn/woso.asp"
  3.   width=250></IFRAME>
复制代码







上一篇:最新个性带微信和QQ客服的汽车动画特效
下一篇:蓝色jQuery带语音右侧悬浮客服
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 源码之家管理员

    源码之家管理员
  • 论坛元老

    注册天数超过365天的论坛元老
  • 热心站长

    在站长互助版区帮助其他站长解决100次答疑
  • 论坛创始人

    论坛创始人
  • 万贴王勋章

    奖励发帖量达到10000帖的发帖达人们

关注0

粉丝0

作品5317

发布作品
一周下载排行最近7x24小时作品
专注站长素材教程分享
全国免费热线电话

400-001-2588

周一至周日9:00-23:00

反馈建议

在线QQ咨询

扫描二维码关注我们