<body>
<!--把下面代码加到<body>与</body>之间-->
<script language="vbscript">
'Private tcEnt As New NLPCOREETLib.tcEnt
sub show()
MsgBox "欢迎阁下光临"&vbCrlf&"中国站长天空"
' Dim str As String
' Dim str1 As String
' str = "什么呀"
end sub
</script>
<input type="button" value="确定" onclick="vbs:show()">
</body>
以上代码中..定义了dim和str就不能弹出窗口了...注释掉也没用