梅州信息港
军事
当前位置:首页 > 军事

为马克斯电影站写了个生成RssFeed的

发布时间:2019-05-22 05:49:31 编辑:笔名

为马克斯电影站写了个生成Rss Feed的程序(原创代码)

以下为引用的内容: %@LANGUAGE= VBSCRIPT CODEPAGE= 65001 % %dePage=arset= UTF-8 '========================================================================'Copyright (c) , 酸溜溜影视() All rights reserved.'========================================================================'名称: p'描述: 动态生成Rss Feed。'========================================================================% !--#include file=inc/p-- ?xml version= 1.0 encoding= utf-8 ? rss version= 2.0 xmlns:atom= %title= 酸溜溜影视 '改成你自己的名称ite channel chr(13)ite atom:link href= http:// maxz_2 /p _fcksavedurl= http:// maxz_2 /p rel= self type= application/rss+xml / Chr(13)ite title 近更新影片 - title /title chr(13)ite link http:// maxz_2 /link Chr(13)ite description title - 万部影片观看。免费电影,电影,TVB,日剧,韩剧,动漫,科幻,恐怖,言情,连续剧,大片,贺岁片 /description Chr(13)ite get_left(15,0) '显示前15部影片,按更新日期排序ite /channel chr(13)

Function re(str)If Not IsNull(str) then re=Replace(str, , amp; ) re=Replace(re, , ) re=Replace(re, , ) re=Replace(re, ' , apos; ) re=Replace(re, , quot; )End ifEnd Function

Function get_left(n,m)n=CInt(n):m=CInt(m)If m=1 Then mm= order by zt_hits desc '按点击量排序Else mm= order by zt_date desc '按更新日期排序End If set rs1=ecute( select top n zt_id,zt_name,zt_zy,zt_dy,zt_type,zt_date,zt_hits,zt_content from zt_data mm)get_left_i=0Do while not f get_left_i=get_left_i+1 get_left=get_left item Chr(13) get_left=get_left title re(rs1( zt_name )) /title Chr(13) get_left=get_left link http:// maxz_2 / get_classenname(rs1( zt_type )) / rs1( zt_id ) /link Chr(13) get_left=get_left description ![CDATA[ p 类别: a href= http:// maxz_2 / get_classenname(rs1( zt_type )) get_classname(rs1( zt_type )) /a /p p 主演: rs1( zt_zy ) /p p 剧情: re(rs1( zt_content )) /p ]] /description Chr(13) get_left=get_left guid http:// maxz_2 / get_classenname(rs1( zt_type )) / rs1( zt_id ) /guid Chr(13) get_left=get_left category ![CDATA[ get_classname(rs1( zt_type )) ]] /category Chr(13) get_left=get_left pubDate DateToRFC822(rs1( zt_date )) /pubDate Chr(13) get_left=get_left /item Chr(13) If get_left_i =n Then Exit Do venextLoop oseEnd Function

Function DateToRFC822(byVal dtaVal)Dim strCurLocale : strCurLocale = GetLocale()SetLocale( en-gb )dtaVal = CDate(dtaVal)DateToRFC822 = WeekdayName(Weekday(dtaVal),True) , _ Right( 0 Day(dtaVal),2) _ MonthName(Month(dtaVal),True) _ Year(dtaVal) _ Right( 0 Hour(dtaVal),2) : _ Right( 0 Minute(dtaVal),2) : _ Right( 0 Second(dtaVal),2) _ +0800 SetLocale(strCurLocale)End Function% /rss

卜式使皇帝想让他试着来治理国家
RPG游戏《口袋勇者们》官方网站公然
《部落冲突》凑50%思路分享
友情链接
小儿感冒鼻塞怎么办 小儿咳嗽药 宝宝高烧怎么办 孩子咳嗽发烧 宝宝一到晚上就咳嗽 小儿流鼻血是怎么回事 小儿发烧39度怎么办 如何品尝葡萄酒 内分泌失调性不孕 卵巢性不孕 白癜风怎么办 恐惧症分为哪些类型 南京癫痫病医院 防城港牛皮癣医院 南宁牛皮癣医院 连云港性病医院 漯河整形美容医院 周期性四肢运动障碍医院 南京体检科医院哪家好 渭南有哪些医院 扬州透析中心医院哪家好 黔东有哪些医院 宿迁中医感染内科医院哪家好 上海有哪些小儿骨科医院 杭州麻醉科医院哪家好 广东有哪些脑外科医院 宁波五官科医院哪家好 宁波儿童口腔科医院哪家好 温州皮肤性病医院哪家好 温州呼吸科医院哪家好 江苏有哪些骨外科医院 湖北有哪些司法鉴定科医院 绍兴消化内科医院哪家好 金华口腔科医院哪家好 四川有哪些泌尿外科医院 四川有哪些药物依赖科医院 舟山肾病内科医院哪家好 丽水骨肿瘤科医院哪家好 湖南有哪些皮肤科医院 武汉中医神经内科医院哪家好 十堰中医内分泌医院哪家好 鄂州中医心内科医院哪家好 山西有哪些小儿内科医院 荆门眼科医院哪家好 黄冈特诊科医院哪家好 广西有哪些心血管外科医院 广西有哪些牙周科医院 云南有哪些麻醉科医院 随州皮肤科医院哪家好 潜江肿瘤外科医院哪家好 潜江双相障碍科医院哪家好 广州有哪些小儿心外科医院 开封中医神经内科医院哪家好 鹤壁肾病内科医院哪家好 珠海有哪些精神科医院 佛山有哪些中医儿科医院 江门有哪些碎石中心医院 濮阳肿瘤内科医院哪家好 江门有哪些心理咨询科医院 濮阳心血管外科医院哪家好 湛江有哪些消化内科医院 濮阳牙体牙髓科医院哪家好 肇庆有哪些手外科医院 内江内分泌科医院哪家好 宝鸡心外科医院哪家好 宝鸡预防保健科医院哪家好 咸阳房缺医院哪家好 延安消化内科医院哪家好 榆林器官移植医院哪家好 安康种植科医院哪家好 南昌小儿骨科医院哪家好 萍乡中医心内科医院哪家好 新余民族医学科医院哪家好 宜春小儿消化科医院哪家好 抚州头颈外科医院哪家好 吉林中医乳腺外科医院哪家好 通化消化内科医院哪家好 柳州法四医院哪家好 梧州口腔科医院哪家好 钦州正畸科医院哪家好 百色妇科医院哪家好 河池肝炎医院哪家好 来宾骨关节科医院哪家好 保山小儿免疫科医院哪家好 普洱肝胆外科医院哪家好 西双版纳中西医结合科医院哪家好 金昌神经外科医院哪家好 陇南功能神经外科医院哪家好 遵义医学影像学医院哪家好 安顺肿瘤外科医院哪家好 安顺小儿泌尿科医院哪家好 日喀则中医消化科医院哪家好 固原肝炎医院哪家好 克拉玛依高压氧科医院哪家好 哈密儿童口腔科医院哪家好 昌吉正畸科医院哪家好 昌吉小儿眼科医院哪家好 博州放射科医院哪家好 阿克苏特色医疗科医院哪家好