Html 过滤其他下拉列表的HTA vbscript下拉列表
我刚刚开始创建HTA,如何创建一个下拉列表来过滤其他下拉列表的结果?我有一个带有sitename和state的数据库,我想要的是在选择state之后填充site下拉列表,其中仅包含与所选state匹配的记录。这里有一个非常简单的HTA,它根据从另一个下拉列表中选择的内容填充一个下拉列表。应该很容易适应从数据库中读取Html 过滤其他下拉列表的HTA vbscript下拉列表,html,windows,vbscript,hta,Html,Windows,Vbscript,Hta,我刚刚开始创建HTA,如何创建一个下拉列表来过滤其他下拉列表的结果?我有一个带有sitename和state的数据库,我想要的是在选择state之后填充site下拉列表,其中仅包含与所选state匹配的记录。这里有一个非常简单的HTA,它根据从另一个下拉列表中选择的内容填充一个下拉列表。应该很容易适应从数据库中读取 <html> <head> <title>Test</title> <HTA:APPLICATION
<html>
<head>
<title>Test</title>
<HTA:APPLICATION
APPLICATIONNAME="Test"
ID="Test"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_OnLoad
Populatedropdown1
End Sub
Sub Populatedropdown1
For i = 0 To 5
Set opt = document.createElement("option")
opt.Value = i
opt.Text = "Option " & CStr(i)
dropdown1.add opt
Next
End Sub
Sub Populatedropdown2
For Each opt in dropdown2.Options
opt.RemoveNode
Next
For i = dropdown1.value To 10
Set opt = document.createElement("option")
opt.Value = i
opt.Text = "Option " & CStr(i)
dropdown2.add opt
Next
End Sub
</script>
<body bgcolor="white">
<p>Select 1: <select name="dropdown1" id="dropdown1" onchange="Populatedropdown2"></select></p>
<p>Select 2: <select name="dropdown2" id="dropdown2" ></select></p>
</body></html>
试验
子窗口加载
人口下降1
端接头
亚种群下降1
对于i=0到5
Set opt=document.createElement(“选项”)
opt.Value=i
opt.Text=“Option”&CStr(一)
dropdown1.addopt
下一个
端接头
亚种群下降2
对于每个选择加入下拉列表2.选项
选择RemoveNode
下一个
对于i=下拉1.0到10
Set opt=document.createElement(“选项”)
opt.Value=i
opt.Text=“Option”&CStr(一)
dropdown2.addopt
下一个
端接头
选择1:
选择2:
这有用吗?如果我的第一个下拉列表将列出父文件夹中的所有子文件夹,当我从第一个下拉列表中选择一个子文件夹时,它将生成第二个下拉列表,该列表将列出其中的所有子文件夹,依此类推?如何做到这一点
K驱动程序结构
子更新列表
对于每个选择加入列表。选项
选择RemoveNode
下一个
设置fso=CreateObject(“Scripting.FileSystemObject”)
对于fso.GetFolder(“C:\WORK”).子文件夹中的每个f
Set opt=document.createElement(“选项”)
opt.Text=f.Name
opt.Value=f.Path
列表。添加(可选)
下一个
端接头
子枚举子文件夹
设置fso=CreateObject(“Scripting.FileSystemObject”)
对于每个opt-In list.options
如果选择了opt.net,则
设置sf=fso.GetFolder(opt.value).子文件夹
退出
如果结束
下一个
端接头
K驱动结构
客户名称
<HEAD>
<TITLE>K Drive Program Structure</TITLE>
<HTA:APPLICATION ID="Eeee"
APPLICATIONNAME="C Drive "
BORDER="Dialog"
CAPTION="Yes"
SCROLL="NO"
SHOWINTASKBAR="yes"
SINGLEINSTANCE="yes"
SYSMENU="Yes"
WINDOWSTATE="maximize">
</HEAD>
<BODY>
<SCRIPT LANGUAGE="VBScript">
Sub UpdateList
For Each opt In list.Options
opt.RemoveNode
Next
Set fso = CreateObject("Scripting.FileSystemObject")
For Each f In fso.GetFolder("C:\WORK").SubFolders
Set opt = document.createElement("OPTION")
opt.Text = f.Name
opt.Value = f.Path
list.Add(opt)
Next
End Sub
Sub EnumSubFolders
Set fso = CreateObject("Scripting.FileSystemObject")
For Each opt In list.options
If opt.selected Then
Set sf = fso.GetFolder(opt.value).SubFolders
Exit For
End If
Next
End Sub
</SCRIPT>
<H2>K Drive Structure</H2>
<P>CUSTOMER NAME
<select id="list" name="list" onkeydown="UpdateList" onChange="EnumSubFolders"></select><P>
<BR>
<BR>
<Input Type = "Button" Name = "btn01" VALUE = "SUBMIT">
<Input Type = "Button" Name = "btn02" VALUE = "CLOSE">
<BR>
<BR>
</BODY>