文章导航PC6首页软件下载单机游戏安卓资源苹果资源

pc软件新闻网络操作系统办公工具编程服务器软件评测

安卓新闻资讯应用教程刷机教程安卓游戏攻略tv资讯深度阅读综合安卓评测

苹果ios资讯苹果手机越狱备份教程美化教程ios软件教程mac教程

单机游戏角色扮演即时战略动作射击棋牌游戏体育竞技模拟经营其它游戏游戏工具

网游cf活动dnf活动lol周免英雄lol礼包

手游最新动态手游评测手游活动新游预告手游问答

您的位置:首页精文荟萃软件资讯 → 使用ASP推出你自己网站的频道

使用ASP推出你自己网站的频道

时间:2004/10/7 18:19:00来源:本站整理作者:蓝点我要评论(0)

想自己生成自己站点的频道文件吗,看看下面的代码把。 
这只是个例子而已,但我想你完全可以根据它来建立你自己的频道。 
以后只要用户下载该.cdf文件,用户就能够订阅你的站点的频道了。 
<% 
'打开数据库连接,并定义用于格式化的变量. 
Set DBConn = Server.CreateObject("ADODB.Connection") 
DBConn.Open "DSN=YourDSN" 

BR = Chr(10) 
Quote = Chr(34) 

'用来生成频道格式 
Body = "Body = Body & "Title = " & Quote & "你的公司名" & Quote & BR 
Body = Body & "LongName = " & Quote & "你的详细公司名" & Quote & BR 
Body = Body & "Abstract = " & Quote & "你的频道说明" & Quote & BR 
'在你网站上生成的频道文件(.cdf) 
Body = Body & "SELF = " & Quote & "http://yoururl/pointcast.cdf" & Quote & BR 
Body = Body & "ContentID = " & Quote & "0" & Quote & BR 
Body = Body & "Ratings = " & Quote & "'(PICS-1.1 
&quot;http://www.rsac.org/ratingsv01.html&quot; l gen true comment &quot;RSACi North America 
Server&quot; by &quot;santry@pin-santry.com&quot; for &quot;http://yoururl.com&quot; on 
&quot;1997.09.18T17:57-0800&quot; r (n 0 s 0 v 0 l 0))'" & Quote & BR 
Body = Body & "Frequency = " & Quote & "24" & Quote & BR 
Body = Body & "Authenticate = " & Quote & "No" & Quote & BR 
Body = Body & ">" & BR & BR 

SQLQ = "SELECT * FROM YourDB WHERE ENTERDATE = #" & Date() & "#" 
'这将把今天的新东西都推出去 
Set MakeChannel = DBConn.Execute(SQLQ) 
Do Until MakeChannel.Eof 
Body = Body & "Body = Body & "Title = " & Quote & MakeChannel("Headline") & Quote & BR 
'在本例子中使用数据库,下面的代码指向数据库入口。也就是你今天想要显示的文章。 
Body = Body & "HREF = " & Quote & "http://yoururl/pointcast-news.asp?Article=" & 
MakeChannel("FileName") & Quote & BR 
Body = Body & "Type = " & Quote & "HTML" & Quote & BR 
Body = Body & "Show = " & Quote & "Channel" & Quote & BR 
Body = Body & "Precache = " & Quote & "Yes" & Quote & BR 
Body = Body & "Authenticate = " & Quote & "No" & Quote & BR 
Body = Body & ">" & BR 
Body = Body & "" & BR & BR 
MakeChannel.MoveNext 
Loop 
Body = Body & "" 
Set fs = CreateObject("Scripting.FileSystemObject") 

'生成第一个文件,每次更新时覆盖上一个文件。 
Set a = fs.CreateTextFile("d:\yourlocaldrive\pointcast.cdf", True) 
a.WriteLine(Body) 
a.Close 
%> 

相关阅读 Mac访问Windows共享文件夹Windows 7正版系统验证方法windows 8.1系统版本号查看方法Windows 8.1系统电话激活时无法输入微软返回代码解决方法Windows 8如何调整屏幕分辨率windows8.1磁盘占用100%解决方法Mac双系统如何删除Boot Camp安装的Windows分区Apple教你如何在Mac 上运行 Windows

文章评论
发表评论

热门文章 360随身Wifi 4G版什么怎样提高origin下载速百度收购PPS已敲定!3

最新文章 伊森卡特的消失通关流千牛怎么设置自动回复 增加新功能,S版Moto G喜获Android 4.4.4更鸡肋?谷歌Play Music发布更新版本千牛怎么设置自动回复​千牛云盘怎么用

人气排行 xp系统停止服务怎么办?xp系统升级win7系统方office2013安装教程图解:手把手教你安装与同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载VeryCD镜像网站逐个数,电驴资料库全集利用PHP程序设定防止MySQL注入或HTML表单滥web服务器和应用服务器的区别安卓android 系统支持什么视频格式