asp计数器问题

来源：百度知道 编辑：UC知道 时间：2024/06/08 18:36:07
我做的是局域网网站 一切都搞定了 就差这个计数器 头都大了`~
去网页上查了一下 按照他们说的几乎都不行 不要文章谢谢 50分送上（在线等）
我邮箱是sb20060111@163.com 在说一下我的网站在局域网
你可不可以 把一切都做好给我传过来 在附上白痴式的说明 谢谢 如果可以搞定的话 我会追加满分的 谢谢`

这是我网站的数器,你可以看看.不过你要建个数据库,里面包含一个叫计数器的表,就OK了...

<%
response.buffer=true
dim jyzci,jyzdi
set rs=server.createobject("adodb.recordset")
exec="select * from 计数器 "
set rec=server.createobject("adodb.recordset")
rec.open exec,conn1,1,3
Application.lock
Application("Num")=rec("次数")
if Session("User")="" then
Application("Num")=Application("Num")+1
end if
rec("次数")=Application("Num")
rec.update
rec.close
set rec=nothing
Application.unlock
%>

<%
dim visitors
Set rstcount = Server.CreateObject("ADODB.Recordset")
rstcount.ActiveConnection = MM_conn_STRI