ウェブサイトを毎日自動的に更新する方法

Web サイトの構築を始めたばかりの Web マスターの友人の多くも同じように感じているでしょう。Web サイトの毎日の更新は確かに非常に面倒です。 Web サイトの比重を増やしたい場合は、Web サイトが毎日更新されるようにする必要があります。また、検索エンジンの目から見ると、記事は同じ日に公開されるものであるため、数日分の記事を一度に更新することはできません。 Web サイトの重量には影響しません。Web サイトを自動的に更新する方法はありますか?

Web サイトを頻繁に更新することの重要性は誰もが知っています。検索エンジンは新鮮なコンテンツを好みます。Web サイトが長期間更新されないと、ランキングが下がったり、削除されたりします。さて、早速、Web サイトの自動更新のアイデアを紹介しましょう。

1. 古いサイト

ここでいう古いサイトとは、開設されてから年月が経っている Web サイトだけを指すものではなく、一定の重みがあるだけでなく、一定の規模を持っています。自動更新により、ユーザーはフォーラムやゲストブックなどの自動更新を実現する方法でコンテンツを作成できます。では、ほとんどの新しいサイトはどうすればよいのでしょうか?

2 番目の新しいサイト

ここの新しいサイトは通常、それほど前に公開されず、重みもトラフィックもありません。ここにアイデアがあります。以下の図に示すように、(http://www.xg51.net) を例として取り上げます。

自動更新を実現する方法は、訪問者情報を追加することです。ユーザーのアクセス時間 (検索エンジン スパイダーも含む)、IP アドレス、オペレーティング システム、ブラウザ情報などを含む Web サイトへの情報。この情報は繰り返しません。 Webサイトは、ユーザーがアクセスしている限り自動的に情報を更新するローリングアップデートを実現します。この方法を使用して、多くの新しいサイト

が短期間で重みとランキングを向上させました。

ここで、訪問者情報を取得するコードを投稿します (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＆ "'"

3

if if rsonline.eof then

rsonline.addnew

rsonline("browser")=Request.ServerVariables("HTTP_USER_AGENT")

rsonline( "ip")=Getip

rsonline("startTime ")=now()

''s ‐ rsonline(''s'' out's being ‐ rsonline の s の ‐‐‐‐ rsonline ("dates")=日付 ()

rsonline.update

rsonline.close

End if

function usersysinfo(info,getinfo)

if strunt（info、 ";"）＆gt; 0 then

# dim usersys

usersys = split（info、 ";"）

‐ - en in inで

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

Use usersysinfo = Usersys (2)

End if

Else

## iF GetInfo = 1 then

## Usersysysinfo = "Unknown "

else

usersysinfo="不明"

end if

end if

else

if getinfo=1 then

usersysinfo="Unknown"

else

usersysinfo = "Unknown"

End if

End if

END FUNCTION

## 2、情報を読み、増加量を増やします。 Web ページ

訪問者情報:

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("ブラウザ"),2),20)&" | ブラウザ:"&usersysinfo(rs("ブラウザ"),1)&"
"& vbcrlf
rs. movenext
Next
Response.write suiji
rs.close
Set rs=nothing%>

> ;

コードの説明: online という名前の新しいテーブルを作成し、次のフィールドを作成します:

ブラウザ フィールド: ブラウザ、オペレーティング システムなどの訪問者のクライアント情報を記録するために使用されます。

ip フィールド: ユーザーの IP アドレスを記録します。

startTime フィールド: アクセス時刻を記録します。

lailu フィールド: ソース、つまりどの URL から来たのかを記録します。

dates フィールド: 記録日。

さらに、usersysinfo 関数はブラウザのフィールド情報を読み取るために使用されます。

以上がウェブサイトを毎日自動的に更新する方法の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。