下拉框使用AJAX

Dim xList As XmlNodeList

Dim xNode As XmlNode

Dim Str As String

xmlDoc.Load(Server.MapPath("CountriesAndStates.xml"))



Dim Country As String = Request.QueryString("SelectedCountry")

Dim query As String = ("/countries/country[@name='" & country & "']")

xlist = xmlDoc.SelectNodes(query)



Response.Clear()

 

For Each xNode In xList

     If xNode.HasChildNodes = True Then

          For Each xN As XmlNode In xNode.ChildNodes

               Str &= xN.InnerText & "-"

          Next

     End If

Next



Response.Clear()

Response.ContentType = "text/xml"

Response.Write(str)

Response.End()

if(XmlHttp.readyState == 4)

 {

  // To make sure valid response is received from the server, 

  // 200 means response received is OK

  if(XmlHttp.status == 200)

  {  

   ClearAndSetStateListItems(XmlHttp.responseText);

  }

  else

  {

   alert("There was a problem retrieving data from the server." );

  }

 }

var stateList = document.getElementById("stateList");

 //Clears the state combo box contents.

 for (var count = stateList.options.length-1; count >-1; count--)

 {

  stateList.options[count] = null;

 }



 var stateNodes = countryNode.split("-");

 //window.alert(stateNodes) 

 var textValue; 

 var optionItem;

 //Add new states list to the state combo box.

 for (var count = 0; count < stateNodes.length; count++)

 {

     textValue = (stateNodes[count]);

  optionItem = new Option( textValue, textValue,  false, false);

  //window.alert(textValue); 

  //stateList.appendChild(textValue); 

  stateList.options[stateList.length] = optionItem;

 }