北山驿站

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行为,输出作者名字和EmailResponse.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