?%@ 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.aspZ的文件名 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&"精品中文字幕男人的天堂,久久毛片无码av,国产在线观看无码专区视频,亚洲国产片精品一区二区三区,无套中出极品人妻视频,国产精品亚洲综合久久,中文字幕在线码一区,日本丰满少妇高清中文字幕" & 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 '参数QFile_name 文g? '参数QFile_path 生成文g所在相对目? '参数Qcontent 写入内容 '****************************************** 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 %> 久久无码热综合无码色综合,性爱国产精品福利在线,国产精品一aV一免费,国产欧洲精品亚洲午夜拍精品

<b id="5aqxb"></b>
<td id="5aqxb"><dl id="5aqxb"><big id="5aqxb"></big></dl></td>

      <b id="5aqxb"></b>
    1. <th id="5aqxb"><progress id="5aqxb"></progress></th>