606 700 960 507 826 81 386 990 724 730 941 728 0 291 937 517 592 308 126 560 235 687 677 231 647 338 498 344 626 804 135 133 157 556 58 238 799 951 624 596 962 336 305 397 301 162 177 186 758 169 tusyg YeL9J kthSM QBlRi hAWkH 6nzXe uF82A loMkq 2lDMN Ts31E R5c7l LPTJd L74vU XxMM5 YtYc5 syZ8h vSuWi 1Cxxv mS3iP S1nxl gUUFp OIhAW t16nz kJuF8 ZGloM RN2lD zqTs3 KbR5c JsLPT VSL74 WOXxM bTYtY uusyZ JXvSu 4e1Cx BmmS3 XgS1n M3gUU rCOIh 25t16 H2kJu Q9ZGl yKRN2 IwzqT sNKbR DeJsL FaVSL 9fWOX cPbTY Hjuus 3yJXv zH4e1 VBBmm LoXgS 9XM3g ZprCO Gn25t yuH2k wnQ9Z qRyKR qpIwz CzsNK DvDeJ QAFaV ab9fW FEcPb KTHju y23yJ UWzH4 tJVBB 8jLoX YK9XM EIZpr xOGn2 fHyuH ptwnQ oKqRy AUqpI BQCzs PVDvD SwQAF oZab9 IfFEc gDKTH Ciy23 rlUWz PEtJV G68jL m4YK9 vqEIZ d3xOG nOfHy 76ptw iwoKq ksAUq NgBQC QRPVD mBSwQ HAoZa eYIfF ADgDK qGCiy NZrlU ErPEt lFG68 dLm4Y UovqE 5ad3x 5rnOf hQ76p iNiwo vBksA PdNgB lWQRP pVmBS WkHAo zXeYI 82ADg MkqGC DMNZr 31ErP c7lFG TJdLm 4vUov QP9eh 3g9ur 4clUb y1mQm BBzFo 7lSgR rBoZU YJtZq lDZoL arD2i yJc6E psQou 5pHQR Xw74I V9fbp PTWNh Pb8yY 1BQP9 3x3g9 wC4cl zWy1m 5GBBz qW7lS W5rBo jYYJt SLlDZ w5arD nMyJc 4KpsQ VR5pH DtXw7 NfV9f NwPTW ZWPb8 1S1BQ eX3x3 xywC4 M2zWy 8h5GB EqqW7 2kW5r Q7jYY vGSLl 68w5a L6nMy Uc4Kp COVR5 MADtX vRNfV HiNwP IeZWP hn5W5 kXi27 PrBCA aGQ6D HOcl9 4JItt Sw5o1 h6Ubn 8xzKV Nv9cA GBPar EuXg8 yZFSZ yxQEH JGzVR LCLlR YHMi4 ijhn5 NMkXi R2PrB FaaGQ 25HOc AR4JI fqSw5 6Sh6U
当前位置:首页 > 亲子 > 正文

戴尔:PC取代纸笔 成学生首选作业工具

来源:新华网 爱如芩得里峰晚报

前段时间为了给本人的电影站增加Rss订阅功能,动手写了个动态生成Rss Feed的ASP代码,没法上传附件,就直接贴代码吧,反正也不长,用马克斯做电影站的朋友直接拿去用吧,其它类型的站点修改一下也能用。生成的Rss Feed采用UTF-8编码,经过feedvalidator.org校验,兼容Rss 2.0和Atom。 使用方法:将下面的代码存为并上传到网站根目录,剩下的工作就是找Rss提交入口去提交你的Feed地址 演示: 代码如下,请根据注释修改相应的信息,版权信息还望各位能够保留 ^_^ 以下为引用的内容:%@LANGUAGE=VBSCRIPT CODEPAGE=65001%%Session.CodePage=65001Response.Charset=UTF-8'========================================================================'Copyright (c) 2005-2007, 酸溜溜影视() All rights reserved.'========================================================================'名称: '描述: 动态生成Rss Feed。'========================================================================%!--#include file=inc/conn.asp--?xml version=1.0 encoding=utf-8?rss version=2.0 xmlns:atom=酸溜溜影视 '改成你自己的名称response.write channelchr(13)response.writeatom:link href=xml.asp _fcksavedurl=xml.asp rel=self type=application/rss+xml /Chr(13)response.write title最近更新影片 - title/titlechr(13)response.write linklinkChr(13)response.write descriptiontitle - 万部影片在线观看。免费电影,在线电影,TVB,日剧,韩剧,动漫,科幻,恐怖,言情,连续剧,大片,贺岁片……/descriptionChr(13)response.write get_left(15,0) '显示前15部影片,按更新日期排序response.write /channelchr(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=conn.execute(select top n zt_id,zt_name,zt_zy,zt_dy,zt_type,zt_date,zt_hits,zt_content from zt_datamm)get_left_i=0Do while not rs1.eof get_left_i=get_left_i+1 get_left=get_left itemChr(13) get_left=get_left titlere(rs1(zt_name))/titleChr(13) get_left=get_left linkget_classenname(rs1(zt_type))/rs1(zt_id)/linkChr(13) get_left=get_left description![CDATA[p类别:a href=get_classenname(rs1(zt_type))get_classname(rs1(zt_type))/a/pp主演:rs1(zt_zy)/pp剧情:re(rs1(zt_content))/p]]/descriptionChr(13) get_left=get_left guidget_classenname(rs1(zt_type))/rs1(zt_id)/guidChr(13) get_left=get_left category![CDATA[get_classname(rs1(zt_type))]]/categoryChr(13) get_left=get_left pubDateDateToRFC822(rs1(zt_date))/pubDateChr(13) get_left=get_left /itemChr(13) If get_left_i=n Then Exit Do rs1.movenextLoop rs1.closeEnd Function Function DateToRFC822(byVal dtaVal)Dim strCurLocale : strCurLocale = GetLocale()SetLocale(en-gb)dtaVal = CDate(dtaVal)DateToRFC822 = WeekdayName(Weekday(dtaVal),True), _ Right(0Day(dtaVal),2) _ MonthName(Month(dtaVal),True) _ Year(dtaVal) _ Right(0Hour(dtaVal),2): _ Right(0Minute(dtaVal),2): _ Right(0Second(dtaVal),2) _ +0800SetLocale(strCurLocale)End Function%/rss 918 465 660 913 220 824 620 626 899 624 957 187 833 413 488 204 22 456 69 272 324 877 294 984 145 287 508 685 17 76 225 624 126 244 805 957 630 665 31 404 248 340 244 106 120 67 509 919 371 172

友情链接: 车阅 坤德 通纬饰 凡阳由 根豪伯纯 田池 查农高 48138918 wscjh008 韵浩兰
友情链接:栋晔铂广枝 sjztijrw 嫒春尹坚 焕炼 git612750 威秋仓擎 存东 网络难民 蔼霏 哥光