北山驿站
北山驿站,总在无名处有一些感动
« WinXP的自带PPPoE拨号
开始背新的单词 »
修改L-blog使能够在feedburner上发布
2005-4-6 14:56:52
1,修改blogrss2.asp 第9行为,rss 标签必须增加版本号
<rss version="2.0" >
2,修改blogrss2.asp 第13行为,,标签不能用大写字母
<description><%=SiteName%></description>
3,修改blogrss2.asp 第27行为,使能够输出作者Email地址
SQL="SELECT TOP 10 L.log_ID, L.log_Title, L.log_Author, L.log_PostTime, L.log_Content, L.log_IsShow, L.log_DisSM, L.log_DisUBB, L.log_DisIMG, L.log_AutoURL, L.log_AutoKEY, C.cate_Name, M.mem_Email FROM blog_Content AS L, blog_Category AS C, blog_Member AS M WHERE (((L.log_IsShow)=True) And ((C.cate_ID)=L.log_cateID) And ((M.mem_Name)=l.log_Author)) ORDER BY L.log_PostTime DESC"
4,修改blogrss2.asp 第41行为,输出作者名字和Email
Response.Write("<author>"&RS("mem_Email")&"("&RS("log_Author")&")</author>")
5,修改blogrss2.asp 第43行为,使能够输出符合RFC822规范的日期格式
Response.Write("<pubDate>"&return_RFC822_Date(RS("log_PostTime"),8)&"</pubDate>")
6,修改include/library.asp 在文档后面加上RFC822_Date日期格式转换函数:
Function return_RFC822_Date(byVal myDate, byVal TimeZone) Dim myDay, myDays, myMonth, myYear Dim myHours, myMinutes, mySeconds myDate = CDate(myDate) myDay = EnWeekDayName(myDate) myDays = Right("00" & Day(myDate),2) myMonth = EnMonthName(myDate) myYear = Year(myDate) myHours = Right("00" & Hour(myDate),2) myMinutes = Right("00" & Minute(myDate),2) mySeconds = Right("00" & Second(myDate),2) return_RFC822_Date = myDay&", "& _ myDays&" "& _ myMonth&" "& _ myYear&" "& _ myHours&":"& _ myMinutes&":"& _ mySeconds&" "& _ " " & TimeZone End Function Function EnWeekDayName(InputDate) Dim Result Select Case WeekDay(InputDate,1) Case 1:Result="Sun" Case 2:Result="Mon" Case 3:Result="Tue" Case 4:Result="Wed" Case 5:Result="Thu" Case 6:Result="Fri" Case 7:Result="Sat" End Select EnWeekDayName = Result End Function Function EnMonthName(InputDate) Dim Result Select Case Month(InputDate) Case 1:Result="Jan" Case 2:Result="Feb" Case 3:Result="Mar" Case 4:Result="Apr" Case 5:Result="May" Case 6:Result="Jun" Case 7:Result="Jul" Case 8:Result="Aug" Case 9:Result="Sep" Case 10:Result="Oct" Case 11:Result="Nov" Case 12:Result="Dec" End Select EnMonthName = Result End Function
Tags:
blog
发布:北山 | 分类:学习笔记 | 评论:0 | 引用:0 | 浏览:
Search
导航
Index
Search
TagCloud
Admin
日历
最新评论及回复
最近发表
Powered By
Z-Blog 1.8 Spirit Build 80722
Copyright 2005-2006 Baksun Studio. Some Rights Reserved.
www.baksun.com