Latest web development tutorials

ASP Content Rotator

ASP componente Content Rotator

ASP componente contenido de los rotadores se crea un objeto ContentRotator cuando los usuarios entran en el sitio, o actualizar la página, el objeto se mostrará una cadena de contenido diferente.

Información sobre el contenido de la cadena está contenida en un archivo llamado directorio de contenido de archivo de texto (contenido Lista de archivos).

cadenas de contenido pueden contener etiquetas HTML, por lo que puede mostrar cualquier tipo de contenido que puede representar HTML: texto, imágenes, colores o hipervínculos.

gramática

<%
Set cr=Server.CreateObject("MSWC.ContentRotator")
%>


ejemplos contenido Rotator de ASP

Cada vez que un visitante navegar por la web, los siguientes ejemplos mostrarán diferentes contenidos.

En primer lugar, crear un archivo de texto denominado "textads.txt" y colocarlo en una subcarpeta denominada carpeta de "texto".

"Textads.txt":

%% #3
<h2>This is a great day!!</h2>

%% #3
<img src="smiley.gif">

%% #4
<a href="http://www.w3cschool.cc">Visit W3CSchool.cc</a>

Nota # número cada cadena de contenido posición inicial. Este número es un parámetro opcional que se utiliza para indicar el peso relativo del peso cadena de contenido HTML. En el archivo de texto anterior, los rotadores de contenido tiene la oportunidad de mostrar los primeros tres décimas de cadena de contenido, tiene la oportunidad de tres décimas de segundo para visualizar el contenido de una cadena de cuatro décimas tenga la oportunidad de mostrar una tercera cadena.

A continuación, cree un archivo ASP e inserte el código siguiente:

Ejemplos

<html>
<body>
<%
set cr=server.createobject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>
</body>
</html>

La demostración >>


El método de la ASP componente rotador contenido

方法 描述 实例
ChooseContent 获取并显示某个内容字符串。 <%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.ChooseContent("text/textads.txt"))
%>

输出:

smiley

GetAllContent 取回并显示文本文件中所有的内容字符串。 <%
dim cr
Set cr=Server.CreateObject("MSWC.ContentRotator")
response.write(cr.GetAllContent("text/textads.txt"))
%>

输出:

This is a great day!!

smiley

Visit W3CSchool.cc