Ocak 2
Blograzzi Api ve VBscript kod örnekleri
Eburhan`ın web sitesinde "Blograzzi’den API hizmeti" adlı konuyu gördüm ve Blograzzi`yi tebrik ettim böyle bir hizmeti başlattıkları için.
Devamında da Bloglardan.com ve Sitebilgi.net sitelerinde de kullanıldığını öğrendim.
Blograzzi API hakkında daha detaylı bilgi için Blograzzi Api sayfasını ziyaret ediniz.
Api dökümanlarında PHP ve Asp.Net örnekleri bulunuyordu.
Bende kısa bir vakit ayırıp Asp Vbscript örneklerini hazırlayıp gönderdim, sağolsunlar yayınlamışlar.
Kod örnekleri konunun devamında, kullanımları ile ilgili detaylı açıklamaları da kısa bir süre sonra hazırlayacağım.
BlogDetay.asp
Kod:
<%
apikey = "" 'Api Key yazılacak
Url = "www.hakansen.com"
If Request("url") <> "" Then Url = Request("url")
strUrl = "http://webservice.bLograzzi.com/BLograzziWS.asmx/BLogDetaylari?URL="&url&"&Anahtar="&apikey&""
Set objXML = Server.CreateObject("MSXML2.FreeThReadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
If objXML.parseError.errorCode <> 0 Then
%>
<div>
<h1>Bulunamadı</h1>
</div>
<%
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Text:</strong> " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("BLogBilgileri")
Set objXML = Nothing
iA = 0%>
<table width="100%">
<tr>
<td width="25%" bgcolor="#666666">isim</td>
<td bgcolor="#666666">deger</td>
</tr>
<%
For Each objItem In objItemList
For sira = 0 To 18
%>
<tr>
<td width="25%"><%= objItem.childNodes(sira).NodeName %></td>
<td><%= objItem.childNodes(sira).text %></td>
</tr>
<%
Next
iA = iA + 1
Next
Set objItemList = Nothing
%>
</table>
BlogYorumlari.asp
Kod:
<%
apikey = "" 'Api Key yazılacak
url = "www.hakansen.com"
If Request("url") <> "" Then Url = Request("url")
YorumSayisi = 10
strUrl = "http://webservice.bLograzzi.com/BLograzziWS.asmx/BLogYorumlari?URL="&url&"&YorumSayisi="&YorumSayisi&"&Anahtar="&apikey&""
Set objXML = Server.CreateObject("MSXML2.FreeThReadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
If objXML.parseError.errorCode <> 0 Then
%>
<div>
<h1>Bulunamadı</h1>
</div>
<%
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Text:</strong> " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("Yorum")
Set objXML = Nothing
iA = 0%>
<table width="100%">
<tr>
<td><b><%=url%></b> Hakkýnda yapýlan yorumlar</td>
</tr>
<%
For Each objItem In objItemList
%>
<tr>
<td>
<p><%= objItem.childNodes(0).text %> tarihinde <a href="<%= objItem.childNodes(4).text %>"><%= objItem.childNodes(3).text %></a> yazdý;<br />
<%= objItem.childNodes(1).text %></p></td>
</tr>
<%
iA = iA + 1
Next
Set objItemList = Nothing
%>
</table>
Etiketler.asp
Kod:
<%
apikey = "" 'Api Key yazılacak
etiket = "asp"
BLogSayisi = 10
strUrl = "http://webservice.bLograzzi.com/BLograzziWS.asmx/EtiketEnIyiler?Etiket="&etiket&"&BLogSayisi="&BLogSayisi&"&Anahtar="&apikey&""
Set objXML = Server.CreateObject("MSXML2.FreeThReadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
If objXML.parseError.errorCode <> 0 Then
%>
<div>
<h1>Bulunamadı</h1>
</div>
<%
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Text:</strong> " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("BLogBilgileri")
Set objXML = Nothing
iA = 0%>
<table width="100%">
<tr>
<td colspan="2">Aranan Etiket : <b><%=etiket%></b></td>
</tr>
<tr>
<td width="25%" bgcolor="#666666">isim</td>
<td bgcolor="#666666">deger</td>
</tr>
<%
For Each objItem In objItemList
%>
<tr>
<td width="25%">Site Adý : </td>
<td><a href="BLogDetay.asp?url=<%= Replace(objItem.childNodes(1).text, "http://", "") %>"><%= objItem.childNodes(0).text %></a></td>
</tr>
<%
iA = iA + 1
Next
Set objItemList = Nothing
%>
</table>
KategoriEnIyiler.asp
Kod:
<%
apikey = "" 'Api Key yazılacak
KategoriID = "33"
BLogSayisi = 10
strUrl = "http://webservice.bLograzzi.com/BLograzziWS.asmx/KategoriEnIyiler?Kategori="&KategoriID&"&BLogSayisi="&BLogSayisi&"&Anahtar="&apikey&""
Set objXML = Server.CreateObject("MSXML2.FreeThReadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
If objXML.parseError.errorCode <> 0 Then
%>
<div>
<h1>Bulunamadı</h1>
</div>
<%
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Text:</strong> " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("BLogBilgileri")
Set objXML = Nothing
iA = 0%>
<table width="100%">
<tr>
<td width="25%" bgcolor="#666666">isim</td>
<td bgcolor="#666666">deger</td>
</tr>
<%
For Each objItem In objItemList
For sira = 0 To 2
%>
<tr>
<td width="25%"><%= objItem.childNodes(sira).NodeName %></td>
<td><%= objItem.childNodes(sira).text %></td>
</tr>
<%
Next
iA = iA + 1
Next
Set objItemList = Nothing
%>
</table>
Kategoriler.asp
Kod:
<%
apikey = "" 'Api Key yazılacak
strUrl = "http://webservice.bLograzzi.com/BLograzziWS.asmx/Kategoriler?Anahtar="&apikey&""
Set objXML = Server.CreateObject("MSXML2.FreeThReadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load(strUrl)
If objXML.parseError.errorCode <> 0 Then
%>
<div>
<h1>Bulunamadı</h1>
</div>
<%
Response.Write "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Line:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Text:</strong> " _
& Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & vbCrLf
End If
Set objItemList = objXML.getElementsByTagName("Yanit")
Set objXML = Nothing
iA = 0%>
<table width="100%">
<tr>
<td width="25%" bgcolor="#666666">isim</td>
<td bgcolor="#666666">deger</td>
</tr>
<%
For Each objItem In objItemList
For sira = 0 To 2
%>
<tr>
<td width="25%"><%= objItem.childNodes(sira).NodeName %></td>
<td><%= objItem.childNodes(sira).text %></td>
</tr>
<%
Next
iA = iA + 1
Next
Set objItemList = Nothing
%>
</table>
