<Script language="vbscript">
function kouling()
dim pass<BR>
pass=Prompt("对不起,这是重要的系统目录,请您正确输入管理口令才能进入:","")
if pass="abc" then dedecms.com
else<BR> Alert "对不起,您的口令错误!"
Navigate "file://C:\Program Files\error.html"
end if
end function
kouling()
</script>