在线等待解决马上给分，脚本问题？vbs转js

[chinanetspy]

我想把这个脚本转成javascript的，请高手帮忙，多谢了
<SCRIPT language=vbscript>
<!--
'$name:hegang
function getdate() '取得日期，该函数调用了一个弹出页面，并判断是否返回值，如返回了值，直接传递回去，否则传递当前时间
aa = ""
aa = window.showModalDialog ("calen.htm",null,"dialogwidth:165pt;dialogheight:165pt")
if aa = "" then aa = cstr(date())
getdate = cstr(datepart("yyyy",aa)) &"-"&cstr(datepart("m",aa))&"-"&cstr(datepart("d",aa))
end function
-->
</SCRIPT>