code 13.1.5.asp

开发web_xml

<%@ LANGUAGE= VBScript %>
<?xml version=“1.0”?>
<AUCTIONBLOCK>
<%Set conn=Server.CreateObject(“ADODB.Connection”)
Conn.open  ”Gallery1”, ” Gallery1”, ” Gallery1”
Set ItemRS=Conn.Excute(“Select * From item”) 
DO While Not ItemRS.EOF
%>
<ITEM>
	<TITLE><%=ItemRS(“Artist”)%></TITLE>
	<ARTIST><%=ItemRS(“Artist”)%></ARTIST>
	<DIMENSIONS><%=ItemRS(“Dimension”)%></DIMENSION>
	<MATERIALS><%=ItemRS(“Materrials”)%></MATERIALS>
	<YEAR><%=ItemRS(“Year”)%></YEAR>
</ITEM>
<%
ItemRS.MoveNext
Loop
%>
<%
Set XML=Server.CreateObject(“msxml”)
XML.URL=http://datasourse3/Gallery3.xml
Set Items=XML.root.children
For I=0 TO Items.length-1
%>
<ITEM>
	<TITLE><%=Items.item(I).children.item(“TITLE”).text%></TITLE>
	<ARTIST><%=Items.item(I).children.item(“ARTIST”).text%></ARTIST>
	<DIMENSIONS><%=Items.item(I).children.item(“DIMENSIONS”).text%></DIMENSION>
	<MATERIALS><%=Items.item(I).children.item(“MATERIALS”).text%></MATERIALS>
	<YEAR><%=Items.item(I).children.item(“DATE”).text%></YEAR>
</ITEM>
<%Next%>
</ AUCTIONBLOCK >