<%@ CODEPAGE=65001 %> <% '緗戠珯鍩烘湰淇℃伅 set rs=server.createobject("adodb.recordset") sql="select jhy_fd_site_name,jhy_fd_site_domain from juhaoyong_tb_siteconfig" rs.open(sql),cn,1,1 if not rs.eof and not rs.bof then jhy_fd_site_name=rs("jhy_fd_site_name") jhy_fd_site_domain=rs("jhy_fd_site_domain") end if rs.close %> <% sql="SELECT top 50 a.jhy_fd_leveltwo_id, a.title, a.description, a.html_file_name, a.edit_time, a.ArticleType, b.folder, b.name, c.folder, c.name" sql=sql&" FROM (juhaoyong_tb_content AS a" sql=sql&" LEFT JOIN juhaoyong_tb_directory AS b ON format$(b.id)=a.jhy_fd_levelone_id)" sql=sql&" LEFT JOIN juhaoyong_tb_directory AS c ON format$(c.id)=a.jhy_fd_leveltwo_id" sql=sql&" ORDER BY a.edit_time DESC,a.id DESC" rs.open sql,cn,1,1 response.contenttype="text/xml" XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"../" & vbcrlf XMLContent=XMLContent&"zh-cn" & vbcrlf XMLContent=XMLContent&"RSS Feed By "&jhy_fd_site_domain&"" & vbcrlf do while not rs.eof rs_url="" if rs("jhy_fd_leveltwo_id")<>"" then rs_url="../"&rs("b.folder")&"/"&rs("c.folder")&"/"&rs("html_file_name") else rs_url="../"&rs("b.folder")&"/"&rs("html_file_name") end if rs_categoryName="" if rs("jhy_fd_leveltwo_id")<>"" then rs_categoryName=rs("b.name")&" >> "&rs("c.name") else rs_categoryName=rs("b.name") end if XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&""&rs_url&""& vbcrlf XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&""&GetFormatTime(rs("edit_time"))&"" & vbcrlf XMLContent=XMLContent&""&jhy_fd_site_name&""& vbcrlf XMLContent=XMLContent&""&rs_categoryName&""& vbcrlf XMLContent=XMLContent&"" & vbcrlf rs.movenext loop XMLContent=XMLContent&"" & vbcrlf XMLContent=XMLContent&"" & vbcrlf rs.close set rs=nothing cn.close set cn=nothing %> <% call Generation_File("Feed.xml",XMLContent) '鍦▁ml鐩綍涓嬬敓鎴愮紪鐮佷負utf-8鐨刦eed.xml鏂囦歡 response.write XMLContent %> <% '****************************************** '鍔熻兘錛氳鍙栨ā鏉匡紝鐢熸垚UTF-8鏂囦歡 '鍙傛暟錛欶ile_name 鏂囦歡鍚? '鍙傛暟錛歠ilePath 鐢熸垚鏂囦歡鎵�鍦ㄧ浉瀵圭洰褰? '鍙傛暟錛歝ontent 鍐欏叆鍐呭 '****************************************** Sub Generation_File(File_name,content) dim map_path Set objStream = Server.CreateObject("ADODB.Stream") With objStream .Open .Charset = "utf-8" .Position = objStream.Size .WriteText=XMLContent .SaveToFile server.mappath(File_name),2 .Close End With Set objStream = Nothing End Sub '================================================= '浣滅敤錛氭爣鍑嗘牸寮忓寲鈥滄椂闂粹�濇牸寮? '鍙傛暟錛歴trtime '================================================= Function GetFormatTime(strtime) if trim(strtime&"")="" then GetFormatTime="" Exit Function end if GetFormatTime="" GetFormatTime=GetFormatTime&year(strtime)&"-" GetFormatTime=GetFormatTime&right("0"&Month(strtime),2)&"-" GetFormatTime=GetFormatTime&right("0"&day(strtime),2)&" " GetFormatTime=GetFormatTime&right("0"&hour(strtime),2)&":" GetFormatTime=GetFormatTime&right("0"&minute(strtime),2)&":" GetFormatTime=GetFormatTime&right("0"&second(strtime),2) 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 %> 主站蜘蛛池模板： 精品午夜一区二区 | gay男同帅哥网站在线观看 | 国产午夜无码片在线观看 | 亚洲成A人片77777KKKK | 亚洲精品一卡二卡三卡四卡2021 | 99久热这里只有精品视频免费观看 | 女人找男人皮日日视频 | 亚洲综合无码精品一区二区三区 | 一本伊大人香蕉久久网手机 | 成人一区二区三区四区 | 欧美日韩第一 | 张雨绮被揉到高潮下不了床 | 香蕉久久精品 | 顶级欧美熟妇XX | 亚洲日韩中文字幕在线播放 | 小12萝裸体视频国产 | 老头玩小嫩奶陈晴晴老刘 | 精品一区二区三区四区视频 | 啊灬啊灬啊灬快灬深一区二区 | WWW片香蕉内射在袋88AV8 | 国产欧美精品一区二区三区小说 | 久久夜色精品国产嚕嚕亚洲av | 日韩久久无码免费毛片软件 | 在线观看免费视频资源 | 国产日韩精品视频一区 | 91青青视频 | 亚洲国产精品一区二区久久hs | 亚洲成年女人av毛片性性教育 | 香蕉成人影院 | 日本在线免费视频 | 韩国精品一区 | 在线视频观看成人 | 亚洲国产精品女人久久久 | 日本免费AⅤ欧美在线观看 亚洲av人人夜夜澡人人 | 无码亚洲成A∧人片在线播放 | mimiai最新网站入口 | 精品视频99 | 日本a不卡 | a樱花福利影院 | 亚洲精华国产精华 | 黄色一级毛片网站 |