对话框
VBScript 函数(P142)
<Script Language="VBScript">
Dim Name
Name=InputBox("请填写您的名字:","对话框标题")
If Name <> "" Then
Msgbox Name&",您好!"
End If
</script>