[经验分享]如何让你的网站每天自动更新
相信很多刚刚做网站的站长朋友都有这样的感慨,每天更新网站真的是太累人了。想要提高自己网站的权重就得做到网站每天有更新,又不能一下子就把好几天的文章都给更新了,因为这在搜索引擎看来还是当天发布的,对网站的权重没有任何的作用,有没有什么办法可以让网站做到自动更新呢?
大家知道经常更新对于网站的重要性,搜索引擎喜欢新鲜的内容,如果你的站长期不更新,轻则排名下降,重则被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,将信息读出来并显增示到网页中
<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&" | 操作系统:"&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字段:用于记录访客客户端信息,如浏览器,操作系统等。
ip字段:记录用户的ip地址。
startTime字段:记录访问的时间。
lailu字段:记录来路,即从哪个网址来的。
dates字段:记录日期。
另外usersysinfo这个函数是用于读取browser字段信息的。
郑重声明:本站内容如果来自互联网及其他传播媒体,其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享,并不代表本站赞同其观点和对其真实性负责,也不构成任何其他建议。