如何让你的网站每天自动更新
生活随笔
收集整理的這篇文章主要介紹了
如何让你的网站每天自动更新
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
相信很多剛剛做網(wǎng)站的站長朋友都有這樣的感慨,每天更新網(wǎng)站真的是太累人了。想要提高自己網(wǎng)站的權(quán)重就得做到網(wǎng)站每天有更新,又不能一下子就把好幾天的文章都給更新了,因為這在搜索引擎看來還是當天發(fā)布的,對網(wǎng)站的權(quán)重沒有任何的作用,有沒有什么辦法可以讓網(wǎng)站做到自動更新呢?
? ? ? 大家知道經(jīng)常更新對于網(wǎng)站的重要性,搜索引擎喜歡新鮮的內(nèi)容,如果你的站長期不更新,輕則排名下降,重則被k。好了,閑話少說,下面介紹下網(wǎng)站自動更新思路。
一,老站
這里說的老站不僅是指建站時間長的網(wǎng)站,這樣的站不僅有了一定權(quán)重,網(wǎng)站也有一定的流量,這種站的自動更新可以讓用戶創(chuàng)建內(nèi)容的方法來實現(xiàn)自動更新,如論壇,留言本等。那么對于大多數(shù)新站該怎么辦呢?
二,新站
1,下面的代碼是將訪客信息寫入數(shù)據(jù)庫。
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,將信息讀出來并顯增示到網(wǎng)頁中
<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&" | 訪問時間:"×&" | 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>
代碼說明:新建一張名為online的表,分別建立以下幾個字段:
browser字段:用于記錄訪客客戶端信息,如瀏覽器,操作系統(tǒng)等。
ip字段:記錄用戶的ip地址。
startTime字段:記錄訪問的時間。
lailu字段:記錄來路,即從哪個網(wǎng)址來的。
dates字段:記錄日期。
另外usersysinfo這個函數(shù)是用于讀取browser字段信息的。
? ? ? 大家知道經(jīng)常更新對于網(wǎng)站的重要性,搜索引擎喜歡新鮮的內(nèi)容,如果你的站長期不更新,輕則排名下降,重則被k。好了,閑話少說,下面介紹下網(wǎng)站自動更新思路。
一,老站
這里說的老站不僅是指建站時間長的網(wǎng)站,這樣的站不僅有了一定權(quán)重,網(wǎng)站也有一定的流量,這種站的自動更新可以讓用戶創(chuàng)建內(nèi)容的方法來實現(xiàn)自動更新,如論壇,留言本等。那么對于大多數(shù)新站該怎么辦呢?
二,新站
這里的新站一般是上線不久,沒權(quán)重也沒流量。這里提供一種思路。以(http://www.xg51.net)為例,看下面這張圖:
它實現(xiàn)自動更新方法是為網(wǎng)站添加一個訪客信息,包括了用戶的訪問時間(也包括任意搜索引擎的蜘蛛)、IP地址、操作系統(tǒng)、瀏覽器信息等。這些信息是不重復(fù)的。只要有用戶訪問網(wǎng)站,這個信息就會自動的更新,這就實現(xiàn)了網(wǎng)站的滾動更新。用這個方法,很多新站都在短時間提升了權(quán)重和排名。
現(xiàn)貼出獲取訪客信息的代碼(ASP版):
1,下面的代碼是將訪客信息寫入數(shù)據(jù)庫。
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,將信息讀出來并顯增示到網(wǎng)頁中
<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&" | 訪問時間:"×&" | 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>
代碼說明:新建一張名為online的表,分別建立以下幾個字段:
browser字段:用于記錄訪客客戶端信息,如瀏覽器,操作系統(tǒng)等。
ip字段:記錄用戶的ip地址。
startTime字段:記錄訪問的時間。
lailu字段:記錄來路,即從哪個網(wǎng)址來的。
dates字段:記錄日期。
另外usersysinfo這個函數(shù)是用于讀取browser字段信息的。
總結(jié)
以上是生活随笔為你收集整理的如何让你的网站每天自动更新的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: Windows电脑搜索功能不能用怎么办
- 下一篇: Vijos P1123均分纸牌