blogrolling برای وب سایت

[rezaei manesh]

سلام
من می خوام امکانی مثل blogrolling در سایتم بزارم
یعنی وقتی سایت هایی که لینکشون در سایت من هست update می شند به اول لیست انتقال پیدا کنند.
آیا همچین امکانی وجود داره یا نه؟
برای وب لاگ ها blogrolling استفاده می شه و...

[raravaice]

رضایی منش جان باید یه کاری کنی داداش
اول لینک هارو میریزی تویه بانک همینطور متنهای داخل صفحه ای که لینکشو ذخیره کردی بعد یه تایمر مینویسی و تنظیم میکنی که مثلا هر 1 ساعت یه با بره url های ذخیره شده داخل بانک رو متنهاشو بخونه و مقایسه کنه با متنی که شما از قبل از اون سایت داری اگر برابر نبود یعنی وبلاگ یا وب سایت تغییر کرده بعد میتونی بفرستیش به عنوان اولین لینک.
البته اگر تایمرت رو توی یه app جدا از app اصلیت بنویسی بهتره
موفق باشی

[rezaei manesh]

یعنی متن های داخل همه لینک ها رو باید ذخیره کنم و هر بار همه رو مقایسه کنم؟!!! این طوری که خیلی پیچیده می شه ؟ نمی شه مثلاً حجم رو چک کنم یا چیز دیگه ای رو ؟
یعنی نمی شه مثل blogrolling چند خط کد بزاریم و...
اگه تنها راش همینه! چطوری تو متنهای یه لینک رو ذخیره کنم ؟

[raravaice]

اینم فکر خوبیه که بیای بجای متن داخل صفحه از تعداد کاراکتر هاش استفاده کنی خوشم اومد ولی خوب 100% نیست دیگه شما 1 % احتمال بده شخص یه چیزی پاک کنه و یه چیز دیگه با همون حجم جایگزین کنه ؟ درسته

ولی به هر حال ای سورس تایمر که هر 1 دقیقه یه بار beep میزنه
[code]
imports system.web
imports system.timers
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim objTimer As New System.Timers.Timer
AddHandler objTimer.Elapsed, AddressOf myTimerEvent
' Set the Interval to 60 seconds.
objTimer.Interval = 60000
objTimer.Enabled = True
'Specify what you want to happen when the Elapsed event is raised.
End Sub
Private Sub myTimerEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)
Beep()
End Sub
[code/]

و این هم برای خوندن اطلاعات صفحه

[code]
Imports System.IO
Imports System.Net
Module read_Html_page
PublicFunction readHtmlPage(ByVal url AsString) AsString
Dim result AsString = ""
Dim strPost AsString = "x=1&y=2&z=YouPostedOk"
Dim myWriter As StreamWriter = Nothing
Dim objRequest As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
objRequest.Method = "POST"
objRequest.ContentLength = strPost.Length
objRequest.ContentType = "application/x-www-form-urlencoded"
Try
myWriter = New StreamWriter(objRequest.GetRequestStream)
myWriter.Write(strPost)
Catch e As Exception
Return e.Message
Finally
myWriter.Close()
EndTry
Dim objResponse As HttpWebResponse = CType(objRequest.GetResponse, HttpWebResponse)
' Using
Dim sr As StreamReader = New StreamReader(objResponse.GetResponseStream)
Try
result = sr.ReadToEnd
sr.Close()
Finally
CType(sr, IDisposable).Dispose()
EndTry
Return result
EndFunction
EndModule
[code/]

[rezaei manesh]

سلام
دستت درد نکنه
حجم محتویات یک url رو چطوری بدست بیارم؟
درسته من هم به این که امکان داره مطلبی پاک بشه و مطلبی با همان سایز جایگزین بشه فکر کردم اما کمتر پیش میاد و....
از rss نمی شه در این رابطه کمک گرفت؟

[raravaice]

از rss هم میشه ولی همه ندارن.

حجم محتویات رو از روی خاصیت lenght تابع دومی که string برمیگردونه بردار

موفق باشی