Este artigo apresenta principalmente como o Asp analisa XML e o exibe em páginas anexadas. Amigos necessitados podem consultá-lo.
Asp analisa XML e o exibe em páginas. O código-fonte de exemplo é o seguinte:
Copie o código do código da seguinte forma:
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<cabeça>
<link href="http://www.fx678.com/css/cur_topics.css" type="text/css" />
<script language="javascript" type="text/ecmascript" src="http://www.fx678.com/js/jquery-1.8.0.min.js"></script>
<title>Tópico especial sobre o poder da riqueza</title>
<style type="texto/css">
#right_topic
{
flutuar: certo;
altura: automático;
largura: 690px;
}
#right_topic.xinhua
{
claro: ambos;
largura: 690px;
estouro: oculto;
tamanho da fonte: 14px;
cor: #444;
altura da linha: 24px;
}
#right_topic .xinhua img
{
borda: 0;
}
#right_topic.xinhua.top_cont
{
borda: 1px sólido #ddd;
altura: 140px;
}
#right_topic.xinhua.top_cont.xh_logo
{
largura: 270px;
flutuar: esquerda;
margem: 25px 10px;
}
#right_topic.xinhua.top_cont.xh_text
{
flutuar: certo;
largura: 390px;
tamanho da fonte: 14px;
altura da linha: 22px;
cor: #666;
margem superior: 15px;
}
.lista
{
claro: ambos;
margem superior: 15px;
estouro: oculto;
borda inferior: 3px sólido #206295;
}
.listul
{
margem: 0;
preenchimento: 0;
}
.listulli
{
estilo de lista: nenhum;
borda inferior: 1px pontilhado #E5E5E5;
preenchimento: 10px;
}
.lista ul li h4
{
família de fontes: "Microsoft Yahei";
tamanho da fonte: 18px;
peso da fonte: normal;
altura da linha: 22px;
margem: 0px;
margem inferior: 5px;
preenchimento: 0;
cor: #0761B7;
}
.list ul li h4 a
{
cor: #206295;
decoração de texto: nenhuma;
}
.list ul li h4 a:hover
{
decoração de texto: sublinhado;
}
extensão .listulli
{
flutuar: certo;
largura: 120px;
cor: #999;
tamanho da fonte: 14px;
alinhamento de texto: certo;
}
.list ul li p
{
margem: 0;
preenchimento: 0;
tamanho da fonte: 12px;
}
.listulli.bg
{
plano de fundo: #f5f8fa;
}
#pageZone
{
plano de fundo: #F5F6FB;
borda inferior: 1px sólido #DBE3EE;
margem: 10px automático 20px;
preenchimento: 10px 0;
alinhamento de texto: centro;
}
#pageZone intervalo
{
plano de fundo: #FFFFFF;
borda: 1px sólido #D8DADF;
tamanho da fonte: 14px;
altura: 34px;
altura da linha: 34px;
margem: 0px 2px;
preenchimento: 8px 12px;
}
#pageZone abrange um
{
cor: #666;
decoração de texto: nenhuma;
}
#pageZone span.isNow
{
plano de fundo: #206295;
borda: 1px sólido #D8DADF;
cor: #FFFFFF;
}
</estilo>
<script type="texto/javascript">
var $m = $(window.parent.document).find("#MyXH08");
$m.load(função(){
var isto = $(document).height() + 30;
$m.altura(este);
});
</script>
</head>
<corpo>
<!-- Listar informações-->
<div>
<ul>
<%
Dim xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl
pSize = 10 'Tamanho da página
xmlUrl="http://back.moneypower.cn/news.xml"
Índice de página REM
pIndex = Request.QueryString("p")
se Cint(pIndex) > 6 Ou Cint(pIndex) < 1 então
pÍndice = 1
terminar se
REM lê fonte XML de forma assíncrona
Definir http = Server.CreateObject("Microsoft.XMLHTTP")
http.open "GET",xmlUrl,falso
http.enviar
REM define variáveis para leitura de XML
Definir xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = falso
xmlDoc.validateOnParse = falso
xmlDoc.load(http.ResponseXML)
Definir objNodes = xmlDoc.getElementsByTagName("item")
se objNodes.length > 0 então
eu = 0
Para j = (pSize*(pIndex-1)) a (pSize*pIndex-1) etapa 1
meuTítulo = objNodes(j).childNodes(0).text
minhaData = objNodes(j).childNodes(3).text
minhaDescrição = objNodes(j).childNodes(2).text
link = Server.URLEncode(objNodes(j).childNodes(1).texto)
myLink = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & link
%>
<% se eu Mod 2 = 0 então%>
<li>
<% mais %>
<li>
<% fim se %>
<h4>
<span>
<%= FormatDate(minhadata,2) %>
</span><a target="_blank" href="<%= myLink %>">
<%= meuTítulo %></a></h4>
<p>
<%= minhaDescrição %>
</p>
</li>
<%
eu = eu + 1
Próximo
Outro
Response.Write("Ainda não há dados!")
Terminar se
%>
</ul>
</div>
<!--Informações de paginação-->
<div>
<%
se pIndex = 1 então
%>
<span>Primeira página</span>
<span><<Página anterior</span>
<span&m
d = CStr(Dia(DataEHora))
Se Len(d) = 1 Então d = "0" & d
h = CStr(Hora(DataEHora))
Se Len(h) = 1 Então h = "0" & h
mi = CStr(Minuto(DataEHora))
Se Len(mi) = 1 Então mi = "0" & mi
s = CStr(Segundo(DataEHora))
Se Len(s) = 1 Então s = "0" & s
Selecione 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 & "ano" & m & "mês" & d & "dia"
Caso "5"
strDateTime = m & "-" & d
Caso "6"
strDateTime = m & "http://www.vevb.com/" & d
Caso "7"
strDateTime = m & "mês" & d & "dia"
Caso "8"
strDateTime = y & "ano" & m & "mês"
Caso "9"
strDateTime = 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"
strDateTime = y&m
Outro caso
strDateTime = DataEHora
Finalizar seleção
DataFormato = strDateTime
Função final
%>
Renderização (parte):