代码如下：
<script language=vbs> cont=1 sub myButton_Onclick() if mytext.value="1234567890" then location="http://www.liequ.com" else msgbox "密码错误![正确密码:1234567890]":cont=cont+1 if cont>3 then msgbox"对不起！本页内容你不能看。":window.close end sub </script> 请输入密码： <input name="myText" type="password" size=10 maxlength=10> <input type="button" name="myButton" value="确定" > <!--maxlength=10指的是文本只限输入10位数-->