ASP RSS задлагч, Feed Reader

Depositphotos 4651719 с

Энэ амралтын өдрүүдэд би вэбсайтад суурилсан RSS feed уншигчдыг хайж байхдаа зөөврийн компьютер дээрээ нэтэд холбогдсон байна. Үүний шалтгаан нь би агуулгыг автоматаар HTML имэйлээр хусах боломжтой тул тэжээлийг харуулах asp RSS уншигч бичихийг хүссэн юм. Блог эсвэл Хэвлэлийн нийтлэлдээ зориулж имэйлийн мэдээллийнхээ нэг хэсгийг хадгалахыг хүсч буй хүмүүсийн хувьд үүнийг хялбархан оруулах боломжтой. Үйлчлүүлэгч скриптийг ачаалж, гүйцэтгэх хүртэл JavaScript нь агуулгыг бодитоор харуулдаггүй тул олон тооны JavaScript RSS хөтөч ашиггүй байсан. Надад сервер талын RSS тэжээл уншигч хэрэгтэй байсан.

Би MSXML объектыг ашиглан ASP дээр өөрийн задлагч програмыг бичиж эхлэв. Би үүнийг хийснээр RSS тэжээлийн 75% -ийг задлан шинжилж чадсан боловч RSS тэжээл дээрх сул XML тодорхойлолтуудын зарим нь програмчлахад тун хэцүү байсан. Та үүнийг бодит байдал дээр харж болно энд. Та хамгийн их зүйл (ni), (nc) гэсэн үгнээс хасагдсан тэмдэгтийн тоо, URL хаягийг дамжуулж болно. Та бодит тэжээлийг дибаг хийх хувьсагчтай хамт харж болно энд.

Олон RSS тэжээлүүд үнэхээр "бохир" байдаг тул XML файл дахь текстийг string manipulation code (ugh!) -Аар задлан шинжлэхийг шаарддаг. Мэдээжийн хэрэг, бид RSS-ийн залуучууд хэвээр байгаа тул би гайхахгүй байна. RSS техникийн үзүүлэлтүүдийн талаар дэлгэрэнгүй уншина уу энд.

Эцэст нь бяцхан эрдэнийн чулуутай таарлаа. Би татаж авах үнэгүй ASP анги оллоо. Бага зэрэг удаашралтай байгаа ч унших боломжгүй тэжээл олж чадаагүй байна. Би энд статик хувилбар, энд динамик хувилбар байна.

Хосууд зохиол дээр тэмдэглэл хөтлөв. Би буцаж ирсэн тайлбар дээрх зарим HTML шошгыг арилгах хэрэгтэй байсан. Би олж мэдсэн бага зэрэг цэвэрлэх функцээр үүнийг хийлээ.

Чиг үүрэг RemoveHTML (strText) Dim nPos1 Dim nPos2 nPos1 = InStr (strText, ">") Do while nPos1> 0 nPos2 = InStr (nPos1 + 1, strText, ">") If nPos2> 0 If strText = Left (strText, nPos1) - 1) & Mid (strText, nPos2 + 1) Бусад гарах Do End Хэрэв nPos1 = InStr (strText, ">") Loop RemoveHTML = strText Төгсгөлийн функц

Би бас өөр нэг цэвэр код нэмж оруулав: Заримдаа би тодорхойлолтыг илүү их эсвэл бага хэмжээгээр харуулахыг хүсч магадгүй юм. Гэсэн хэдий ч, хэрэв би тэмдэгтүүдийн тоог хязгаарлах юм бол үгийн дунд тайлбарыг хасч магадгүй юм. Би үүнийг хийхийг хүсэхгүй байна!

Чиг үүрэг Cutoff (strText, intChars) dim intLength dim j intLength = len (strText) бол intChars> intLength дараа нь j = intChars-ийн хувьд 0 алхам -1 бол дунд (strText, j, 1) = "" бол дараа нь j> бол дараах байдлаар гарна. 0 дараа нь strText = left (strText, j-1) & "..." else strText = strText end if end if Cutoff = strText End Function

(Би энэ оруулганд кодоо зөв харуулахад зарим бэрхшээлтэй тулгарлаа ... эдгээр функцүүдийн аль нэгэнд асуудал тулгарвал надад мэдэгдээрэй!)

Сүлжээнд бас цөөн хэдэн хэрэгслийг анзаарсан. Байна
.NET хувилбар, олон PHP хувилбарууд, нэг тонн JavaScript хувилбарууд.

Дүгнэж хэлэхэд, RSS-ийн техникийн нөхцлийг үргэлжлүүлэн сайжруулж, бодит тэжээлүүд бүх тохиолдолд XML стандартад нийцэж байгаа гэж найдаж байна. TypePad, WordPress гэх мэт үнэгүй програмууд өөрсдийн RSS функцийг сайжруулах хэрэгтэй. MySpace, Xanga, LiveJournal гэх мэт нэмэлт блогууд өөрсдийн RSS функцийг сайжруулах хэрэгтэй. RSS хүчтэй ...Крис Багготт Email vs. RSS дээр нэг сайхан нийтлэл бичсэн. Тэдний ажиллагааг нэгтгэх нь хоёулангийнх нь нөлөөг нэмэгдүүлэх боломжтой гэж би бодож байна!

Чи юу гэж бодож байна?

Энэ сайт нь спамыг багасгахын тулд Akismet-ийг ашигладаг. Таны өгөгдлийг хэрхэн боловсруулдаг талаар суралц.