首页> 运维> 安全> 正文

如何让网站每天自动更新

PHPz
发布: 2023-05-17 08:34:22
转载
11613 人浏览过

很多刚刚开始做网站的站长朋友都会深有同感,每天的网站更新确实非常繁琐。想要提高自己网站的权重就得做到网站每天有更新,又不能一下子就把好几天的文章都给更新了,因为这在搜索引擎看来还是当天发布的,对网站的权重没有任何的作用,有没有什么办法可以让网站做到自动更新呢?

大家知道经常更新对于网站的重要性,搜索引擎喜欢新鲜的内容,如果你的站长期不更新,轻则排名下降,重则被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,将信息读出来并显增示到网页中

访客信息:

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

  • 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中文网其他相关文章!

相关标签:
来源:yisu.com
本站声明
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系admin@php.cn
最新问题
最新下载
更多>
网站特效
网站源码
网站素材
前端模板
关于我们 免责声明 Sitemap
PHP中文网:公益在线PHP培训,帮助PHP学习者快速成长!