在IE里应用XML的一个小例子：解决双下拉选单的连动问题

--------------------------------------------------------------------------------

XMLCity.asp

<%@ LANGUAGE="VBSCRIPT" %>

<%

sState = Request.QueryString("State")

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Provider = "sqloledb"

Conn.Open "Data Source=ServerName;Initial Catalog=dbName;", "sa", ""

Set RS = Conn.Execute("SELECT city FROM citys WHERE state='" & sState & "'")

arrCity = Rs.GetRows()

%>

<?xml version="1.0" encoding="gb2312" ?>

<citys>

<%For i = LBound(arrCity,2) To UBound(arrCity,2)%>

<city><%=arrCity(0,i)%></city>

<%Next%>

</citys>

--------------------------------------------------------------------------------