现贴出访客信息的代码(ASP版)elselailuUrl=Request.ServerVariables

　　现贴出访客信息的代码(ASP版)elselailuUrl=Request.ServerVariables

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

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

　　一、老站

　　这里提到的老站不仅仅指网站，已经建了很久了。这样的网站不仅有一定的权重，网站也有一定的流量。这种网站的自动更新允许用户创建内容。实现自动更新，例如论坛、留言板等。那么对于大多数新站我们应该怎么做？

　　二、新站

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

　　实现自动更新的方法是为网站添加一个访问者信息，包括用户的访问时间（包括任何搜索引擎蜘蛛）、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函数读取浏览器字段信息。