如何讓網站每天自動更新

很多剛開始做網站的站長朋友都會深有同感，每天的網站更新確實非常繁瑣。想要提升自己網站的權重就得做到網站每天有更新，又不能一下子就把好幾天的文章都給更新了，因為這在搜尋引擎看來還是當天發布的，對網站的權重沒有任何的作用，有沒有辦法讓網站做到自動更新呢？

      大家知道經常更新對網站的重要性，搜尋引擎喜歡新鮮的內容，如果你的站長期不更新，輕則排名下降，重則被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("RE#        Getip=Request.ServerVariables("REMOTE_ADDR ) = server.CreateObject ("adodb.recordset")

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

    sql   rsonline.Open , . 3

        If  rsonline.eof then

        rsonline.addnew

                          rsonline( "ip")=Getip

                rsonline("startTime")=now()

##           rsonline("dates")=Date ()

        rsonline.update

        rsonline.close

        End if

function userinfo info,";")>0 then

        dim usersys

        usersys=split(info,";")

        if.

        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   usersys(2)=replace(usersys(2),"NT 5.1),"NT 5.1 ","XP")

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

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

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

        usersys(1)= Trim(userusersys (1))

        usersys(2)= Trim(usersys(2))

        if getinfo=1 then

##> #        else

                usersysinfo=usersys(2)

        end if

#>

       

                usersysinfo="未知"

        else

                usersysinfo="未知"

        end if

        end if

else

#        end if

else

        if getinfo=1 then # #           else

                usersysinfo="未知"

        end if

end if

end function

##2,#11到網頁中

訪客資訊:

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&"

• ID:"&id&" | 存取時間:"×&" | IP:"&ip&" | 作業系統:"&chang (usersysinfo(rs("browser"),2),20)&" | 瀏覽

  器:"&usersysinfo(rs("browser"),1)&"

"& vbcrlf

rs.movenext

Next

Response.write suiji

rs.close

Set rs=nothing%>

程式碼說明：新建一張名為online的表，分別建立以下幾個欄位：

browser欄位：用於記錄訪客用戶端訊息，如瀏覽器，作業系統等。

ip欄位：記錄使用者的ip位址。

startTime欄位：記錄存取的時間。

lailu欄位：記錄來路，即從哪個網址來的。

dates欄位：記錄日期。

另外usersysinfo這個函數是用來讀取browser欄位資訊的。

以上是如何讓網站每天自動更新的詳細內容。更多資訊請關注PHP中文網其他相關文章！