<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>