スタイルシートを適用するには？

じゅん 1999/10/28(木) 19:14:41
スタイルシートをクラス属性で適用していますが、添付したスクリプトのように、document.write を使用した場合、スタイルシートが適用されません。
スタイルシートは、ＨＴＭＬで直接記述しないと適用されないのでしょうか？

<SCRIPT LANGUAGE="VBScript">
<!--
Sub PSbSetListYear()
    Dim LcIntIndex
    Dim LcIntYear

    LcIntYear=Year(Date)

    document.write "<SELECT class=&quot;clsInput&quot; size=1 name=&quot;lstYear&quot;>"

    For LcIntYear=Year(Date) to Year(Date)+5
        document.write "<OPTION value=" & Cstr(LcIntYear) & ">" & LcIntYear
    Next

    document.write"</SELECT>"
End Sub
-->
</SCRIPT>

Syn [E-Mail] 1999/10/28(木) 19:47:21
スクリプト中では、 &quot; は認識されないようです。
VB の書式にしたがって、 "" (ダブルクォーテーションふたつ)
に置き換えると当方ではうまくいきました。

Sub PSbSetListYear()

    Dim LcIntIndex
    Dim LcIntYear

    LcIntYear = Year(Date)

    document.write "<SELECT class=""clsInput"" size=1 name=""lstYear"">"

    For LcIntYear = Year(Date) To Year(Date) + 5
        document.write "<OPTION value=" & CStr(LcIntYear) & ">" & CStr(LcIntYear)
    Next

    document.write "</SELECT>"

End Sub

じゅん 1999/10/28(木) 22:02:59
syuさん、レスありがとうございました。

なるほど、"" (ダブルクォーテーションふたつ)でＯＫだったんですね。
全然、気がつかなっかたです。（３時間くらいはまっていました）

ありがとうございました。(^。^)

じゅん 1999/10/28(木) 22:04:03
[[解決]]
あっ、解決済みを忘れました。^_^;