Blograzzi API - PHP Kod Örnekleri

Blograzzi API - ASP (VBScript) Kod Örnekleri

Blograzzi, bu kod örneğinin kullanımından doğacak herhangi bir sonuçla ilgili olarak sorumluluk kabul etmemektedir.

Gönderen

Hakan Şen (hakansen) , www.hakansen.com

Kod Örnekleri

BlogDetay.asp

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

<%
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)

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

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)

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

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)

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

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)

End If

Set objItemList = objXML.getElementsByTagName("Yanit")
    Set objXML = Nothing

Set objItemList = Nothing

%>
</table>