بلوك كردن اطلاعات از سايت هاي ديگر

iman_ebru

iman_ebru

Active Member
با عرض سلام و خسته نباشيد خدمت تمام برنامه نويسان و دوستان
عرض كنم كه من يه سوال در مورد بلوك كردن داشتم كه اون هم اين بود كه چطور ميشه بعضي اطلاعات رو از سايتهاي ديگه بلوك كنيم.
البته با php مثلا آخرين ارسال ها به انجمن مجيد آنلاين رو تو يه صفحه نمايش بديم.
يا آخرين اخبار ايلنا يا آخرين ارسال هاي يه وبلاگ يا هر چيز ديگه
من قبلا يه بلوكي براي بي بي سي گرفتم.
از همه دوستان طمنا دارم هر بلوكي كه ميتونن آماده كنن يا سورسش رو دارن برام بدن.
مال مجيد انلاين مهمتره
:wink: با تشكر از همه - ايمان.
 
AliReza26

AliReza26

Active Member
iman_ebru گفت:
با عرض سلام و خسته نباشيد خدمت تمام برنامه نويسان و دوستان
عرض كنم كه من يه سوال در مورد بلوك كردن داشتم كه اون هم اين بود كه چطور ميشه بعضي اطلاعات رو از سايتهاي ديگه بلوك كنيم.
البته با php مثلا آخرين ارسال ها به انجمن مجيد آنلاين رو تو يه صفحه نمايش بديم.
يا آخرين اخبار ايلنا يا آخرين ارسال هاي يه وبلاگ يا هر چيز ديگه
من قبلا يه بلوكي براي بي بي سي گرفتم.
از همه دوستان طمنا دارم هر بلوكي كه ميتونن آماده كنن يا سورسش رو دارن برام بدن.
مال مجيد انلاين مهمتره
:wink: با تشكر از همه - ايمان.
کلیک کنید تا باز شود...
چاره كار دكمه نارنجي رنگ پايين همين صفحه ميتوني بيابي

يعني همون xml
 
iman_ebru

iman_ebru

Active Member
ممنون عليرضا جان
من هيچ اطلاعاتي در مورد اين بلوك ندارم. و بلوك كردن ندارم ميشه مثلا تو آخرين ارسالها به اين انجمن رو كدشو بگي؟
و ايلنا
 
AliReza26

AliReza26

Active Member
منظورت اينه
(با ASP.NET نوشتم)

کد: 
<%@ Import Namespace="System.XML" %>

<html>
   <head>
      
   </head>

   <body>

       <script language="VB" runat=server>

       Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim xml As New XmlTextReader("http://forum.majidonline.com/rdf.php")
        Dim title, url As String
        Dim logo As Integer
        logo = 0

        While xml.Read
            If xml.Name = "title" Or xml.Name = "link" Then

                If xml.Name = "title" Then
                    title = xml.ReadString
                    logo += 1
                ElseIf xml.Name = "link" Then
                    url = xml.ReadString
                    logo += 1
                    If logo > 2 Then
                        Response.Write("<div align=right dir=rtl><li><a href='" & url & "'><font color=black face=tahoma size=2>" & title & "</font></a></li></div>")
                    End If
                End If

            End If
        End While

       End Sub
       </script>


   </body>
</html>
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا