如何使用vbscript html下拉值设置为默认值

Question

嘿家伙有她的代码，我在vbscript的html下拉框中添加了一个选项。但我希望这个添加的选项设置为默认，我该怎么做。这是代码：

Sub Window_OnLoad
        ForReading = 1
        Set objFSO = CreateObject("Scripting.FileSystemObject")
        Set objFile = objFSO.OpenTextFile _
            ("C:\Temp\CAD_Kunde.txt", ForReading)
        Do Until objFile.AtEndOfStream
            strLine = objFile.ReadLine
            Set objOption = Document.createElement("OPTION")
            objOption.Text = strLine
            objOption.Value = strLine
            formname.select1.Add(objOption)

        Loop
        objFile.Close
    End Sub

Answer 1

这应该有效：

objOption.Selected = "selected"

我希望您知道客户端VBScript对任何公共网站来说真是个坏主意吗？

• 它是很久以前为Internet Explorer开发的。
• 仅受Internet Explorer支持。
• 微软没有做任何努力来开发客户端VBScript的新功能，如果IE的某些未来版本停止支持它，我也不会感到惊讶。

Answer 2

如果您将其放入Page_Load事件

DropDownList.SelectedValue = 1

您可以将结束值更改为所需的值。