锘?!--#include file="../lib/base.asp"--> <% ''' SDCMS Rss ''' ================================================================== ''' 鐗堟潈鎵€鏈?http://www.sdcms.cn ''' ------------------------------------------------------------------ ''' 榪欎笉鏄竴涓嚜鐢辮蔣浠訛紒鎮ㄥ彧鑳藉湪涓嶇敤浜庡晢涓氱洰鐨勭殑鍓嶆彁涓嬪紼嬪簭浠ｇ爜榪涜淇敼鍜屼嬌鐢紱 ''' 鏈粡鎺堟潈涓嶅厑璁稿紼嬪簭浠ｇ爜浠ヤ換浣曞艦寮忎換浣曠洰鐨勭殑鍐嶅彂甯冦€? ''' ================================================================== ''' 緙栧啓: IT騫蟲皯 ''' 淇敼錛欼T騫蟲皯 in 2014.07 dim id:id=sdcms.getint(sdcms.fget("id",0),0) if id=0 then sdcms.show theme_rss,"" else dim rss_01,rss_02,rss_03 rss_01=""&vbcrlf rss_01=rss_01&""&vbcrlf rss_01=rss_01&""&vbcrlf rss_01=rss_01&""&vbcrlf rss_01=rss_01&"{classurl}"&vbcrlf rss_01=rss_01&""&vbcrlf rss_01=rss_01&"zh-cn"&vbcrlf rss_01=rss_01&"Rss Generator By "&sdcms_version&""&vbcrlf rss_02=""&vbcrlf rss_02=rss_02&" "&vbcrlf rss_02=rss_02&" {link}"&vbcrlf rss_02=rss_02&" "&vbcrlf rss_02=rss_02&" "&vbcrlf rss_02=rss_02&" "&vbcrlf rss_02=rss_02&""&vbcrlf rss_03=""&vbcrlf rss_03=rss_03&"" dim t1:t1=sdcms.getclassdb(id) if not isarray(t1) then else dim classname:classname=t1(1) dim classurl:classurl=sdcms.get_cateurl(id,t1(2),t1(10),t1(9)) dim classdesc:classdesc=t1(18) dim sonid:sonid=t1(5) dim str rss_01=replace(rss_01,"{classname}",classname) rss_01=replace(rss_01,"{classurl}",weburl&classurl) if sdcms.strlen(classdesc)>0 then rss_01=replace(rss_01,"{classdesc}",classdesc) else rss_01=replace(rss_01,"{classdesc}","") end if str=rss_01 dim data,content data=sdcms.db.dbload(20,"id,isurl,url,catedir,title,createdate,catename,intro,classid","sd_content left join sd_category on sd_content.classid=sd_category.cateid","sd_content.islock=1 and classid in("&sonid&")","ontop desc,id desc") if ubound(data)>=0 then dim i,s for i=0 to ubound(data,2) s=rss_02 s=replace(s,"{title}",data(4,i)) if data(1,i)=0 then s=replace(s,"{link}",weburl&sdcms.geturl(data(0,i),data(8,i),data(1,i),data(2,i))) else s=replace(s,"{link}",data(2,i)) end if s=replace(s,"{date}",data(5,i)) s=replace(s,"{catename}",data(6,i)) content=data(7,i) if sdcms.strlen(content)>0 then content=sdcms.dehtml(content) s=replace(s,"{desc}",content) else s=replace(s,"{desc}","") end if str=str&s next end if str=str&rss_03 sdcms.echo str end if end if %> 主站蜘蛛池模板： 国产欧美精品一区二区三区-老狼 | 四虎国产成人 | 日本真人边吃奶边做爽动态图 | 人妻少妇乱子伦无码专区 | 亚洲欧美成人一区二区在线 | 日本老熟妇乱子伦视频 | 久久婷婷五月综合色奶水99啪 | 夜夜夜高潮夜夜爽夜夜爰爰 | 国产日韩欧美中文 | 亚洲国产精品无码第一区二区三区 | 综合精品欧美日韩国产在线 | 国产精品久久久久蜜臀 | 欧洲成人一区二区三区 | 人与牲口性恔配视频免费L 一本色综合久久 | 天天爽夜夜爽成人爽 | 日本无卡码高清免费v | 中文字幕久久久久人妻中出 | 欧美日韩一区中文字幕 | 亚洲AV成人无码无在线观看 | 日本三级无码中文字幕DVD | japanesehdfree人妻无码 | 国产尺码和欧洲尺码表2023 | 麻豆精品久久久久久久99蜜桃 | 激情国产在线 | 老熟女乱之仑视频 | 白嫩无码人妻丰满熟妇啪啪区 | 亚洲精品乱码久久久久久日本 | 日本午夜影视 | 91久久综合 | 亚洲精品无码久久久久久 | 爽到高潮无码视频在线观看 | 亚洲高清国产拍精品动图 | 久久久久久久麻豆 | 内射囯产旡码丰满少妇 | 久久AV无码精品人妻糸列 | 太大太粗太爽免费视频 | 女人高潮被爽到呻吟在线观看 | 特黄特色大片免费播放 | 10000拍拍18勿入免费看动漫 | 欧美va免费高清在线观看 | 五月丁香综合激情六月久久 |