52,797
社区成员
发帖
与我相关
我的任务
分享
<head runat="server">
<title>XXXXX</title>
<script type="text/javascript">
function load(DepID){ //ClassID为接收传递的大类编号
var drp2 = document.getElementById("DropDownList2");
function RemoveAll(oElem) { //清除DropDownList2的所有项
var i = 0;
for (i = oElem.length; i >= 0; i--){
oElem.options.remove(i);
}
}
RemoveAll(drp2)
//新建一请求与XML文档
var oHttpReq = new ActiveXObject("MSXML2.XMLHTTP");
var oDoc = new ActiveXObject("MSXML2.DOMDocument");
oHttpReq.open("POST", "DropChild.aspx?DepID="+DepID, false); //调用读取小类数据的页面,将大类编号值传递过去
oHttpReq.send("");
result = oHttpReq.responseText;
oDoc.loadXML(result);
alert(oDoc.xml);
items1 = oDoc.selectNodes("//airline/Table"); //读取所有请求大类所属小类的类名//不知何意?
items2 = oDoc.selectNodes("//airline/Table"); //读取所有请求大类所属小类的编号
var itemsLength=items1.length;
for(i=0;i<itemsLength;i++) //将小类的类名和编号赋予DropDownList2
{
var newOption = document.createElement("OPTION");
newOption.text=items1[i].text;
newOption.value=items2[i].text;
drp2.options.add(newOption);
}
}
</script>
</head>
<body MS_POSITIONING="flowLayout">
<form id="Form1" method="post" runat="server">
<asp:DropDownList id="DropDownList1" runat="server"></asp:DropDownList>
<asp:DropDownList id="DropDownList2" runat="server"></asp:DropDownList>
<asp:TextBox id="TH" runat="server" BorderStyle="None" ForeColor="White" BorderColor="White"></asp:TextBox>
<asp:Label id="Label1" runat="server"></asp:Label>
<asp:Button id="Button1" runat="server" Text="Button"></asp:Button>
</form>
</body>
</html>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim objGeo As New GeoInfos
Dim StateDataSet As DataSet = objGeo.getAllAirline
With Me.DropDownList1
If Not StateDataSet Is Nothing AndAlso StateDataSet.Tables.Count > 0 Then
.DataSource = StateDataSet
.DataTextField = "description"
.DataValueField = "code"
.DataBind()
End If
.Items.Insert(0, New ListItem("-", ""))
End With
Me.DropDownList1.Attributes.Add("onchange", "load(this.options[this.selectedIndex].value)")
Me.DropDownList2.Attributes.Add("onChange", "javascript:document.Form1.TH.value=this.options[this.selectedIndex].value;")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim state As String = Request.QueryString("DepID")
Dim con As SqlConnection = New SqlConnection("")
Dim da As SqlDataAdapter = New SqlDataAdapter("select distinct ap,al from ail where ap='" + state + "'", con)
Dim ds As DataSet = New DataSet("mydst")
da.Fill(ds, "mydst")
Dim writer As XmlTextWriter = New XmlTextWriter(Response.OutputStream, Response.ContentEncoding)
writer.Formatting = Formatting.Indented
writer.Indentation = 4
writer.IndentChar = ""
writer.WriteStartDocument()
ds.WriteXml(writer)
writer.Flush()
Response.End()
writer.Close()
End Sub