Asp는 XML을 구문 분석하고 페이지에 소스 코드를 표시합니다.

저자：Eve Cole 업데이트 시간：2025-01-26 04:48:01

이 기사에서는 Asp가 XML을 구문 분석하고 이를 페이지에 표시하는 방법을 주로 소개합니다. 필요한 친구가 이를 참조할 수 있습니다.

Asp는 XML을 구문 분석하여 페이지에 표시합니다. 샘플 소스 코드는 다음과 같습니다.

다음과 같이 코드 코드를 복사합니다.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<머리>

<스타일 유형="텍스트/css">

#right_topic

{

플로트: 오른쪽;

높이: 자동;

너비: 690px;

}

#right_topic .xinhua

{

명확함: 둘 다;

너비: 690px;

오버플로: 숨김;

글꼴 크기: 14px;

색상: #444;

줄 높이: 24px;

}

#right_topic .xinhua img

{

테두리: 0;

}

#right_topic .xinhua .top_cont

{

테두리: 1px 솔리드 #ddd;

높이: 140px;

}

#right_topic .xinhua .top_cont .xh_logo

{

너비: 270px;

플로트: 왼쪽;

여백: 25px 10px;

}

#right_topic .xinhua .top_cont .xh_text

{

플로트: 오른쪽;

너비: 390px;

글꼴 크기: 14px;

줄 높이: 22px;

색상: #666;

여백 상단: 15px;

}

.목록

{

명확함: 둘 다;

여백 상단: 15px;

오버플로: 숨김;

테두리 하단: 3px 솔리드 #206295;

}

.listul

{

여백: 0;

패딩: 0;

}

.listulli

{

목록 스타일: 없음;

테두리 하단: 점선 1px #E5E5E5;

패딩: 10px;

}

.list ul li h4

{

글꼴 계열: "Microsoft Yahei";

글꼴 크기: 18px;

글꼴 두께: 보통;

줄 높이: 22px;

여백: 0px;

여백 하단: 5px;

패딩: 0;

색상: #0761B7;

}

.list ul li h4 a

{

색상: #206295;

텍스트 장식: 없음;

}

.list ul li h4 a:hover

{

텍스트 장식: 밑줄;

}

.listulli 범위

{

플로트: 오른쪽;

너비: 120px;

색상: #999;

글꼴 크기: 14px;

텍스트 정렬: 오른쪽;

}

.list ul li p

{

여백: 0;

패딩: 0;

글꼴 크기: 12px;

}

.listulli.bg

{

배경: #f5f8fa;

}

#pageZone

{

배경: #F5F6FB;

테두리 하단: 1px 솔리드 #DBE3EE;

여백: 10px 자동 20px;

패딩: 10px 0;

텍스트 정렬: 중앙;

}

#pageZone 범위

{

배경: #FFFFFF;

테두리: 1px 솔리드 #D8DADF;

글꼴 크기: 14px;

높이: 34px;

줄 높이: 34px;

여백: 0px 2px;

패딩: 8px 12px;

}

#pageZone 스팬 a

{

색상: #666;

텍스트 장식: 없음;

}

#pageZonespan.isNow

{

배경: #206295;

테두리: 1px 솔리드 #D8DADF;

색상: #FFFFFF;

}

</style>

<스크립트 유형="텍스트/자바스크립트">

var $m = $(window.parent.document).find("#MyXH08");

$m.load(함수 () {

var thish = $(document).height() + 30;

$m.높이(이것);

});

</script>

</head>

<본문>

<div>

<ul>

Dim xmlDoc,objNodes,pIndex,pSize,i,http,xmlUrl

pSize = 10 '페이지 크기

xmlUrl="http://back.moneypower.cn/news.xml"

REM 페이지 색인

pIndex = Request.QueryString("p")

Cint(pIndex) > 6 또는 Cint(pIndex) < 1인 경우

p인덱스 = 1

종료하면

REM은 XML 소스를 비동기적으로 읽습니다.

http = Server.CreateObject("Microsoft.XMLHTTP") 설정

http.open "GET",xmlUrl,false

http.send

REM은 XML을 읽기 위한 변수를 정의합니다.

xmlDoc = Server.CreateObject("Microsoft.XMLDOM") 설정

xmlDoc.async = 거짓

xmlDoc.validateOnParse = 거짓

xmlDoc.load(http.ResponseXML)

objNodes = xmlDoc.getElementsByTagName("item") 설정

objNodes.length > 0이면

나는 = 0

j = (pSize*(pIndex-1)) ~ (pSize*pIndex-1)의 경우 1단계

myTitle = objNodes(j).childNodes(0).text

myDate = objNodes(j).childNodes(3).text

myDescription = objNodes(j).childNodes(2).text

링크 = Server.URLEncode(objNodes(j).childNodes(1).text)

myLink = "http://www.fx678.com/news/currency/XH08NewsContent.asp?u=" & 링크

<% i Mod 2 = 0이면 %>

<리>

<% 그 외 %>

<리>

<%는 %인 경우 종료>

<h4>

<스팬>

<%= 형식날짜(myDate,2) %>

</span><a target="_blank" href="<%= myLink %>">

<%= myTitle %></a></h4>

<p>

<%= myDescription %>

</p>

</li>

나는 = 나는 + 1

또 다른

Response.Write("아직 데이터가 없습니다!")

종료 조건

</ul>

</div>

<div>

pIndex = 1이면

<스팬(&M)

d = CStr(일(날짜및시간))

Len(d) = 1이면 d = "0" & d

h = CStr(시간(날짜 및 시간))

Len(h) = 1이면 h = "0" & h

mi = CStr(분(DateAndTime))

Len(mi) = 1이면 mi = "0" & mi

s = CStr(초(DateAndTime))

Len(s) = 1이면 s = "0" & s

Case 선택 파라

사례 "1"

strDateTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s

사례 "2"

strDateTime = y & "-" & m & "-" & d

사례 "3"

strDateTime = y & "http://www.vevb.com/" & m & "http://www.vevb.com/" & d

사례 "4"

strDateTime = y & "연도" & m & "월" & d & "일"

사례 "5"

strDateTime = m & "-" & d

케이스 "6"

strDateTime = m & "http://www.vevb.com/" & d

사례 "7"

strDateTime = m & "월" & d & "일"

케이스 "8"

strDateTime = y & "연도" & m & "월"

사례 "9"

strDateTime = y & "-" & m

케이스 "10"

strDateTime = y & "http://www.vevb.com/" & m

케이스 "11"

strDateTime = m & "-" & d & " " & h & ":" & mi

케이스 "12"

strDateTime = h & ":" & mi & ":" & s

케이스 "13"

strDateTime = y & m & d & h & mi & s

케이스 "14"

strDateTime = y&m&d

케이스 "15"

strDateTime = h&mi&s

케이스 "16"

strDateTime = h & ":" & mi

케이스 "17"

strDateTime = y & m & d & h & mi & s

케이스 "18"

strDateTime = y&m&d

케이스 "19"

strDateTime = y&m

그렇지 않은 경우

strDateTime = DateAndTime

선택 종료

FormatDate = strDateTime

기능 종료

렌더링(부분):