İçeriğin çabuk indexlenmesi için ping göndermek (pingomatic.com - asp)

Sitemize içerik ekledikten sonra makalelerimizin hemen indexlenmesini sağlamalıyız. Aksi takdirde içerik hırsızları eklenen şeyi kendi sitelerine ekleyip indexlediklerinde her zaman arama motorlarında kendileri üstte çıkar. Bunu önlemek için ping sistemleri kullanabiliriz.
Ping sistemleri anlık olarak geniş link havuzlarına makalenizin linkini eklemektedir. Böylece makale botlar tarafından görülüp indexlenmektedir.

Pingomatic.com'a ping atalım

Pingi pingomatic.com, autopinger.com gibi sitelerden yapabilmekteyiz. Örneğin pingomatic.com dan yapalım.
pingomatic.com adresine girdiğimizde bize 3 bilgi istiyor.


Blog name ve Blog Home Page kısmına bildi gireceğiz, Rss Url opsiyoneldir.
Blog name'e yazının adını, Blog Home Page'e ise makalenin adresini gireceğiz.

Adresleri girdikten sonra Services to Ping kısmından pinglenecek servisleri seçeceğiz. Hepsini seçdikten sonra Send Ping butonuna basalım. Pingler atılacaktır.

Asp ile ping atalım

Pingomatic.com da manuel olarak yaptığımız işlem sitemizin pinglenmesini sağlar. Ancak bunu kendi sitemizde yaparsak daha basit ve daha faydalı olacaktır.

Size ping işlemini yapan fonksiyonu vereceğim.

function SendPing(byval strBlogName, byval strBlogUrl, byval strPageUrl, byval strFeedUrl) 
strData = “<?xml version=”"1.0¨”?>” 
strData = strData & “<methodCall>” 
strData = strData & “<methodName>weblogUpdates.extendedPing</methodName>” 
strData = strData & “<params>” 
strData = strData & “<param>” 
strData = strData & “<value>” & strBlogName & “</value>” 
strData = strData & “</param>” 
strData = strData & “<param>” 
strData = strData & “<value>” & strBlogUrl & “</value>” 
strData = strData & “</param>” 
strData = strData & “<param>” 
strData = strData & “<value>” & strPageUrl & “</value>” 
strData = strData & “</param>” 
strData = strData & “<param>” 
strData = strData & “<value>” & strFeedUrl & “</value>” 
strData = strData & “</param>” 
strData = strData & “</params>” 
strData = strData & “</methodCall>” 
 
‘ post to Pingomatic XMLRPC ping URL 
set objHttp = Server.CreateObject(”MSXML2.ServerXMLHTTP”) 
objHttp.open “POST”, “http://rpc.pingomatic.com/”, false 
objHttp.setRequestHeader “Content-Type”, “text/xml” 
objHttp.setRequestHeader “Content-Length”, len(strData) 
objHttp.Send strData 
 
‘ check response 
if (objHttp.status = 200) then 
strReturn = objHttp.responseText 
end if 
 
‘ release object 
set objHttp = nothing 
 
‘ passback 
SendPing = strReturn 
 
end function

pingi ise aşağıdaki gibi bir kullanımla atacağız.

SendPing(”Personelpage”, “http://personelpage.net, “http://personelpage.net/default.asp?act=yazi&id=60", “”)

- makale bana aittir.

güzel paylaşım.

fatih mesele pingletmek değil, sağlam ping servisi bulmak

yinede güzel paylaşım