网站内容自动更新(现贴出获取访客信息的代码(ASP版)：1)

　　网站内容自动更新(现贴出获取访客信息的代码(ASP版)：1)

　　相信很多刚入手网站的站长朋友都有这样的感受。每天更新网站真的很累。如果你想提高你的网站的权重，你必须每天更新网站，但是你不能一次更新好几天的文章，因为这是被看到的搜索引擎。当天发布，对网站的权重没有影响。有没有办法让网站自动更新？

　　每个人都知道频繁更新 网站 的重要性。搜索引擎喜欢新鲜的内容。如果你的网站长期不更新，排名会轻的降低，重的会k。好了，废话不多说，介绍一下网站自动更新的思路。

　　一，老车站

　　这里所说的老站不仅仅是指建站时间长的网站，这样的站不仅有一定的分量，网站也有一定的流量，这种站的自动更新可以让用户通过创建方法来实现内容的自动更新，比如论坛、留言簿等。那么大多数新站怎么办呢？

　　二、新网站

　　这里的新网站通常很快就会上线，没有权重，没有流量。这是一个想法。以()为例，见下图：

　　通过为网站添加访问者信息实现自动更新的方式，包括用户的访问时间（包括任何搜索引擎的蜘蛛）、IP地址、操作系统、浏览器信息等。这些信息不是重复。只要用户访问网站，该信息就会自动更新，实现网站的滚动更新。使用这种方法，许多新网站

　　短时间内，权重和排名都有所提升。

　　现在贴出获取访客信息的代码（ASP版）：

　　1、以下代码是将访客信息写入数据库。

　　dim lailuUrl

　　如果 Request.ServerVariables("Http_Referer")"" 那么

　　lailuUrl=Request.ServerVariables("Http_Referer")

　　其他

　　lailuUrl="直接从地址栏输入"

　　如果结束

　　Getip=Request.ServerVariables("REMOTE_ADDR")

　　设置 rsonline = server.CreateObject("adodb.recordset")

　　sql="select * from [online] where ip='"&Getip&"' "

　　rsonline.Open sql,Conn,1,3

　　如果 rsonline.eof 那么

　　rsonline.addnew

　　rsonline("browser")=Request.ServerVariables("HTTP_USER_AGENT")

　　rsonline("ip")=Getip

　　rsonline("startTime")=now()

　　rsonline("lailu")=lailuUrl

　　rsonline("dates")=Date()

　　rsonline.update

　　rsonline.close

　　如果结束

　　函数 usersysinfo(info,getinfo)

　　如果 instr(info,";")>0 那么

　　dim 用户系统

　　usersys=split(info,";")

　　如果 ubound(usersys)>=2 那么

　　usersys(1)=replace(usersys(1),"MSIE","Internet Explorer")

　　usersys(2)=replace(usersys(2),")","")

　　usersys(2)=replace(usersys(2),"NT 5.2","2003")

　　usersys(2)=replace(usersys(2),"NT 5.1","XP")

　　usersys(2)=replace(usersys(2),"NT 5.0","2000")

　　usersys(2)=replace(usersys(2),"NT 6.1","7")

　　usersys(2)=replace(usersys(2),"9x","Me")

　　usersys(1)= 修剪(usersys(1))

　　usersys(2)= 修剪(usersys(2))

　　如果 getinfo=1 则

　　usersysinfo=usersys(1)

　　其他

　　usersysinfo=usersys(2)

　　如果结束

　　其他

　　如果 getinfo=1 则

　　usersysinfo="未知"

　　其他

　　usersysinfo="未知"

　　如果结束

　　如果结束

　　其他

　　如果 getinfo=1 则

　　usersysinfo="未知"

　　其他

　　usersysinfo="未知"

　　如果结束

　　如果结束

　　结束函数

　　2、读出信息并显示在网页上

　　访客信息：

　　代码说明：新建一个名为 online 的表，并创建如下字段：

　　浏览器字段：用于记录访问者客户端信息，如浏览器、操作系统等

　　ip字段：记录用户的ip地址。

　　startTime字段：记录访问时间。

　　lailu字段：记录来源，即来自哪个URL。

　　日期字段：记录日期。

　　另外，usersysinfo函数用于读取浏览器字段信息。