El contenido de este artículo es el uso de los componentes del servidor ActiveX de ASP (componentes).
1. Componente de capacidades del navegador:
sabemos que diferentes navegadores pueden admitir diferentes funciones. Por ejemplo, algunos navegadores admiten marcos y otros no. Con este componente, puede verificar las capacidades del navegador para que su página web pueda mostrar diferentes páginas para diferentes navegadores (como mostrar páginas web sin Frame para navegadores que no admiten Frame). El uso de este componente es muy sencillo. Cabe señalar que para utilizar este componente correctamente, debe asegurarse de que el archivo Browscap.ini esté actualizado (de hecho, todos los navegadores y sus características se enumeran en este archivo). comprenda después de abrirlo usted mismo), de lo contrario, los resultados pueden ser muy diferentes. Por ejemplo, IE5.0 incluido en la segunda versión de Win98 se muestra como Netscape en el siguiente ejemplo. Este archivo generalmente se encuentra en "WinntSystem32InetSrv" en el servidor web. La última versión se puede descargar desde http://www.asptracker.com/ o http://www.cyscape.com/browscap .
Ejemplo: wuf22.asp
<html>
<CUERPO>
'Nota: El uso de componentes es similar al de los objetos, pero los componentes deben crearse antes de su uso y no es necesario crearlos antes de usar los objetos integrados.
<%Establecer BrowsCap=Server.CreateObject("MSWC.BrowserType")%>
Espere por favor......
<P>
<BORDE DE LA TABLA=1 PADDING DE CELDA=10>
<TR><TD>Tipo de navegador</TD><TD><%=BrowsCap.Browser%></TD></TR>
<TR><TD>Versión del navegador</TD><TD><%=BrowsCap.version%></TD></TR>
<TR><TD>Si se admiten tablas</TD><TD><%=BrowsCap.tables%></TD></TR>
<TR><TD>Si se admiten controles ActiveX</TD><TD><%=BrowsCap.activexcontrols%></TD></TR>
<TR><TD>Si se admiten JavaApplets</TD><TD><%=BrowsCap.javaapplets%></TD></TR>
<TR><TD>Si se admite JavaScript</TD><TD><%=BrowsCap.javascript%></TD></TR>
<TR><TD>Si se admiten cookies</TD><TD><%=BrowsCap.Cookies%></TD></TR>
<TR><TD>Si se admiten marcos</TD><TD><%=BrowsCap.Frames%></TD></TR>
<TR><TD>Sistema operativo</TD><TD><%=BrowsCap.Platform%></TD></TR>
<TR><TD>Si se admite VBScript</TD><TD><%=BrowsCap.vbscript%></TD></TR>
</TABLA>
<%Establecer BrowsCap = Nada%>
</CUERPO>
</HTML>
Nota: En este ejemplo también tocamos el método CreateObject del objeto Servidor. Server.CreateObject se utiliza para crear componentes ActiveX que se han registrado en el servidor (Nota: existen otros métodos para crear componentes). Pero no olvide utilizar "Establecer objeto = Nada" para liberar recursos a tiempo. Esto debería convertirse en un hábito.
2. Componente de acceso a archivos
El componente de acceso a archivos consta de un objeto FileSystemObject y un objeto TextStream. Con el objeto FileSystemObject, puede crear, recuperar y eliminar directorios y archivos, mientras que el objeto TextStream proporciona la función de leer y escribir archivos.
Ejemplo wuf23.asp. Énfasis: Sólo a través de la práctica se puede profundizar la comprensión. Practicar y comparar los resultados de la ejecución del programa es la mejor manera de dominar rápidamente las habilidades de programación.
<%@ Idioma=VBScript %>
<% Opción explícita
' Tenga en cuenta la ruta absoluta: C:Inetpubhomeaspwuf23.asp Ruta de la página de inicio: C:Inetpubhome
Dim Path, File, FSO, CTF, Str, StrHTML, StrNoHTML
'Utilice el método CreateObject para crear un objeto FileSystemObject FSO
Establecer FSO = Server.CreateObject("Scripting.FileSystemObject")
Path = Server.MapPath("test") 'Devuelve el directorio físico de la prueba (ruta absoluta)
'En lo que respecta a este ejemplo, la siguiente oración devuelve exactamente la misma ruta que la oración anterior.
'Ruta = Server.MapPath("asptest")
Response.Write Path & "<Br>"
Si FSO.FolderExists(Path) = false entonces 'Determina si la carpeta existe
FSO.CreateFolder(Ruta) 'Crear una nueva carpeta
Finalizar si
archivo = ruta y "asptest.txt"
'Operación de escritura de archivo
Si FSO.FileExists(File) = True Entonces 'Determina si el archivo existe
'Crear objeto TextStream CTF
Establecer CTF = FSO.OpenTextFile(File, 8, False, 0) 'Abra el archivo, consulte la descripción para obtener más detalles
Demás
Establecer CTF = FSO.CreateTextFile(Archivo,Falso, Falso) 'Nuevo archivo
Terminar si
CTF.Escribir "<P>La primera cadena; " 'Escribir cadena
CTF.WriteLine "Segunda cadena; " 'Escribe la cadena y agrega un carácter de nueva línea
CTF.Escribe "La tercera cadena; "
CTF.Close 'Tenga cuidado al cerrar el archivo
' Operación de lectura del archivo
Establecer CTF = FSO.OpenTextFile(Archivo, 1,,0)
Do While CTF.AtEndOfStream <> True 'Determina si el archivo finaliza (declaración de bucle)
Str = CTF.ReadLine 'Leer una línea (cada vez)
StrNoHTML = StrNoHTML & Str & "<BR>" & VbCrLf
StrHTML = StrHTML & Server.HTMLEncode(Str) & "<BR>" & VbCrLf
Bucle
Respuesta.Escribir StrNoHTML
Respuesta.Escribir StrHTML
CTF.Cerrar
Establecer CTF = Nada 'Liberar el objeto
Establecer FSO = Nada
%>
CTF = FSO.OpenTextFile (Archivo, 8, Falso, 0), el primer parámetro entre paréntesis es el nombre del archivo, el segundo parámetro es 8, lo que significa agregar el contenido después del archivo original, si es 1; significa solo lectura, si es 2 El archivo original se reescribirá; el tercer parámetro es falso, si el archivo especificado no existe, el archivo no se creará; si es Verdadero, significa que el archivo especificado no existe; existe, entonces se creará el archivo; el cuarto parámetro 0 significa que el archivo se creará en formato de archivo ASCII, si es -2, significa abrir en el formato original.
CTF = FSO.CreateTextFile (Archivo, Falso, Falso), el segundo parámetro falso significa no sobrescribir el archivo existente, si es Verdadero, significa sobrescribir (Sobrescribir) el archivo existente, el tercer parámetro falso significa que el formato del archivo es ASCII; , ser Verdadero indica que el formato del archivo es Unicode.
El método MapPath del objeto Servidor convierte la ruta virtual especificada en una ruta de archivo real. MapPath trata los caracteres "/" y "" de la misma manera.
El método HTMLEncode del objeto Servidor le permite codificar HTML una cadena específica o permitir que el navegador muestre caracteres específicos correctamente. En el ejemplo anterior, si no está codificado, "<P>" no se mostrará, pero el navegador lo tratará como una etiqueta HTML. Puede comparar los resultados de la ejecución.
De hecho, el componente File Access es relativamente poderoso para operar archivos, carpetas y unidades, y también proporciona más métodos. Si necesita utilizar este conocimiento, no olvide usarlo.
Además, a estas alturas, escribir un contador de páginas web es pan comido. No es de extrañar que tantas páginas web ofrezcan contadores gratuitos. ¿Qué tal? Intenta escribir un contador gráfico tú mismo. Puedes hacer tantas trampas como quieras. ¡Tú tienes la última palabra! (Pequeño secreto: tengo un ejemplo de wuf24.asp en mi página de inicio)
3. AD Rotator (componente de inversión de publicidad)
Ahora en Internet, me temo que lo más molesto son los carteles publicitarios en las páginas de inicio de otras personas, y lo más Mis favoritos son los banners publicitarios en mi propia página de inicio. Anuncios Al igual que el spam, los mensajes abundan y es difícil protegerse contra ellos. También puede crear esa basura usted mismo. El componente AD Rotator de ASP puede mostrar anuncios aleatoriamente cada vez que abre o recarga una página web. Este ejemplo incluye tres partes:
rutina wuf25.asp
<%@ Language=VBScript %>
<% Opción explícita
dirección tenue
'Crear objeto AD Rotator
Establecer dirección = Server.CreateObject ("MSWC.AdRotator")
adr.Border = 2 'Especifique el tamaño del borde del archivo gráfico
adr.Clickable = True 'Indica si la imagen mostrada es un hipervínculo
adr.TargetFrame = "_blank" 'Establece el hipervínculo para especificar el nombre del marco, como por ejemplo: _TOP _NEW _PARENT
'Obtenga la configuración de imagen e hipervínculo que se mostrará: configúrela en el archivo AdrSet.txt
Respuesta.Escribir adr.GetAdvertisement("AdrSet.txt")
%>
Contenido de AdrSet.txt (seguido de comentarios, no del contenido de este archivo):
REDIRECTAR wuf26.asp Después de hacer clic en el anuncio, será procesado por wuf26.asp
WIDTH 468 Ancho de la imagen del anuncio
ALTURA 60 Altura de la imagen publicitaria
* separador
http://www.163.com/ apunta al enlace. Si no hay ningún hipervínculo, escriba un "-".
Descripción de texto de NetEase
20 muestra el peso relativo del anuncio, es decir, la frecuencia de visualización
http://www.sina.com.cn/
sina.com
30
http://www.canon.com.cn/
Canon
50
En este ejemplo, hay tres imágenes (tamaño de imagen 468X60) y enlaces. La descripción de cada enlace ocupa cuatro líneas. En el uso real, puede seguir el mismo método y agregar más imágenes.
<% 'wuf26.asp
URL = Solicitud.QueryString("url")
Respuesta.Redireccionamiento(URL)
%>
wuf26.asp es el programa de procesamiento más simple. Puede agregar más código aquí según las necesidades reales.
Ejecútalo y resulta que el uso de este componente también es muy sencillo. Todo lo que tienes que hacer es obtener tu propio archivo AdrSet.txt. Con este componente, incluso puede diseñar una página de inicio de Ad Exchange que ahora está muy de moda.
4. Componente de enlace de contenido
Obviamente, este componente está relacionado con los enlaces. Si desea conocer el uso específico de este componente de inmediato, me temo que es demasiado apresurado. Primero puede citar un ejemplo clásico: suponga que está leyendo un. libro en Internet, no debe estar familiarizado con los siguientes enlaces No estará familiarizado: Capítulo 1, Capítulo 2, ..., capítulo anterior, capítulo siguiente (o página anterior, página siguiente), etc. Lo que tenemos que hacer ahora es cómo configurar saltos entre estos enlaces de forma fácil y rápida.
Primero cree un archivo de texto de lista de enlaces, como urllist.txt
wuf23.asp: operación de archivo (componente de acceso a archivos)
wuf28.asp: ejemplo de uso del componente de enlace de contenido
wuf22.asp: la
dirección URL del enlace del componente de capacidad del navegador y la descripción están separadas por la tecla Tab. El siguiente wuf27.asp se utiliza para enumerar todos los enlaces en urllist.txt.
<% @LANGUAGE = VBScript %>
<% Opción Explícita %>
<html><head><title>Uso del componente de enlace de contenido</title></head>
<cuerpo>
<h2>Tabla de contenido: tenga en cuenta que el enlace principal es el Capítulo 2, debe hacer clic en él</h2>
<ul>
<%
Atenuar NextLink, contar
'Crear componente de enlace de contenido
Establecer NextLink = Server.CreateObject("MSWC.NextLink")
'Obtiene el número de enlaces en el archivo urllist.txt
Count = NextLink.GetListCount("urllist.txt")
URL tenue, Dscr, I
Para I = 1 para contar
url = NextLink.GetNthURL ("urllist.txt", I) 'Obtener hipervínculo
Dscr = NextLink.GetNthDescription ("urllist.txt", I) 'Obtener descripción de texto
Respuesta.Escribir "<li><a href = """ & url & """>" & Dscr & "</a>" & vbcrlf
Próximo
%>
</ul></body></html>
Luego, tome wuf28.asp como ejemplo para ilustrar cómo saltar automáticamente al capítulo anterior y al siguiente.
<% @LANGUAGE = VBScript %>
<% Opción Explícita %>
<html><head><title>Presta atención a este enlace</title></head>
<body>
<p>Aquí está el texto del Capítulo 2...</p>
<% 'Cada archivo contiene la siguiente oración para lograr el enlace automático%>
<!--#include file="wuf29.asp"-->
</body></html>
Agregue la última oración aquí para realizar el salto automático. El núcleo está en wuf29.asp.
<%
Dim NextLink, rango
Establecer NextLink = Server.CreateObject ("MSWC.NextLink")
'¿Cuál es el enlace actual en urllist.txt?
rango = NextLink.GetListIndex ("urllist.txt")
Response.Write "<hr>"
Si (rango > 1) Entonces 'rango = 1 La página anterior no existe
Response.Write "|<a href=""" & NextLink.GetPreviousURL("urllist.txt") & """>Capítulo anterior</a>|"
End If
If (rank < NextLink.GetListCount("urllist.txt")) Then 'rank está al final, entonces no hay página siguiente
Response.Write "|<a href=""" & NextLink.GetNextURL("urllist.txt") & """>Siguiente capítulo</a>|"
Terminar si
%>
Después de ejecutar este ejemplo, inmediatamente podrá comprender realmente la función de este componente. En resumen, no es necesario escribir "capítulo anterior" y "capítulo siguiente" en cada página. Se puede hacer completamente a través de wuf29. .asp, ¿no es muy conveniente? ! De lo contrario, ¿no sería demasiado problemático modificar el enlace manualmente?
Ahora debes entender que hay una gran cantidad de contadores gratuitos, foros de mensajes gratuitos, salas de chat gratuitas, redes de intercambio de publicidad, etc. Sus principios no son más que esto, por lo que no hay necesidad de adorarlos.
