锘?%@ 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涓轟綘鐨勬枃浠跺悕 sql="select top 50 * from [article] where view_yes=1 order by [time] desc" ''鏍規嵁鑷繁瀹為檯淇敼 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&"九九九精品视频免费,偷拍自拍网,亚洲综合久久成人A片红豆" & 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 %> <% '璇誨彇妯℃澘 '****************************************** '鍔熻兘錛氱敓鎴怳TF-8鏂囦歡 '鍙傛暟錛欶ile_name 鏂囦歡鍚? '鍙傛暟錛欶ile_path 鐢熸垚鏂囦歡鎵鍦ㄧ浉瀵圭洰褰? '鍙傛暟錛歝ontent 鍐欏叆鍐呭 '****************************************** 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) '鍦▁ml鐩綍涓嬬敓鎴愮紪鐮佷負utf-8鐨凢eex.xml鏂囦歡 response.write XMLContent %> 主站蜘蛛池模板： 免费高清在线爱做视频 | 久久久国产精品四虎 | 国产真实女人一级毛片 | 欧美一级特黄aaaaaaa在线观看 | 俄罗斯小younv另类 | 欧美日韩加勒比一区二区三区 | 国产成人精品三级91在线影院 | 国产日韩欧美综合色视频在线 | 欧美综合亚洲图片综合区 | 国产九九热 | 香蕉资源网 | 亚洲精品男人天堂 | 亚洲黄色一级 | 日本一区二区免费高清视频 | 一级日本特黄毛片视频 | 午夜影院伦理片 | 欧美亚洲日本一区 | 一区二区三区视频在线播放 | 中文字幕 亚洲精品 第1页 | 亚洲综合视频 | 国产成人在线观看免费网站 | 亚洲免费网站在线观看 | 国产成人精品实拍在线 | 美女黄网站在线观看 | 成人啪精品视频免费网站 | 午夜影院污 | 免费中文字幕一级毛片 | 午夜羞羞视频在线观看 | 日韩国产免费一区二区三区 | 欧美日韩亚洲一区二区 | 日本不卡一区二区三区在线观看 | 精品国产高清不卡毛片 | 成年人一级片 | 亚洲视频精品在线观看 | 国产精品福利视频 | 在线不卡一区二区 | 亚洲精品色综合色在线观看 | 在线观看91精品国产性色 | 一本岛高清v不卡免费一三区 | 一级肉体毛片视频免费看看 | 精品欧美一区二区精品久久 |