相信很多剛剛做網(wǎng)站的站長(zhǎng)朋友都有這樣的感慨，每天更新網(wǎng)站真的是太累人了。想要提高自己網(wǎng)站的權(quán)重就得做到網(wǎng)站每天有更新，又不能一下子就把好幾天的文章都給更新了，因?yàn)檫@在搜索引擎看來(lái)還是當(dāng)天發(fā)布的，對(duì)網(wǎng)站的權(quán)重沒(méi)有任何的作用，有沒(méi)有什么辦法可以讓網(wǎng)站做到自動(dòng)更新呢？
? ? ? 大家知道經(jīng)常更新對(duì)于網(wǎng)站的重要性，搜索引擎喜歡新鮮的內(nèi)容，如果你的站長(zhǎng)期不更新，輕則排名下降，重則被k。好了，閑話少說(shuō)，下面介紹下網(wǎng)站自動(dòng)更新思路。
一，老站
這里說(shuō)的老站不僅是指建站時(shí)間長(zhǎng)的網(wǎng)站，這樣的站不僅有了一定權(quán)重，網(wǎng)站也有一定的流量，這種站的自動(dòng)更新可以讓用戶創(chuàng)建內(nèi)容的方法來(lái)實(shí)現(xiàn)自動(dòng)更新，如論壇，留言本等。那么對(duì)于大多數(shù)新站該怎么辦呢？
二，新站

這里的新站一般是上線不久，沒(méi)權(quán)重也沒(méi)流量。這里提供一種思路。以(http://www.xg51.net)為例，看下面這張圖：

它實(shí)現(xiàn)自動(dòng)更新方法是為網(wǎng)站添加一個(gè)訪客信息，包括了用戶的訪問(wèn)時(shí)間（也包括任意搜索引擎的蜘蛛）、IP地址、操作系統(tǒng)、瀏覽器信息等。這些信息是不重復(fù)的。只要有用戶訪問(wèn)網(wǎng)站，這個(gè)信息就會(huì)自動(dòng)的更新，這就實(shí)現(xiàn)了網(wǎng)站的滾動(dòng)更新。用這個(gè)方法，很多新站都在短時(shí)間提升了權(quán)重和排名。

現(xiàn)貼出獲取訪客信息的代碼(ASP版)：

1，下面的代碼是將訪客信息寫入數(shù)據(jù)庫(kù)。
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,將信息讀出來(lái)并顯增示到網(wǎng)頁(yè)中
<strong>訪客信息:</strong>
<ul>
<%Set rs=server.CreateObject("adodb.recordset")
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&"<li>ID:"&id&" | 訪問(wèn)時(shí)間:"×&" | IP:"&ip&" | 操作系統(tǒng):"&chang(usersysinfo(rs("browser"),2),20)&" | 瀏覽


器:"&usersysinfo(rs("browser"),1)&"</li>"& vbcrlf
rs.movenext
Next
Response.write suiji
rs.close
Set rs=nothing%>
</ul>


代碼說(shuō)明：新建一張名為online的表，分別建立以下幾個(gè)字段：
browser字段：用于記錄訪客客戶端信息，如瀏覽器，操作系統(tǒng)等。
ip字段：記錄用戶的ip地址。
startTime字段：記錄訪問(wèn)的時(shí)間。
lailu字段：記錄來(lái)路，即從哪個(gè)網(wǎng)址來(lái)的。
dates字段：記錄日期。


另外usersysinfo這個(gè)函數(shù)是用于讀取browser字段信息的。

總結(jié)

以上是生活随笔為你收集整理的如何让你的网站每天自动更新的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。