Este artículo presenta principalmente cómo Asp analiza XML y lo muestra en las páginas que se adjuntan. Los amigos que lo necesiten pueden consultarlo.
Asp analiza XML y lo muestra en páginas. El código fuente de muestra es el siguiente:
Copie el código de código de la siguiente manera:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transicional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<cabeza>
<enlace href="http://www.fx678.com/css/cur_topics.css" tipo="texto/css" />
<script language="javascript" type="text/ecmascript" src="http://www.fx678.com/js/jquery-1.8.0.min.js"></script>
<title>Tema especial sobre el poder de la riqueza</title>
<tipo de estilo="texto/css">
#tema_derecho
{
flotar: derecha;
altura: automático;
ancho: 690 px;
}
#right_topic .xinhua
{
claro: ambos;
ancho: 690px;
desbordamiento: oculto;
tamaño de fuente: 14px;
color: #444;
altura de línea: 24px;
}
#right_topic .xinhua img
{
borde: 0;
}
#right_topic .xinhua .top_cont
{
borde: 1px sólido #ddd;
altura: 140 px;
}
#right_topic .xinhua .top_cont .xh_logo
{
ancho: 270px;
flotador: izquierda;
margen: 25px 10px;
}
#right_topic .xinhua .top_cont .xh_text
{
flotar: derecha;
ancho: 390px;
tamaño de fuente: 14px;
altura de línea: 22px;
color: #666;
margen superior: 15px;
}
.lista
{
claro: ambos;
margen superior: 15px;
desbordamiento: oculto;
borde inferior: 3px sólido #206295;
}
.listul
{
margen: 0;
relleno: 0;
}
.listulli
{
estilo de lista: ninguno;
borde inferior: 1px punteado #E5E5E5;
relleno: 10px;
}
.lista ul li h4
{
familia de fuentes: "Microsoft Yahei";
tamaño de fuente: 18px;
peso de fuente: normal;
altura de línea: 22px;
margen: 0px;
margen inferior: 5px;
relleno: 0;
color: #0761B7;
}
.lista ul li h4 a
{
color: #206295;
decoración de texto: ninguna;
}
.list ul li h4 a: flotar
{
decoración de texto: subrayado;
}
.listulli lapso
{
flotar: derecha;
ancho: 120px;
color: #999;
tamaño de fuente: 14px;
alineación de texto: derecha;
}
.lista ul li p
{
margen: 0;
relleno: 0;
tamaño de fuente: 12px;
}
.listulli.bg
{
antecedentes: #f5f8fa;
}
#zonadepáginas
{
antecedentes: #F5F6FB;
borde inferior: 1px sólido #DBE3EE;
margen: 10px automático 20px;
relleno: 10px 0;
alineación de texto: centro;
}
#pageZone abarca
{
fondo: #FFFFFF;
borde: 1px sólido #D8DADF;
tamaño de fuente: 14px;
altura: 34px;
altura de línea: 34px;
margen: 0px 2px;
relleno: 8px 12px;
}
#pageZone abarca un
{
color: #666;
decoración de texto: ninguna;
}
#pageZone span.isNow
{
antecedentes: #206295;
borde: 1px sólido #D8DADF;
color: #FFFFFF;
}
</estilo>
<tipo de script="texto/javascript">
var $m = $(ventana.parent.document).find("#MyXH08");
$m.carga(función () {
var thish = $(documento).altura() + 30;
$m.altura(esto);
});
</script>
</cabeza>
<cuerpo>
<!-- Listar información-->
<div>
<ul>
<%
Dim xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl
pSize = 10 'Tamaño de página
xmlUrl="http://back.moneypower.cn/news.xml"
índice de la página REM
pIndex = Solicitud.QueryString("p")
si Cint(pIndex) > 6 o Cint(pIndex) <1 entonces
pÍndice = 1
terminar si
REM lee la fuente XML de forma asincrónica
Establecer http = Server.CreateObject ("Microsoft.XMLHTTP")
http.open "OBTENER", xmlUrl, falso
http.enviar
REM define variables para leer XML
Establecer xmlDoc = Server.CreateObject ("Microsoft.XMLDOM")
xmlDoc.async = falso
xmlDoc.validateOnParse = falso
xmlDoc.load(http.ResponseXML)
Establecer objNodes = xmlDoc.getElementsByTagName("elemento")
si objNodes.length > 0 entonces
yo = 0
Para j = (pSize*(pIndex-1)) a (pSize*pIndex-1) paso 1
miTítulo = objNodes(j).childNodes(0).texto
miFecha = objNodes(j).childNodes(3).texto
miDescripción = objNodes(j).childNodes(2).texto
enlace = Server.URLEncode(objNodes(j).childNodes(1).text)
myLink = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & enlace
%>
<% si i Mod 2 = 0 entonces %>
<li>
<% más %>
<li>
<% finaliza si %>
<h4>
<lapso>
<%= FormatoFecha(miFecha,2) %>
</span><a target="_blank" href="<%= myLink %>">
<%= miTítulo %></a></h4>
<p>
<%= miDescripción %>
</p>
</li>
<%
yo = yo + 1
Próximo
Demás
Response.Write ("¡Aún no hay datos!")
Terminar si
%>
</ul>
</div>
<!--Información de paginación-->
<div>
<%
si pIndex = 1 entonces
%>
<span>Primera página</span>
<span><<Página anterior</span>
<lapso&m
d = CStr(Día(FechaYHora))
Si Len(d) = 1 Entonces d = "0" & d
h = CStr(Hora(FechaYHora))
Si Len(h) = 1 Entonces h = "0" & h
mi = CStr(Minuto(FechaYHora))
Si Len(mi) = 1 Entonces mi = "0" & mi
s = CStr(Segundo(FechaYHora))
Si Len(s) = 1 Entonces s = "0" & s
Seleccione Caso para
Caso "1"
strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Caso "2"
strDateTime = y & "-" & m & "-" & d
Caso "3"
strDateTime = y & "http://www.vevb.com/" & m & "http://www.vevb.com/" & d
Caso "4"
strDateTime = y & "año" & m & "mes" & d & "día"
Caso "5"
strFechaHora = m & "-" & d
Caso "6"
strDateTime = m & "http://www.vevb.com/" & d
Caso "7"
strDateTime = m & "mes" & d & "día"
Caso "8"
strDateTime = y & "año" & m & "mes"
Caso "9"
strFechaHora = y & "-" & m
Caso "10"
strDateTime = y & "http://www.vevb.com/" & m
Caso "11"
strDateTime = m & "-" & d & " " & h & ":" & mi
Caso "12"
strDateTime = h & ":" & mi & ":" & s
Caso "13"
strDateTime = y & m & d & h & mi & s
Caso "14"
strDateTime = y&m&d
Caso "15"
strDateTime = h&mi&s
Caso "16"
strDateTime = h & ":" & mi
Caso "17"
strDateTime = y & m & d & h & mi & s
Caso "18"
strDateTime = y&m&d
Caso "19"
strFechaHora = y&m
Caso más
strDateTime = FechaYHora
Seleccionar fin
FormatoFecha = strFechaHora
Función final
%>
Representación (parte):