ASP 基础教程
在自己的 PC 上运行 ASP
ASP 基本语法规则
ASP 变量
ASP 子程序
ASP 表单和用户输入
ASP Cookies
ASP Session 对象
ASP Application 对象
ASP 引用文件
ASP Global.asa 文件
ASP 使用 CDOSYS 发送电子邮件
ASP 对象
ASP Response 对象
ASP Cookies 集合
ASP Buffer 属性
ASP CacheControl 属性
ASP Charset 属性
ASP ContentType 属性
ASP Expires 属性
ASP ExpiresAbsolute 属性
ASP IsClientConnected 属性
ASP PICS 属性
ASP Status 属性
ASP AddHeader 方法
ASP AppendToLog 方法
ASP BinaryWrite 方法
ASP Clear 方法
ASP End 方法
ASP Flush 方法
ASP Redirect 方法
ASP Write 方法
ASP Request 对象
ASP Cookies 集合
ASP Form 集合
ASP QueryString 集合
ASP ServerVariables 集合
ASP 教程
ASP TotalBytes 属性
ASP BinaryRead 方法
ASP Application 对象
ASP Contents 集合
ASP StaticObjects 集合
ASP Contents.RemoveAll 方法
ASP Lock 和 Unlock 方法
ASP Application OnStart 和 Application OnEnd 事件
ASP Session 对象
ASP Contents 集合
ASP StaticObjects 集合
ASP CodePage 属性
ASP LCID 属性
ASP SessionID 属性
ASP Timeout 属性
ASP Abandon 方法
ASP Contents.Remove 方法
ASP Contents.RemoveAll 方法
ASP Session OnStart 和 Session OnEnd 事件
ASP ScriptTimeout 属性
ASP CreateObject 方法
ASP Execute 方法
ASP Server 对象
ASP GetLastError() 方法 (ASP 3.0)
ASP HTMLEncode 方法
ASP MapPath 方法
ASP Transfer 方法
ASP URLEncode 方法
ASP ASPError 对象
ASP ASPError 对象的属性
ASP FileSystemObject 对象
ASP Drives 属性
ASP BuildPath 方法
ASP CopyFile 方法
ASP CopyFolder 方法
ASP CreateFolder 方法
ASP CreateTextFile 方法
ASP DeleteFile 方法
ASP DeleteFolder 方法
ASP DriveExists 方法
ASP FileExists 方法
ASP FolderExists 方法
ASP GetAbsolutePathName 方法
ASP GetBaseName 方法
ASP GetDrive 方法
ASP GetDriveName 方法
ASP GetExtensionName 方法
ASP GetFile 方法
ASP GetFileName 方法
ASP GetFolder 方法
ASP GetParentFolderName 方法
ASP GetSpecialFolder 方法
ASP GetTempName 方法
ASP MoveFile 方法
ASP MoveFolder 方法
ASP OpenTextFile 方法
ASP TextStream 对象
ASP AtEndOfLine 属性
ASP AtEndOfStream 属性
ASP Column 属性
ASP Line 属性
ASP Close 方法
ASP Read 方法
ASP ReadAll 方法
ASP ReadLine 方法
ASP Skip 方法
ASP SkipLine 方法
ASP Write 方法
ASP WriteLine 方法
ASP WriteBlankLines 方法
ASP Drive 对象
ASP AvailableSpace 属性
ASP DriveLetter 属性
ASP DriveType 属性
ASP FileSystem 属性
ASP FreeSpace 属性
ASP IsReady 属性
ASP Path 属性
ASP RootFolder 属性
ASP SerialNumber 属性
ASP ShareName 属性
ASP TotalSize 属性
ASP VolumeName 属性
ASP File 对象
ASP Attributes 属性
ASP DateCreated 属性
ASP DateLastAccessed 属性
ASP DateLastModified 属性
ASP Drive 属性
ASP Name 属性
ASP ParentFolder 属性
ASP Path 属性
ASP ShortName 属性
ASP ShortPath 属性
ASP Size 属性
ASP Type 属性
ASP Copy 方法
ASP Delete 方法
ASP Move 方法
ASP OpenAsTextStream 方法
ASP Folder 对象
ASP Files 集合
ASP SubFolders 集合
ASP Attributes 属性
ASP DateCreated 属性
ASP DateLastAccessed 属性
ASP DateLastModified 属性
ASP Drive 属性
ASP IsRootFolder 属性
ASP Name 属性
ASP ParentFolder 属性
ASP Path 属性
ASP ShortName 属性
ASP ShortPath 属性
ASP Size 属性
ASP Type 属性
ASP Copy 方法
ASP Delete 方法
ASP Move 方法
ASP CreateTextFile 方法
ASP Dictionary 对象
ASP CompareMode 属性
ASP Count 属性
ASP Item 属性
ASP Key 属性
ASP Add 方法
ASP Exists 方法
ASP Items 方法
ASP Keys 方法
ASP Remove 方法
ASP RemoveAll 方法
ASP ADO
ASP 组件
ASP AdRotator 组件
ASP Browser Capabilities 组件
ASP Content Linking 组件
ASP Content Rotator 组件 (ASP 3.0)
ASP 与 AJAX
AJAX 简介
ASP - AJAX 与 ASP
AJAX 数据库实例
ASP 实例
ASP 实例
ASP 快速参考
©
本文檔使用 php中文網手册 發布
文字
ASP Content Rotator 组件 (ASP 3.0)
ASP Content Rotator 组件创建一个 ContentRotator 对象，每当访客进入网站或刷新页面时，该对象就会显示一段不同的内容字符串。
有关内容字符串的信息是包含在一个名为内容目录文件（Content Schedule File）的文本文件中。
内容字符串可包含 HTML 标签，这样您就可以显示 HTML 可呈现的任何类型的内容：文本、图像、颜色或者超链接。
语法
<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>
ASP Content Rotator 实例
每当访客浏览网页时，下面的实例就会显示不同的内容。
首先，创建一个名为 "textads.txt" 的文本文件，并把它放置在名为 "text" 的子文件夹中。
"textads.txt":
%% #3
<h2>This is a great day!!</h2>
%% #3
<img src="smiley.gif">
%% #4
<a href="http://www.shouce.ren">Visit shouce.ren</a>
请注意在每个内容字符串起始位置的 # 号码。这个号码是一个可选的参数，用来指示 HTML 内容字符串的相对权重。在上面的文本文件中，Content Rotator 有十分之三的几率显示第一个内容字符串，有十分之三的几率显示第二个内容字符串，有十分之四的几率显示第三个字符串。
然后，创建一个 ASP 文件，并插入下面的代码：
实例
<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>
ASP Content Rotator 组件的方法
| 方法 | 描述 | 实例 |
|---|---|---|
| ChooseContent | 获取并显示某个内容字符串。 | <% dim cr Set cr=Server.CreateObject("MSWC.ContentRotator") response.write(cr.ChooseContent("text/textads.txt")) %> 输出： |
| GetAllContent | 取回并显示文本文件中所有的内容字符串。 | <% dim cr Set cr=Server.CreateObject("MSWC.ContentRotator") response.write(cr.GetAllContent("text/textads.txt")) %> 输出： This is a great day!!
Visit shouce.ren |
