xmlhttp无刷新联动

aspx

< asp:dropdownlist  id ="dlPROVINCE"  runat ="server"  Font-Size ="X-Small"  Width ="85px"  Visible ="False"  Font-Names ="宋体"  BackColor ="#FFFFC0"  AutoPostBack ="false" ></ asp:dropdownlist<asp:dropdownlist id="dlCITY" runat="server" Font-Size="X-Small" Width="85px" Visible="False" Font-Names="宋体" BackColor="#FFFFC0" ></ asp:dropdownlist>

< SCRIPT language = " JavaScript " > 
             <!-- 
                 // 以XML求取DropDownList2的数据 
 　　             function  XmlPost2(obj)
                  {
　　                 var  svalue  =  obj.value;
　　                 var  webFileUrl  =   " ?provinceid= "   +  svalue;
　　                 var  result  =   "" ;
　　                 var  xmlHttp  =   new  ActiveXObject( " MSXML2.XMLHTTP " );
　　                xmlHttp.open( " POST " , webFileUrl,  false );
　　                xmlHttp.send( "" );
　　                result  =  xmlHttp.responseText;
                　　
　　                 if (result  !=   "" )
　　                  {
　　　　                document.all( " dlCity " ).length = 0 ;
　　　　                
　　　　                 var  piArray  =  result.split( " , " );
　　　　                 for ( var  i = 1 ;i < piArray.length;i ++ )
　　　　                  {
　　　　　　                 var  ary1  =  piArray[i].toString().split( " | " );
　　　　　　                document.all( " dlCity " ).options.add( new  Option(ary1[ 1 ].toString(),ary1[ 0 ].toString()));
　　　　                } 
　　                } 
　　                 else 
 　　                  {
　　　　                alert(result);
　　                } 
                } 
             // --> 
          </ SCRIPT > 

aspx.vb

Private   Property provinceid()Property provinceid() Property provinceid()Property  provinceid()  As   String 
         Get 
             If   Not   IsNothing (ViewState( " provinceid " ))  Then 
                 If  ViewState( " provinceid " ).ToString  <>   ""   Then 
                     Return  ViewState( " provinceid " ).ToString
                 End   If 
             Else 
                 If   Not   IsNothing (Request( " provinceid " ))  Then 
                     If  Request( " provinceid " ).ToString  <>   ""   Then 
                         Return  Request( " provinceid " )
                     End   If 
                 Else 
                     Return   "" 
                 End   If 
             End   If 
         End   Get 
         Set ( ByVal  Value  As   String )
            ViewState( " provinceid " )  =  Value
         End   Set 
     End Property 
 
      Private   Sub dlCity_bind()Sub dlCity_bind() Sub dlCity_bind()Sub  dlCity_bind( ByVal  id  As   String )

         Dim  mystr  As   String   =   "" 
         If  id  <>   " -1 "   Then 
             Dim  sql  As   String   =   " select CITY_ID,CITY_NAME from T_CITY where PROVINCE_CODE = ' "   &  id  &   " ' " 
             Dim  ds  As  DataSet  =  accessData.selectBySQL2(Session( " ID " ), Session( " PSW " ), sql)
             Dim  i  As   Integer 
             If  ds.Tables( 0 ).Rows.Count  <>   0   Then 
                mystr  =   " , "   &   " -1 "   &   " | "   &   "" 
                 For  i  =   0   To  ds.Tables( 0 ).Rows.Count  -   1 
                    mystr  &=   " , "   &  ds.Tables( 0 ).Rows(i).Item( " city_id " )  &   " | "   &  ds.Tables( 0 ).Rows(i).Item( " city_name " )
                 Next 
                 ' mystr = mystr.Substring(1) 
                  ' mystr = mystr 
              End   If 
         Else 
            mystr  =   " , "   &   " -1 "   &   " | "   &   "" 
         End   If 
        Response.Write(mystr)
        Response.End()

     End Sub 
 
      Private   Sub Page_Load()Sub Page_Load() Sub Page_Load()Sub  Page_Load( ByVal  sender  As  System.Object,  ByVal  e  As  System.EventArgs)  Handles   MyBase .Load

         On   Error   GoTo  Err_Handler

         If   Me .IsPostBack  Then 
             Exit Sub 
         End   If 
 
        dlPROVINCE.Attributes.Add( " onchange " ,  " XmlPost2(this); " )

        sqlstr  =   " select * from T_PROVINCE " 
         Dim  ds_province  As  DataSet  =  accessData.selectBySQL2(Session( " ID " ), Session( " PSW " ), sqlstr)
        dlPROVINCE.DataTextField  =   " PROVINCE_NAME " 
        dlPROVINCE.DataValueField  =   " PROVINCE_CODE " 
        dlPROVINCE.DataSource  =  ds_province
        dlPROVINCE.DataBind()

         If  provinceid  <>   ""   Then 
             If  provinceid  =   " -1 "   Then 
                dlCity_bind( " -1 " )
             Else 
                dlCity_bind(provinceid)
             End   If 
         End   If 
 
         Exit Sub 
 
Err_Handler:

        ErrorHandle.UnHandError(Session)
         Dim  redirectstr  As   String   =   " <script>window.parent.document.location.href= "   &  _
                 Chr ( 34 )  &   " error.aspx?msg=2 "   &   Chr ( 34 )  &   " ;</script> " 
        Response.Clear()
        Response.Write(redirectstr)
        Response.End()

     End Sub