我想在网站中放在访问人数的统计，这个代码怎么写 啊

取得用户的IP，
查询数据库中该IP是否在24小时内访问过？
如果没有，
对数据库进行加一操作。

这里，要看你怎么处理同一IP访问的问题。

有没有代码啊

其实很多源码都有的
下面是以前看到过的（某个博客的）

Dim Guest_IP
Guest_IP=Replace(Request.ServerVariables("HTTP_X_FORWARDED_FOR"),"'","")
If Guest_IP=Empty Then Guest_IP=Replace(Request.ServerVariables("REMOTE_ADDR"),"'","")

'站点统计代码
IF Session("GuestIP")<>Guest_IP Then
Dim Guest_Agent,Guest_Refer,Guest_View,Guest_User
Guest_Agent=Trim(Request.ServerVariables("HTTP_USER_AGENT"))
Guest_Refer=Trim(Request.ServerVariables("HTTP_REFERER"))
Guest_View=Trim(Request.ServerVariables("path_info"))
if memName<>Empty then
Guest_User=memName
else
Guest_User="Guest"
end if
Conn.ExeCute("INSERT INTO blog_Counter(coun_IP,coun_Agent,coun_Refer,coun_User,coun_View) VALUES ('"&Guest_IP&"','"&Guest_Agent&"','"&Guest_Refer&"','"&Guest_User&"','"&Guest_View&"')")
Conn.ExeCute("UPDATE blog_Info SET blog_VisitNums=blog_VisitNums+1")
SQLQueryNums=SQLQueryNums+2
Session("GuestIP")=Guest_IP
End IF

数据库嘛，自己看代码做吧。

恩

有没有数据库啊

51La就可以了！

那是挂大哦别的网站上了
我想就在自己的网站上统计啊

去别的网站S搜一下代码吧，我现在也在搜呢。。。

<%on error resume next%>
<%sql="update count set hit=hit+1"%><%conn.Execute(sql)%>
<%sql = "select * from count"
set rs=conn.execute(sql)
%>

document.write('访问量<%=rs("hit")%>次');
<%rs.close
set rs=nothing%>

这个比较简单
完了用<javascript>
在你所需要的地方调用此页面就可以了