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

为马克斯电影站写了个生成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%思路分享