Как установить с помощью vbscript html значение по умолчанию

Question

Эй, ребята, у нее есть код, где я добавляю опцию в html выпадающий список с vbscript.Но я хочу, чтобы эта добавленная опция была установлена ​​по умолчанию, как я могу это сделать.Вот код:

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 на стороне клиента действительно плохая идея для любого общедоступного веб-сайта?

• Он был разработан для ИнтернетаExplorer только очень давно.
• Он по-прежнему поддерживается только Internet Explorer.
• Microsoft не предпринимает никаких усилий для разработки новых функций клиентского VBScript, и я не удивлюсь, есликакая-то будущая версия IE перестанет его поддерживать.

Answer 2

Если вы вставите это в событие Page_Load

DropDownList.SelectedValue = 1

Вы меняете конечное значение на желаемое.