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

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

　　相信很多刚开始网站的站长朋友都有这样的感受。每天更新网站真的很累。如果你想增加你的网站的权重，你必须每天更新网站，而且你不能一次更新好几天的所有文章，因为这是在搜索引擎中。当天发布，对网站的权重没有影响。有没有办法让网站自动更新？

　　大家都知道经常更新到网站的重要性。搜索引擎喜欢新鲜的内容。如果你的网站长时间不更新，排名就会下降，排名就会变差。好了，话不多说，先介绍一下网站自动更新的思路。

　　一、老站

　　这里所说的老站不仅指时间长的网站，这样的站不仅有一定的权重，而且有一定的流量。这类站的自动更新，让用户自己创建实现内容自动更新的方法，比如论坛、留言板等，那么对于大多数新站我们应该怎么做呢？

　　二、新站

　　这里的新站一般都很快上线，没有重量也没有流量。这是一个想法。以()为例，看下图：

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

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

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

　　昏暗的 lailuUrl

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

　　lailuUrl=Request.ServerVariables("Http_Referer")

　　其他

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

　　如果结束

　　Getip=Request.ServerVariables("REMOTE_ADDR")

　　set 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

　　如果结束

　　function usersysinfo(info,getinfo)

　　if instr(info,";")>0 then

　　昏暗的用户系统

　　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)= Trim(usersys(1))

　　usersys(2)= Trim(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函数读取浏览器字段信息。