code 13.1.3.asp

开发web_xml

<%@ LANGUAGE= VBScript %>
<?xml version=”1.0”?>
<AUCTIONBLOCK>
<%Set conn=Server.CreateObject(“ADODB.Connection”)
Conn.open  ”Auction”, ”Auction”, ”Auction”
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
%>
< /AUCTIONBLOCK >