用数据库做的计数器
<%set conn=server.CreateObject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("#counter.mdb")
counter=0
application.Lock()
set rst=server.CreateObject("adodb.recordset")
sq1="select * from counter where id=1"
rst.open sq1,conn
if not rst.eof then
counter=rst("counter")
end if
counter=counter+1
sq2="update counter set counter="&counter&" where id=1"
conn.execute(sq2)
application.UnLock()
response.write"你是第document.write('"&counter&"')个造访者！"
conn.close
%>
已经在数据库中设置好了 ID=1,COUNTER可改变初始值
如何用VBSCRIPT语言引用该程序到主页指定位置?
如何使它不是刷新一次就改变一次数字,而是比如同一IP在一个小时之内都是固定值(总之类似,只要刷新不变就行)
