[soul]

ASP - XML ile bir örnek kod, Kod sayesinde dışarıdan veya içeriden herhangi bir XML versisini kullanmayı çözebilirsiniz.

Aynı zamanda örnekte zoque.forum' un XML ini kullandım bu sayede sitenizde istediğini şekilde son konuları listeleyebilirsiniz.

Hatta ben bu şekilde zoque için bir RSS Feed yaptım.
http://ferruh.mavituna.com/rss/zoque

www.feedreader.com ile bu RSS i kullanabilirsiniz.

Kod konusunu yayınlamama ve bu örneği yazmama sebep olan @cekirge ye saygılarımı iletirim buradan.

Onlinde Demo :
http://ferruh.mavituna.com/aspxml.asp

Koda gelince;

<%@CODEPAGE=1254%>
<%
'// By Ferruh Mavituna | http://ferruh.mavituna.com
'// 29.08.2003

'// Bunu yayınlamam sebebiyet veren @cekirge ye saygılarımla
Option Explicit

'// Bunu yayınlamam sebebiyet veren @cekirge ye saygılarımla
Dim objXML, objLst, strXML, Pos, i
Dim objChild, objChild2
Dim XHeader, XPubDate, XAuthor, XThreadId, XCat, XReplyCount, XLastReplier, Xdesc

'// Hata Flag
Pos = True 

'// Bu fonksiyon istediğiniz bir sitenin kodunu alır
strXML = fm_GetCode("http://forum.zoque.net/XML.PHP", Pos,0)

'// Hata kontrol
If NOT Pos Then
	Response.Write strXML
	Response.End
End If

'// XML Atraksiyonları açılışı
'// XML yüklemek için objemizi oluşturuyoruz
Set objXML = CreateObject("Microsoft.XMLDOM") 
objXML.async = false 

'// StrXML uzaktaki sayfdana gelen XML kodumuzdu, Onu LoadXML() ile yüklüyoruz
objXML.LoadXML strXML 

'// thread isimle XML nodelarını alıyoruz
Set objLst = objXML.getElementsByTagName("thread")

'// Döngüye başlamadan önce Tablo Aç
Response.Write "<style>#zoqxml td {font:11px ""Microsoft Sans Serif""}; #zoqxml #mnu td {padding:5px;font:bold 12px Tahoma}</style>"
Response.Write "<table id=""zoqxml"" width=""100%"">" &_
"<tr bgcolor=""#FF9900"" id=""mnu""><td>Konu</td>" &_
"<td>Gönderen</td>" &_
"<td>Kategori</td>" &_
"<td>Cevap</td>" &_
"<td>Son Cevaplayan</td>" &_
"</tr>"


