ï»?%@ CODEPAGE=65001 %> <% ''æ—‰™—´è½¬æ¢å‡½æ•° 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 %> <% ''获å–当å‰åŸŸå,å…¶ä¸rss.aspä¸ÞZ½ 的文件å sql="select top 50 * from [article] where view_yes=1 order by [time] desc" ''æ ÒŽ(gu¨©)®è‡ªå·±å®žé™…修改 set rs=server.createobject("adodb.recordset") rs.open sql,cn,1,1 response.contenttype="text/xml" XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"
" & vbcrlf XMLContent=XMLContent&"
" & vbcrlf XMLContent=XMLContent&"
"& web_name & " 的最新动�/title>" & vbcrlf XMLContent=XMLContent&"<link>" & web_url & "</link>" & vbcrlf XMLContent=XMLContent&"<language>zh-cn</language>" & vbcrlf XMLContent=XMLContent&"<copyright>RSS Feed By www.huigusoft.com</copyright>" & vbcrlf while not rs.eof set rsc=server.createobject("adodb.recordset") sqlc="select [name] from [category] where id="&rs("cid") rsc.open sqlc,cn,1,1 if not rsc.eof then CategoryName=rsc("name") end if rsc.close set rsc=nothing select case rs("ArticleType") case 1 Content_FolderName=Article_FolderName case 2 Content_FolderName=Product_FolderName Case 3 Content_FolderName=Case_FolderName end select XMLContent=XMLContent&"<item>" & vbcrlf XMLContent=XMLContent&"<title><![CDATA[" & rs("title") & "]]>
" & vbcrlf XMLContent=XMLContent&"
"&web_url&"/"&Content_FolderName&"/"& rs("file_path") &"" & vbcrlf XMLContent=XMLContent&"
" & vbcrlf XMLContent=XMLContent&"
" & return_RFC822_Date(rs("time"),"08:00") & "
" & vbcrlf XMLContent=XMLContent&"
"&web_name&"
" & vbcrlf XMLContent=XMLContent&"
"&CategoryName&"
" & vbcrlf XMLContent=XMLContent&"" & vbcrlf rs.movenext wend XMLContent=XMLContent&"
" & vbcrlf XMLContent=XMLContent&"
" & vbcrlf rs.close set rs=nothing ''å…³é—æ•°æ®åº? cn.close set cn=nothing %> <% 'è¯Õd–æ¨¡æ¿ '****************************************** '功能åQšç”ŸæˆUTF-8æ–‡äšg 'å‚æ•°åQšFile_name æ–‡äšgå? 'å‚æ•°åQšFile_path 生æˆæ–‡äšg所在相对目å½? 'å‚æ•°åQšcontent 写入内容 '****************************************** sub Generation_File(File_name,File_path,content) mappath = "/"&File_path&"/"&File_name Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=XMLContent .SaveToFile server.mappath(mappath),2 .Close End With Set objStream = Nothing end sub call Generation_File("Feed.xml","rss",XMLContent) '在xml目录下生æˆç¼–ç äØ“utf-8çš„Feex.xmlæ–‡äšg response.write XMLContent %>