神马品牌网阴阳师彼岸花刷图阵容:一个ASP的问题,请教高手。谢谢！！
来源：百度文库 编辑：神马品牌网 时间：2024/04/29 00:07:00
Set count=Server.CreateObject("MSWC.pagecounter")
count.PageHit() '网页访问次数加1
Dim visitNum
visitNum=count.Hits()
Response.Write "欢迎光临！您是第"&visitNum&"次访问该网站。"
错误信息如下：
Server 对象 错误 'ASP 0177 : 800401f3'
Server.CreateObject 失败
/www/link/10-12.asp，行 11
800401f3
我刚刚做了一个简单的计数器..你可以参考一下.数据库版的,如果你不需要数据库或使用文本文件,也可以自己改..
客户要求有一个计数器,这个客户是使用的自己公司的服务器,考虑到这样一来灵活性就比较大了,本想使用组件来完成这个工作,但时间比较紧,就做了一个GLOBLA.ASA的.简单.原代码如下:
<script language="vbscript" runat="server">
sub application_onstart
application("activeusers")=0
end sub
sub session_onstart
session.timeout=20
session("start")=now
application.lock
application("activeusers")=application("activeusers")+1
Dim ConnStr,Conn
ConnStr="Provider=SQLOLEDB;data source=(local);initial catalog=数据库名;user id=用户名;password=密码;"
Set Conn=Server.CreateObject ("ADODB.Connection")
Myconn.ConnectionString=ConnStr
myConn.open '直接打开数据库连接
userip = Request.ServerVariables("REMOTE_ADDR")
StrSQl = "INSERT INTO 表名 (jsdate,ip) values ('"&now()&"','"&userip&"')"
myconn.Execute StrSql
application.unlock
end sub
sub session_onend
application.lock
application("activeusers")=application("activeusers")-1
application.unlock
end sub
</script>
这样就可以记录下访问者的访问信息,以及实时显示在线人数了,由于现在网站的访问量很小,如果所以SESSION.TIMEOUT设的值为20名钟,日后如果希望更为精准,可以设为5分钟或1分钟,而且我发现这样虽然简单的完成了记录网民进站的信息,但同一网民在SESSION.TIMEOUT结束后刷新本页还是会被再一次记录的...如果想排除掉这种重复记录,可以在写入数据库前进行一下用户IP的判断,假如用户在过去的5小时(自由设置)内访问过本站了,就不再对用户的登陆进行记录.
带月流量对比的,,,你可以去我的百度空间看.
http://hi.baidu.com/teniu/blog/item/27a72df59a189225bd310910.html
这样的计数器一旦服务器重启将归零.而服务器重启是常有的事了.
如果希望更详细的流量统计,建议去申请一个还好些.
如一一统计流量统计系统:http://www.21nf.com
你所创建的这个对象在这个测试服务器中不存在，所以无法使用这个功能。
服务器不支持MSWC.pagecounter