asp yardımınız lazım lütfennnnn!!!!

deliok

0
İyinet Üyesi
Katılım
4 Mayıs 2013
Mesajlar
2
Reaction score
0
bir siteden rss verilerini çekiyorum kod tam çalışıyor ancak istediğim bu siteden çektiğim verilerin linklerine tıkladığımda farklı pencerede açması mevcut pencerenin kapanmaması bu konuda yardımınızı istiyorum kodlar şöyle :

<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "iso-8859-9" %>
<?xml version="1.0" encoding="iso-8859-9"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>

<%
Dim objXML
Dim objItemList
Dim objItem
Dim I

Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False

objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.zaguda.net/rss/haber/genel.xml")
'objXML.Load(Server.MapPath("megatokyo.xml"))

If objXML.parseError.errorCode <> 0 Then
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("item")
Set objXML = Nothing



For Each objItem In objItemList


' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description


Response.Write "<p>"
response.write "<b><a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.selectSingleNode("title").Text & "</a></b>"
response.write "<a href='" & objItem.selectSingleNode("link").Text & "'>" & objItem.childNodes(1).text & "</a>"

Response.Write "</p>"



Next



Set objItemList = Nothing
%>
</body>
</html>
 

Roul

0
Yasakli Uye
Katılım
28 Şubat 2010
Mesajlar
32
Reaction score
0
Kod:
<%@ Language="VBScript" %>
<% Option Explicit %>
<% Response.Charset = "iso-8859-9" %>
<?xml version="1.0" encoding="iso-8859-9"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>ASP 101's MegaTokyo RSS Feed Reader</title>
</head>
<body>

<%
Dim objXML
Dim objItemList
Dim objItem
Dim I

Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocumen t")
objXML.async = False

objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.zaguda.net/rss/haber/genel.xml")
'objXML.Load(Server.MapPath("megatokyo.xml"))

If objXML.parseError.errorCode <> 0 Then
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("item")
Set objXML = Nothing



For Each objItem In objItemList


' MegaTokyo Feed childNodes: 0=title, 1=link, 2=description


Response.Write "<p>"
response.write "<b><a href='" & objItem.selectSingleNode("link").Text & "' target="_blank">" & objItem.selectSingleNode("title").Text & "</a></b>"
response.write "<a href='" & objItem.selectSingleNode("link").Text & "' target="_blank">" & objItem.childNodes(1).text & "</a>"

Response.Write "</p>"



Next



Set objItemList = Nothing
%>
</body>
</html>


Bu Sekilde DEne İstersen
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara Cicisex Porno
Üst