html显示vbs变量,如何在html标记中使用vbs变量

您还可以，看看这个HTA例如乘法表(I * j)： 它动态生成HTA乘法表(I * J)，颜色

Table de Multiplication (I * J) © Hackoo Crackoo 2013

ID="Table de Multiplication © Hackoo Crackoo 2013"

APPLICATIONNAME="Table de Multiplication © Hackoo Crackoo 2013"

SCROLL="yes"

SINGLEINSTANCE="yes"

WINDOWSTATE="Maximize"

icon="CALC.exe"

>

Nombre de Lignes :

Nombre de Colonnes :

Option Explicit

Sub Window_OnLoad()

Ligne.style.backgroundcolor = "DarkOrange"

Col.style.backgroundcolor = "DarkOrange"

Calculer()

End Sub

Sub Calculer()

Dim NbrLigne,NbrCol,StrHTML,i,j,Signature

' Table de multiplication

' --------------------------------------------------------

' NbrCol : le nombre de colonnes

' NbrLigne : le nombre de lignes

NbrCol = Col.value

NbrLigne = Ligne.value

If IsNumeric(Ligne.Value) = False Then

Erreur.InnerHTML = "ATTENTION ! IL FAUT CHOISIR UN NOMBRE ENTIER NUMERQUE !"

Data.InnerHTML = ""

Ligne.style.backgroundcolor = "red"

Sleep "3"

Ligne.Value = ""

Erreur.InnerHTML = ""

Ligne.style.backgroundcolor = "DarkOrange"

Ligne.Focus

Exit Sub

End If

If IsNumeric(Col.Value) = False Then

Erreur.InnerHTML = "ATTENTION ! IL FAUT CHOISIR UN NOMBRE ENTIER NUMERQUE !"

Data.InnerHTML = ""

Col.style.backgroundcolor = "red"

Sleep "3"

Col.Value = ""

Erreur.InnerHTML = ""

Ligne.style.backgroundcolor = "DarkOrange"

Col.Focus

Exit Sub

End If

' --------------------------------------------------------

' on affiche en plus sur les 1ere ligne et 1ere colonne

' les valeurs a multiplier (dans des cases en couleur)

' --------------------------------------------------------

StrHTML = "

StrHTML=StrHTML & "

" '1ere ligne (ligne 0)

StrHTML=StrHTML & "

i*j"

for j=1 to NbrCol

StrHTML=StrHTML & "

"& j &" "

next

StrHTML=StrHTML & "

"

StrHTML=StrHTML & "

"

StrHTML=StrHTML & "

"

' lignes suivantes

for i=1 to NbrLigne step 1

StrHTML=StrHTML & "

"

for j=1 to NbrCol

' 1ere colonne (colonne 0)

if (j=1) then

StrHTML=StrHTML & "

" & i & " "

end if

' colonnes suivantes

if (i=j) then

StrHTML=StrHTML & "

"

else

StrHTML=StrHTML & "

"

end if

' -------------------------

' DONNEES A AFFICHER dans la cellule

StrHTML=StrHTML & "

" & i*j & " "

' -------------------------

StrHTML=StrHTML & "

"

next

StrHTML=StrHTML & "

"

j=1

Next

Data.InnerHTML = StrHTML

Sig.InnerHTML = "

"

End Sub

Sub Sleep(Secs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA

Dim fso,objOutputFile

Set fso = CreateObject("Scripting.FileSystemObject")

Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2)

Dim tempName : tempName = "Sleeper.vbs"

If Fso.FileExists(tempFolder&"\"&tempName)=False Then

Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True)

objOutputFile.Write "wscript.sleep WScript.Arguments(0)"

objOutputFile.Close

End If

CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& Secs*1000,1,True

End Sub