论坛: 网站建设 标题: 怎样在网页上写一个文本点击次数 复制本贴地址    
作者: ccb [ccb]    论坛用户   登录
就像20cn的网页里的浏览次数一样

地主 发表时间: 04-05-06 14:19
回复: shenbinbin [shenbinbin]   论坛用户   登录
用计数器

B1层 发表时间: 04-05-06 15:21
回复: drckness [drckness]   论坛用户   登录
<%
dim visitors
whichfile=server.mappath("counter.txt")

set fs=createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close

CountLen=len(visitors)
response.write "<center>你是第"
for i=1 to 6-countLen
response.write "<img src=num\0.gif></img>"
next

for i=1 to countlen
response.write "<img src=num\" & mid(visitors,i,1) & ".gif></img>"
next
response.write "位访问本站</center>"
visitors=visitors+1

set out=fs.createtextfile(whichfile)
out.writeLine(visitors)
out.close

set fs=nothing
%>


跟上面的做法类似照着写一个就是了

B2层 发表时间: 04-05-06 17:35
回复: ccb [ccb]   论坛用户   登录
不行啊，我写了不好用啊，

B3层 发表时间: 04-05-07 21:15
回复: wlbyyh [wlbyyh]   论坛用户   登录
如果数据是从数据库里读出来的话,定义一个变量,执行一次数据库操作就为该变量加1啊.

B4层 发表时间: 04-05-09 13:33

论坛: 网站建设

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号