Cet article présente principalement comment Asp analyse XML et l'affiche dans les pages jointes. Les amis dans le besoin peuvent s'y référer.
Asp analyse XML et l'affiche dans des pages. L'exemple de code source est le suivant :
Copiez le code comme suit :
<!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">
<tête>
<link href="http://www.fx678.com/css/cur_topics.css" type="text/css" />
<script langage="javascript" type="text/ecmascript" src="http://www.fx678.com/js/jquery-1.8.0.min.js"></script>
<title>Thème spécial sur le pouvoir de la richesse</title>
<style type="text/css">
#right_topic
{
flotter : à droite ;
hauteur : automatique ;
largeur : 690 px ;
}
#right_topic .xinhua
{
clair : les deux ;
largeur : 690 px ;
débordement : caché ;
taille de police : 14 px ;
couleur : #444 ;
hauteur de ligne : 24 px ;
}
img
{
bordure : 0 ;
}
#right_topic .xinhua .top_cont
{
bordure : 1px solide #ddd ;
hauteur : 140px ;
}
#right_topic .xinhua .top_cont .xh_logo
{
largeur : 270 px ;
flotteur : gauche ;
marge : 25px 10px ;
}
#right_topic .xinhua .top_cont .xh_text
{
flotter : à droite ;
largeur : 390 px ;
taille de police : 14 px ;
hauteur de ligne : 22 px ;
couleur : #666 ;
marge supérieure : 15 px ;
}
.liste
{
clair : les deux ;
marge supérieure : 15 px ;
débordement : caché ;
bordure inférieure : 3px solide #206295 ;
}
.listul
{
marge : 0 ;
remplissage : 0 ;
}
.listulli
{
style de liste : aucun ;
bordure inférieure : 1px pointillé #E5E5E5 ;
remplissage : 10 px ;
}
.list ul li h4
{
famille de polices : « Microsoft Yahei » ;
taille de police : 18 px ;
poids de la police : normal ;
hauteur de ligne : 22 px ;
marge : 0px ;
marge inférieure : 5 px ;
remplissage : 0 ;
couleur : #0761B7 ;
}
.list ul li h4 a
{
couleur : #206295 ;
décoration de texte : aucune ;
}
.list ul li h4 a: survol
{
décoration de texte : souligner ;
}
Portée .listulli
{
flotter : à droite ;
largeur : 120 px ;
couleur : #999 ;
taille de police : 14 px ;
aligner le texte : à droite ;
}
.list ul li p
{
marge : 0 ;
remplissage : 0 ;
taille de police : 12 px ;
}
.listulli.bg
{
arrière-plan : #f5f8fa ;
}
#pageZone
{
arrière-plan : #F5F6FB ;
bordure inférieure : 1px solide #DBE3EE ;
marge : 10px auto 20px ;
remplissage : 10px 0 ;
alignement du texte : centre ;
}
#pageZone étendue
{
arrière-plan : #FFFFFF ;
bordure : 1px solide #D8DADF ;
taille de police : 14 px ;
hauteur : 34px ;
hauteur de ligne : 34 px ;
marge : 0px 2px ;
remplissage : 8px 12px ;
}
#pageZone s'étend sur un
{
couleur : #666 ;
décoration de texte : aucune ;
}
#pageZone span.isNow
{
arrière-plan : #206295 ;
bordure : 1px solide #D8DADF ;
couleur : #FFFFFF ;
}
</style>
<script type="text/javascript">
var $m = $(window.parent.document).find("#MyXH08");
$m.load(fonction () {
var thish = $(document).height() + 30;
$m.hauteur(ceci);
});
</script>
</tête>
<corps>
<!-- Informations sur la liste-->
<div>
<ul>
<%
Dim xmlDoc, objNodes, pIndex, pSize, i, http, xmlUrl
pTaille = 10 'Taille de la page
xmlUrl="http://back.moneypower.cn/news.xml"
Index des pages du REM
pIndex = Requête.QueryString("p")
si Cint(pIndex) > 6 Ou Cint(pIndex) < 1 alors
pIndice = 1
finir si
REM lit la source XML de manière asynchrone
Définir http = Server.CreateObject("Microsoft.XMLHTTP")
http.open "GET", xmlUrl, faux
http.envoyer
REM définit des variables pour lire XML
Définir xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = faux
xmlDoc.validateOnParse = faux
xmlDoc.load(http.ResponseXML)
Définir objNodes = xmlDoc.getElementsByTagName("item")
si objNodes.length > 0 alors
je = 0
Pour j = (pSize*(pIndex-1)) à (pSize*pIndex-1) étape 1
monTitre = objNodes(j).childNodes(0).text
maDate = objNodes(j).childNodes(3).text
maDescription = objNodes(j).childNodes(2).text
lien = Server.URLEncode(objNodes(j).childNodes(1).text)
monLien = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & lien
%>
<% si je Mod 2 = 0 alors %>
<li>
<% autre %>
<li>
<% fin si %>
<h4>
<envergure>
<%= FormatDate(maDate,2) %>
</span><a target="_blank" href="<%= myLink %>">
<%= monTitre %></a></h4>
<p>
<%= maDescription %>
</p>
</li>
<%
je = je + 1
Suivant
Autre
Response.Write("Aucune donnée pour l'instant !")
Fin si
%>
</ul>
</div>
<!--Informations de pagination-->
<div>
<%
si pIndex = 1 alors
%>
<span>Première page</span>
<span><<Page précédente</span>
<span&m
d = CStr(Jour(DateEtHeure))
Si Len(d) = 1 Alors d = "0" & d
h = CStr(Heure(DateEtHeure))
Si Len(h) = 1 Alors h = "0" & h
mi = CStr(Minute(DateAndTime))
Si Len(mi) = 1 Alors mi = "0" & mi
s = CStr(Seconde(DateAndTime))
Si Len(s) = 1 Alors s = "0" & s
Sélectionnez le cas para
Cas "1"
strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Cas "2"
strDateTime = y & "-" & m & "-" & d
Cas "3"
strDateTime = y & "http://www.vevb.com/" & m & "http://www.vevb.com/" & d
Cas "4"
strDateTime = y & "année" & m & "mois" & d & "jour"
Cas "5"
strDateTime = m & "-" & d
Cas "6"
strDateTime = m & "http://www.vevb.com/" & d
Cas "7"
strDateTime = m & "mois" & d & "jour"
Cas "8"
strDateTime = y & "année" & m & "mois"
Cas "9"
strDateTime = y & "-" & m
Cas "10"
strDateTime = y & "http://www.vevb.com/" & m
Cas "11"
strDateTime = m & "-" & d & " " & h & ":" & mi
Cas "12"
strDateTime = h & ":" & mi & ":" & s
Cas "13"
strDateTime = y & m & d & h & mi & s
Cas "14"
strDateTime = a&m&d
Cas "15"
strDateTime = h&mi&s
Cas "16"
strDateTime = h & ":" & mi
Cas "17"
strDateTime = y & m & d & h & mi & s
Cas "18"
strDateTime = a&m&d
Cas "19"
strDateTime = a&m
Autre cas
strDateTime = DateEtHeure
Fin de la sélection
FormatDate = strDateTime
Fonction de fin
%>
Rendu (partie) :