'// Listedeki ObjjLst' deki her alt node (child) için bir döngü
For Each objChild In objLst
	'// Eğer altnode' u varsa...
	If objChild.hasChildNodes() Then
		
		'// Burada childNodes(1), childNodes(14) gibi altnodelara array aracılığı ile ulaşıyoruz
		'// Sayarak istediğiniz nodelara ulaşabilirsiniz.
		XHeader = objChild.childNodes(1).text
		XAuthor = objChild.childNodes(2).text
		XThreadId = objChild.childNodes(0).text
		XCat = objChild.childNodes(4).text
		XReplyCount = objChild.childNodes(7).text
		XLastReplier = objChild.childNodes(6).text
		'"<br /> <strong>Cevap :</strong> " & XReplyCount & "<br /> <strong>Son Cevaplayan :</strong> " & XLastReplier

			Response.Write "<tr bgcolor=""#F7F7F7"">" &_
				"<td><a href=""http://forum.zoque.net/showthread.PHP?threadid=" & XThreadId & """>" & XHeader &"</a></td>" & vbNewline &_
				"<td>" & XAuthor & "</td>" & vbNewline &_
				"<td>" & XCat & "</td>" & vbNewline &_
				"<td>" & XReplyCount & "</td>" & vbNewline &_
				"<td>" & XLastReplier & "</td>" & vbNewline &_
			"</tr>"

	End If
Next

'// Tablo kapat
Response.Write "</table>"


'// Temizlik Yapalım
Set objXML = Nothing 

'// fm_GetCode() v0.7
'// GetCode (XMLHTTP based remote source code reaper) by Ferruh Mavituna
'// method | 0:XMLHTTP, 1:WinHTTP, 2:ASPTear

Function fm_GetCode(byVal domain, byRef Pos, byVal method)
	Dim Xobj, Code
	If Trim(domain) = "" Then fm_GetCode = "No Input specified ! " : Exit Function
	
	'// GET URL
	Select Case method
		Case 0,1
			Set Xobj = server.CreateObject("WinHttp.WinHttpRequest.5")
			Xobj.Open "GET",domain,false
			Xobj.setRequestHeader "Content-Type", "text/XML; charset=windows-1254"
			Xobj.Send

			If Int(xobj.Status) = 200 Then
				Code = xobj.ResponseText
			Else
				Code = "Couldn't access <strong>" & domain & "</strong>"
			End If

		Case 2
			'// Get Info by ASPTear
			Set Xobj = CreateObject("SOFTWING.ASPtear")
'			Xobj.AddHeader "Content-Type", "text/XML; charset=windows-1254"
			Code = Xobj.Retrieve(domain, 2, "", "", "")
	End Select

	'// Kill
	Set Xobj = Nothing

	fm_GetCode = Code
	If err Then Pos = False
End Function
%>

Son olarak kodda TR karakter sorunu var serverda gerekli ayarlar yapılırsa düzeltilebilir.

ASPTear kullanıcaksanız dokumantasyonundaki şekilde TR charset kullanın. Ancak bu sadece ücretli ASPTear larda çalışıyor. Bendeki ücretsiz versiyonu olduğundan TR karakter olayını çözemiyorum.

Son olarak bu kodu hafif modifiye ile hafif ve bildirgec XML leri ile de kullanabilirsiniz.

[bérk]

soul, ellerine sağlık, yanlız sormak istediğim bir konu var.

bu kod asptear gibi component kurmadan çalışıyor mu? şahsen ben bilgisayarımda çalıştıramadım. Yoksa sorun benden mi kaynaklanıyor?

teşekkürler.

[soul]

IIS 5 ve XMLHTTP veya ASPTear istiyor.

Eğer win98 kullanıyorsan veya yakın bir şey çalışmayabilir.

[bérk]

teşekkürler.

[biolight]

güzel olmuş eline saglık soul

küçük bir tiyo
link in sonuna &goto=newpost eklenirsen konunun en son mesajına gidiliyor.

[hiGS]

ferruh abi.

IIS 5.1 kullanıyorum, XMLHTTP başka scriptlerde çalışıyor. fakat bunda,

server nesnesi, ASP 0177 (0x800401F3)
Geçersiz sınıf dizesi
/aspxml.ASP, line 92

90	Select Case method

91		Case 0,1

92 Set Xobj = server.CreateObject("WinHttp.WinHttpRequest.5")

93 Xobj.Open "GET",domain,false
		
94 Xobj.setRequestHeader "Content-Type", "text/XML; charset=windows-1254"

95 Xobj.Send

host'uma attım, bu seferde ulaşmaya çalıştığınız sayfada hata var diyor..

böyle bir hata verdi.

[bérk]

(konu biraz eskimiş olsa da)

hocam bu kodun rssfeedreeaader ile okunacağını yazmışsın ancak ne forum.zoque.net/XML.PHP sitesi ne de senin sitendeki online demonun addresini girince çalımıyor. "No newsfeed found" diyor. Bu da benim eski problemi çözmememden dollayı mı ortaya çıkıyor?

[soul]

http://ferruh.mavituna.com/rss/zoque

bu adresin çalışması gerekiyor bunu denedin mi _

[bérk]

çok özür dilerim. verdiğin adres çalışıyor.

[gameover]

ellerine sağlık soul, oldukça yararlı bir şey, yabancı kaynaklara bakmaya gerek kalmadı :)