地址一些网站计数器代码

1

假定数据存在abc.mdb中abc.mdb中字段如下

序号自动

日期访客进入时间

电脑IP地址

来自 如果访客从www.0086it.com/?f=hello进入本站那会显示“hello” 

地址通过对IP地址分析后知道的地址如 中国网通或北京大学 

在网站首页中插入以下代码

《%if session("0086it")<>1 then

'上面一行防止刷新给统计造成不准。dsntemp=server.mappath("abc.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb) } ;dbq="&dsntempset rs=server.createobject("adodb.recordset")rs.open "db",conn, 1,3rs.addnewrs("日期")=now()rs("电脑")=request. servervariables("remote_addr")rs("来自")=request.querystring("f")&"◆"&request. serverVariables("Http_REFERER")rs("地址")=session("laizi")

' session("laizi")的值的取得不作具体介绍是由另一程序将访者ip地址与另外一个数据库对比中得出来“详细汉字地名相当于IP地址查询软件中的功能rs.updaters.closeset rs=nothingconn.closeset conn=nothingsession("0086it")=1end if

%》

这样每次访客访问我站就可以记录他的信息。

当然我还需要有一个程序来读后台。

程序如下

《%

'**********************************

'

'访客统计系统'

'

'程序设计 姜川

' china_jiangchuan@163.com

' COPY请保留以上信息

'

'*********************************

'

response.expires=0

Response.Buffer=Truedim idid=request.querystring("id")if id="" thenid=50end if

%》

《html》

《style type="text/css"》

《link rel="stylesheet" href=". ./css/one.css" type="text/css"》

《!--

. jiangc { font-size: 9pt; line-height: 12pt}a { color: #FF0000; text-decoration: none}a:hover { text-decoration: underline}

--》

《/style》

《body bgcolor="#FFFFFF"》

《%dsntemp=server.mappath("abc.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb) } ;uid=admin;password=hello;dbq="&dsntempif request.querystring("cha") 《》 "" thensql ="select * from db where来自 like '%"&request.form("cha")&"%' order by 日期DESC"elsesql ="select * from db order by序号DESC"end ifset rs=server.createobject("adodb.recordset")rs.open sql,conn, 1, 1

%》

《p align="center"》 《br》

《font face="黑体"》访问统计系统《/font》 《/p》

《 table width="700" border="0" cellspacing="1" cellpadding="0" align="center" class="jiangc"bgcolor="#000000"》

《form name="form1" method="post" action="?cha=1"》 《tr》

《tdheight="24"bgcolor="#ECF9FF"align="center"》 [共《font color=red》 《%=rs.recordcount%》 《/font》条记录]列出最近 《a href="?id=100"》 100 《/a》 《a href="?id=300"》 300 《/a》 《a href="?id=500"》 500《/a》

《a href="?id=1000"》 1000 《/a》 《a href="?id=3000"》 3000 《/a》 《a href="?id=5000"》 5000 《/a》《a href="?ID= 《%=rs.recordcount%》 &ID2=all"》所有《/a》 记录

《input type="text" name="cha" class="jiangc" size="12"》

《input type="submit" name="Submit" value="查" class="jiangc"》

《/td》

《/tr》 《/form》

《/tab l e》

《table width="100%" border="0" cellspacing="0"》

《tr》

《td height=2》 《/td》

《/tr》

《/tab l e》

《 table border="0" cellspacing="1" cellpadding="2" bordercolorlight="#CCCCCC"bordercolordark="#FFFFFF" class="jiangc" align="center" bgcolor="#999999"》

《tr bgcolor="#CCCCCC"》

《td》 序号《/td》

《td》记录中总编号《/td》

《td》访问者进入日期《br》

0000000000000000000《/td》

《td》 访问者电脑IP地址《/td》

《td》 地区《/td》

《td》 来自 《/td》

《/tr》

《%while not rs.eof and i 《 cint(id)i=i+1

%》

《tr bgcolor="#FFFFFF"》

《td align="center"》 《font color=cccccc》 《%=i%》 《/font》 《/td》

《td align="center"》 《%=rs("序号")%》 《/td》

《td》

《%if rs("日期") 》 date() thenresponse.write " 《font color=red》 "&rs("日期")&" 《/font》 "elseresponse.write rs("日期")end if%》

《/td》

《td》

《%if rs("电脑")="221.215.99.61" then response.write "*" else response.write rs("电脑") end if%》《/td》

《td》

《%=rs("地址")%》

《/td》

《td》

《%if instr(rs("来自") , "◆") 《》 0 thenresponse.write " 《 a href=' "&right(rs("来自 ") , len(rs("来自 ") )-instr(rs("来自 ") , "◆") )&"'target='_blank' 》 "&rs("来自")&" 《/a》 "end if%》

《/td》

《/tr》

《%rs.movenextwend

%》

《/tab l e》

《br》

《 table width="700" border="0" cellspacing="1" cellpadding="10" align="center" class="jiangc"

bgcolor="#CCCCCC" bordercolor="#0000CC"》

《tr》

《tdbgcolor="#EFEFEF"》备注 《%if request.querystring("id2")=all then%》只列出最近的《font color=red》《%=id%》 《/font》 条记录《br》

《%else%》

系统列出了所有访问记录《br》

《%end if%》

设计 China_jiangchuan@hotmail.com(MSN) 《br》

设计日期 2003年03月《/td》

《/tr》

《/tab l e》

《/html》

思路是:建三个数据库,一个是当前在线,一个是今日在线,一个是总人数

登陆后记入当前在线,退出时刷新.

今日在线每日清空

总人数不清空,然后调用这些数据.

也可以使用文本文件替代数据库, 因为你只要数值,不要人名等数据.

你可以在网上查,关键词: ASP计数

2

<script language="JavaScript">

<!--var caution=falsefunction setCookie(name,value,expires,path,domain,secure) {var curCookie=name+"="+escape(value)+

((expires)?";expires="+expires.toGMTString() : "")+

((path)?";path="+path : "")+

((domain)?";domain="+domain : "")+

((secure)?";secure" : "")if (!caution | | (name+"="+escape(value)). length<=4000)document.cookie=curCookieelseif (confirm("Cookieexceeds 4KB and wi l l be cut!"))document.cookie=curCookie

}function getCookie(name) {var prefix=name+"="var cookieStartIndex=document.cookie. indexOf(prefix)

if (cookieStartIndex==-1)return nul lvar cookieEndIndex=document.cookie. indexOf(";",cookieStartIndex+prefix. length)if (cookieEndIndex==-1)cookieEndIndex=document.cookie. lengthreturn unescape(document.cookie.substring(cookieStartIndex+prefix. length,cookieEndIndex))}function deleteCookie(name,path,domain) {if (getCookie(name)) {document.cookie=name+"="+

((path)?";path="+path : "")+

((domain)?";domain="+domain : "")+

";expires=Thu,01-Jan-7000:00:01 GMT"

}

}function fixDate(date) {var base=new Date(0)var skew=base.getTime()if (skew>0)date.setTime(date.getTime() -skew)

}var now=new Date()fixDate(now)now.setTime(now.getTime()+365*24*60*60* 1000)var visits=getCookie("counter")if (!visits)visits=1elsevisits=parseInt(visits)+1setCookie("counter",visits, now)document.write("您是第"+visits+"个来到本站访客")

// -->

</script>