谢了
网上有很多的呀
可以直接下载用呀！
QU ZHANZHANGZHAN YA
建立一个config.asp
<%dim conn,sql
sql=“DBQ=”+server.mappath(“countcheat.mdb”)+“;DRIVER={Microsoft Access Driver (*.mdb)};” '设置数据库路径和数据库名
set conn=server.createobject(“ADODB.CONNECTION”)
conn.open sql
visitstart=17213 rem 这里设置计数器的初始值
rndstart=1 rem 这里设置用户登陆增加的随机数初值
rndend=20 rem 这里设置用户登陆增加的随机数尾值
action=“font” rem 这里设置你的显示方式，有两种选择，图片为"img"，文字为"font"
imgroute=“填写绝对路径”
rem 注意请填写绝对路径，最好以http://开始，以免在本地调试出错。
%>
然后再建一个*.asp文件
<%
randomize
rndadd=int((rndend-rndstart+1)*rnd+intstart) rem 得到随机数
set rs=server.createobject(“adodb.recordset”)
sql=“select * from countcheat”
rs.open sql,conn,1,3
if session(“count”)<>“added” then
rs(“count”)=rs(“count”)+rndadd
rs.update
session(“count”)=“added”
end if
visittotal=visitstart+rs(“count”)
if action=“font” then
%>
document.write(“总共访问”+<%=visittotal%>+“次”)
<%
elseif action=“img” then
for i=1 to len(visittotal)
number=mid(visittotal,i,1)
%>
document.write (“<img src=”+“<%=imgroute%>”+<%=mid(visittotal,i,1)%>+“.gif>”)
<%
next
end if
%>
数据库自己建立一个就可以了
网上很多
没网站地址吗
会asp的人一定都用过session对象，那么做一个刷新无效的计数器主要就是用了这个对象。现在先大概的说一下其实现的原理：先设一个session对象，每次进入这个页面都先判断session（）对象是否为空
若是空的那么计数器加1 再置session（）为计数器值。若不是则只做读取session()的值。
以下是代码：（笔者自己写的，代码简单易懂）
一、链接数据库conn.inc
<%
set conn=server.createobject(“adodb.connection”)
DBPath = Server.MapPath(“数据库文件”)
conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=” &DBPath & “;pwd=数据库密码”%>
二、计数器部分index.asp
总访问量：
<%
sql=“select * from total”
set rs=server.createobject(“adodb.recordset”)
rs.open sql,conn,3,3
rs.movefirst
If Session(“lngSessionVisitorNum”) = “” Then
rs(“total”)=rs(“total”)+1
rs.update
Session(“lngSessionVisitorNum”) =rs(“total”)
rs.close
set rs=nothing
Else
Session(“lngSessionVisitorNum”) = rs(“total”)
set rs=nothing
End if
%>
<%=Session(“lngSessionVisitorNum”)%>
今天访问量：
<%
sql=“select * from today where date=#”&date&"# "
set rs=server.createobject(“adodb.recordset”)
rs.open sql,conn,3,3
if rs.eof then
rs.movefirst
rs(“date”)=date()
rs(“today”)=1
rs.update
end if
If Session(“lngSessionVisitorNum_today”) = “” Then
rs(“today”)=rs(“today”)+1
rs.update
Session(“lngSessionVisitorNum_today”) =rs(“today”)
rs.close
set rs=nothing
Else
Session(“lngSessionVisitorNum_today”) = rs(“today”)
set rs=nothing
End if
%>
<%=Session(“lngSessionVisitorNum_today”)%>
鉴于还有初学者不知其中数据库方面的问题 现在给出数据库的字段及表
表一，total 里 字段： total
表二，today 里 字段： today date