计数器，错在那里？？？

[hrming]

<% Dim NumVisits=0
Application.LockApplication("NumVisits") = Application("NumVisits")+1
Application.Unlock %>
欢迎光临本网页，你是本页的第 <%=Application("NumVisits") %> 位访客 !

[hj3793]

你没有保存
把访问数量写入文本文档，每次都读取，写入

[笨笨兔兔兔兔兔]

Application("NumVisits")

你有没有给初始值的？？

[possible_Y]

你的错是指什么？逻辑错误？

[variety_xy]

<% Dim NumVisits
NumVisits=0
Application.Lock
Application("NumVisits") = Application("NumVisits")+1
Application.Unlock %>
欢迎光临本网页，你是本页的第 <%=Application("NumVisits") %> 位访客 !


这样就没问题了。Dim只能用来说明变量，赋值语句应该另起一行写了。
Application.lock后面应该是不能再带参数的。

[Aspclass]

这样做吧
set rs= Server.CreateObject("Adodb.Recordset")
rs.open "select (计数器字段)ct from 表[cots] where id=1",conn
oln=rs("ct")+1
Application("fw")=oln
conn.execute "update cots set ct="&oln

这样就可以了

[variety_xy]

楼主怎么不来给分呀！