关于VBS赋值问题document.getElementById("color") value

高手在线吗？跪求帮忙解决个问题，谢谢，在线等～～～
正常asp页面下,下面这个VBS可以给页面的input赋值value为arr,已经调试成功的.(arr的值假设返回的是#000000,底下name为color的vlaue值前台显示就是#000000)
<script language="vbscript">
function getcolor()
dim arr
arr = window.showmodaldialog ("selcolor.htm",arr,"scroll:no;status:no;center:yes;dialogheight:270px;dialogwidth:300px;" )
if arr<>"" then
document.getElementById("color").value = arr
end if
end function
</script>
<input name="color" type="text" id="color" onClick="vbscript:getcolor()" value="" size="10">

请问当这个Input是在vbscript里写的情况，该如何写VBs属性document.getElementById这句,可以赋值到同一个页面里这个用vbscript写的input上呢？ 也就是说怎样写VBs语句,可以让name为"color"的input赋值上前面VBs产生的"arr"的值呢?
<SCRIPT LANGUAGE="vbscript">
... ...
Set input = Document.CreateElement("input")
Input

关于VBS赋值问题document.getElementById("color") value 关于ASP赋值问题 关于VBS的问题 关于vbs的问题 VBA编程关于赋值问题 关于赋值表达式的问题 关于VBS脚本的问题? 关于VBS的语法问题!???? 关于vbs病毒的问题 关于vbs的小问题