很多剛剛開始做網站的站長朋友都會深有同感，每天的網站更新確實非常繁瑣。想要提高自己網站的權重就得做到網站每天有更新，又不能一下子就把好幾天的文章都給更新了，因為這在搜索引擎看來還是當天發布的，對網站的權重沒有任何的作用，有沒有什么辦法可以讓網站做到自動更新呢？
? ? ? 大家知道經常更新對于網站的重要性，搜索引擎喜歡新鮮的內容，如果你的站長期不更新，輕則排名下降，重則被k。好了，閑話少說，下面介紹下網站自動更新思路。
一，老站
這里說的老站不僅是指建站時間長的網站，這樣的站不僅有了一定權重，網站也有一定的流量，這種站的自動更新可以讓用戶創建內容的方法來實現自動更新，如論壇，留言本等。那么對于大多數新站該怎么辦呢？
二，新站
這里的新站一般是上線不久，沒權重也沒流量。這里提供一種思路。如下圖所示，以(http://www.xg51.net)為例：
它實現自動更新方法是為網站添加一個訪客信息，包括了用戶的訪問時間（也包括任意搜索引擎的蜘蛛）、IP地址、操作系統、瀏覽器信息等。這些信息是不重復的。網站會自動更新信息，只要有用戶訪問，從而實現了滾動更新。用這個方法，很多新站
都在短時間提升了權重和排名。
現貼出獲取訪客信息的代碼(ASP版)：
1，下面的代碼是將訪客信息寫入數據庫。
dim lailuUrl
? ? ?if Request.ServerVariables(“Http_Referer”)”” then
? ? lailuUrl=Request.ServerVariables(“Http_Referer”)
? else
? ? lailuUrl=”從地址欄直接輸入”
? ? ? ? end if
? ? ? ? Getip=Request.ServerVariables(“REMOTE_ADDR”)
? ? ? ? set rsonline = server.CreateObject (“adodb.recordset”)
? ? ? ? ? ?sql=”select * from [online] where ip='”&Getip&”‘ “
? ? ? ? rsonline.Open sql,Conn,1,3
? ? ? ? If ?rsonline.EOF then
? ? ? ? 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
? ? ? ? End if
function usersysinfo(info,getinfo)
if instr(info,”;”)>0 then
? ? ? ? dim usersys
? ? ? ? usersys=split(info,”;”)
? ? ? ? if ubound(usersys)>=2 then
? ? ? ? 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))
? ? ? ? if getinfo=1 then
? ? ? ? ? ? ? ? usersysinfo=usersys(1)
? ? ? ? else
? ? ? ? ? ? ? ? usersysinfo=usersys(2)
? ? ? ? end if
? ? ? ? else
? ? ? ? if getinfo=1 then
? ? ? ? ? ? ? ? usersysinfo=”未 知”
? ? ? ? else
? ? ? ? ? ? ? ? usersysinfo=”未 知”
? ? ? ? end if
? ? ? ? end if
else
? ? ? ? if getinfo=1 then
? ? ? ? ? ? ? ? usersysinfo=”未 知”
? ? ? ? else
? ? ? ? ? ? ? ? usersysinfo=”未 知”
? ? ? ? end if
end if
end function
2,將信息讀出來并顯增示到網頁中
訪客信息:
- ID:”&id&” | 訪問時間:”×&” | IP:”&ip&” | 操作系統:”&chang(usersysinfo(rs(“browser”),2),20)&” | 瀏覽
器:”&usersysinfo(rs(“browser”),1)&”
sql=”select * from [online1] order by id desc”
rs.open sql,conn,1,1
For i=1 To 5
If rs.eof Then Exit for
id=rs(“id”)
times=FormatDate(rs(“starttime”),1)
ip=rs(“ip”)
suiji=suiji&”
“& vbcrlf
rs.movenext
Next
Response.write suiji
rs.close
Set rs=nothing%>
代碼說明：新建一張名為online的表，分別建立以下幾個字段：
browser字段：用于記錄訪客客戶端信息，如瀏覽器，操作系統等。
ip字段：記錄用戶的ip地址。
startTime字段：記錄訪問的時間。
lailu字段：記錄來路，即從哪個網址來的。
dates字段：記錄日期。
另外usersysinfo這個函數是用于讀取browser字段信息的。
