Artikel ini terutama memperkenalkan bagaimana Asp mem-parsing XML dan menampilkannya di halaman. Tangkapan layar terlampir.
Asp mem-parsing XML dan menampilkannya dalam halaman. Contoh kode sumbernya adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
<!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">
<kepala>
<link href="http://www.fx678.com/css/cur_topics.css" type="text/css" />
<skrip bahasa="javascript" type="text/ecmascript" src="http://www.fx678.com/js/jquery-1.8.0.min.js"></script>
<title>Topik Khusus Kekuatan Kekayaan</title>
<gaya tipe="teks/css">
#topik_kanan
{
mengapung: benar;
tinggi: otomatis;
lebar: 690 piksel;
}
#right_topic .xinhua
{
jelas: keduanya;
lebar: 690 piksel;
meluap: tersembunyi;
ukuran font: 14px;
warna: #444;
tinggi garis: 24px;
}
#right_topic .xinhua img
{
batas: 0;
}
#right_topic .xinhua .top_cont
{
batas: 1px padat #ddd;
tinggi: 140 piksel;
}
#right_topic .xinhua .top_cont .xh_logo
{
lebar: 270 piksel;
mengapung: kiri;
margin: 25 piksel 10 piksel;
}
#right_topic .xinhua .top_cont .xh_text
{
mengapung: benar;
lebar: 390 piksel;
ukuran font: 14px;
tinggi garis: 22px;
warna: #666;
margin-atas: 15 piksel;
}
.daftar
{
jelas: keduanya;
margin-atas: 15 piksel;
meluap: tersembunyi;
batas-bawah: 3px padat #206295;
}
.listul
{
margin: 0;
bantalan: 0;
}
.listulli
{
gaya daftar: tidak ada;
batas bawah: 1 piksel bertitik #E5E5E5;
bantalan: 10 piksel;
}
.list ul li h4
{
font-family: "Microsoft Yahei";
ukuran font: 18px;
berat font: normal;
tinggi garis: 22px;
margin: 0 piksel;
margin-bawah: 5px;
bantalan: 0;
warna: #0761B7;
}
.list ul li h4 a
{
warna: #206295;
dekorasi teks: tidak ada;
}
.list ul li h4 a: arahkan kursor
{
dekorasi teks: garis bawah;
}
.listulli rentang
{
mengapung: benar;
lebar: 120 piksel;
warna: #999;
ukuran font: 14px;
perataan teks: kanan;
}
.daftar ul li hal
{
margin: 0;
bantalan: 0;
ukuran font: 12px;
}
.listulli.bg
{
latar belakang: #f5f8fa;
}
#pageZone
{
latar belakang: #F5F6FB;
batas bawah: 1px solid #DBE3EE;
margin: 10 piksel otomatis 20 piksel;
bantalan: 10 piksel 0;
perataan teks: tengah;
}
#pageZone rentang
{
latar belakang: #FFFFFF;
batas: 1px solid #D8DADF;
ukuran font: 14px;
tinggi: 34 piksel;
tinggi garis: 34px;
margin: 0 piksel 2 piksel;
bantalan: 8px 12px;
}
#pageZone rentang a
{
warna: #666;
dekorasi teks: tidak ada;
}
#pageZone span.isNow
{
latar belakang: #206295;
batas: 1px solid #D8DADF;
warna: #FFFFFF;
}
</gaya>
<skrip tipe="teks/javascript">
var $m = $(window.parent.document).find("#MyXH08");
$m.beban(fungsi () {
var thish = $(dokumen).tinggi() + 30;
$m.tinggi(ini);
});
</skrip>
</kepala>
<tubuh>
<!-- Daftar informasi-->
<div>
<ul>
<%
Redupkan xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl
pUkuran = 10 'Ukuran halaman
xmlUrl="http://back.moneypower.cn/news.xml"
indeks halaman REM
pIndex = Permintaan.QueryString("p")
jika Cint(pIndex) > 6 Atau Cint(pIndex) < 1 maka
pIndeks = 1
berakhir jika
REM membaca sumber XML secara asinkron
Setel http = Server.CreateObject("Microsoft.XMLHTTP")
http.buka "GET",xmlUrl,false
http.kirim
REM mendefinisikan variabel untuk membaca XML
Setel xmlDoc = Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.async = salah
xmlDoc.validateOnParse = salah
xmlDoc.load(http.ResponseXML)
Setel objNodes = xmlDoc.getElementsByTagName("item")
jika objNodes.length > 0 maka
saya = 0
Untuk j = (pSize*(pIndex-1)) hingga (pSize*pIndex-1) langkah 1
Judulku = objNodes(j).childNodes(0).teks
tanggalku = objNodes(j).childNodes(3).teks
Deskripsiku = objNodes(j).childNodes(2).teks
tautan = Server.URLEncode(objNodes(j).childNodes(1).teks)
myLink = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & tautan
%>
<% jika saya Mod 2 = 0 maka %>
<li>
<% lain %>
<li>
<% berakhir jika %>
<h4>
<rentang>
<%= FormatTanggal(Tanggal saya,2) %>
</span><a target="_blank" href="<%= myLink %>">
<%= Judul Saya %></a></h4>
<p>
<%= Deskripsi saya %>
</p>
</li>
<%
saya = saya + 1
Berikutnya
Kalau tidak
Response.Write("Belum ada data!")
Akhiri Jika
%>
</ul>
</div>
<!--Informasi halaman-->
<div>
<%
jika pIndex = 1 maka
%>
<span>Halaman pertama</span>
<span><<Halaman sebelumnya</span>
<rentang&m
d = CStr(Hari(TanggalDanWaktu))
Jika Len(d) = 1 Maka d = "0" & d
h = CStr(Jam(TanggalDanWaktu))
Jika Len(h) = 1 Maka h = "0" & h
mi = CStr(Menit(TanggalDanWaktu))
Jika Len(mi) = 1 Maka mi = "0" & mi
s = CStr(Kedua(TanggalDanWaktu))
Jika Len(s) = 1 Maka s = "0" & s
Pilih Kasus para
Kasus "1"
strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Kasus "2"
strDateTime = y & "-" & m & "-" & d
Kasus "3"
strDateTime = y & "http://www.vevb.com/" & m & "http://www.vevb.com/" & d
Kasus "4"
strDateTime = y & "tahun" & m & "bulan" & hari & "hari"
Kasus "5"
strDateTime = m & "-" & d
Kasus "6"
strDateTime = m & "http://www.vevb.com/" & d
Kasus "7"
strDateTime = m & "bulan" & hari & "hari"
Kasus "8"
strDateTime = y & "tahun" & m & "bulan"
Kasus "9"
strDateTime = y & "-" & m
Kasus "10"
strDateTime = y & "http://www.vevb.com/" & m
Kasus "11"
strDateTime = m & "-" & d & " " & h & ":" & mi
Kasus "12"
strDateTime = jam & ":" & mi & ":" & s
Kasus "13"
strDateTime = y & m & d & h & mi & s
Kasus "14"
strDateTime = y&m&d
Kasus "15"
strDateTime = h&mi&s
Kasus "16"
strDateTime = jam & ":" & mi
Kasus "17"
strDateTime = y & m & d & h & mi & s
Kasus "18"
strDateTime = y&m&d
Kasus "19"
strDateTime = y&m
Kasus Lain
strDateTime = TanggalDanWaktu
Pilihan Akhir
FormatTanggal = strDateWaktu
Fungsi Akhir
%>
Render (bagian):