当前位置:编程学习 > html/css >>

修正KingCms的Rss日期格式错误

 

kingcms生成的Rss文件的日期格式是用now()函数生成的,不符合Rss的书写规范,可以用下面的函数把asp的日期格式转换为Rss支持的日期格式:

'时间转换函数,符合rfc822标准
Private 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

'星期转换函数
Private 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

'月份转换函数
Private 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

MsgBox return_RFC822_Date(Now(), "GMT")

 

摘自:醉卧红尘 空间

补充:web前端 , HTML/CSS  ,
CopyRight © 2022 站长资源库 编程知识问答 zzzyk.com All Rights Reserved
部分文章来自网络,