最简单的，没有链接数据库，只有用户名、密码、验证码
其中密码是初始化了一个值
问题是：验证码是随机生成的4位数，怎么样在验证码输错了，先弹出“验证码有误”的 对话框
<%
if Request("menu")="Check" then '判断用户是否是执行表单提交操作!
Dim Password,myps,ValidateCode
myps="123456" '设置默认密码
Password=Trim(Request("Password")) '取用户输入的密码
if Password<>myps or ValidateCode<>ValidateCode then '如果两密码不一样，则出错
Response.Write "用户名和密码有误，请重新输入！"
else
Response.Write "欢迎你，你已成功登录！"
end if
else
%>
<%
Function GetValidateCode()
Randomize Timer '产生一个随机树
GetValidateCode=Left(Int(Rnd*9998)+1000,4)
If Len(GetValidateCode)>4 Then
GetValidateCode=Len(GetValidateCode&9999,4)
End If
End Function
%>
<form id="form1" name="form1" method="post" action="?menu=Check">
<div align="center">
<pre>用户名：<input name="name" type="text" id="name" size="15" /> </pre>
<pre> 密码： <input name="password" type="password" id="password" size="15" /> </pre>
<%ValidateCode=GetValidateCode()'将获取的验证码赋值给ValidateCode%>
验证码：<input name="ValidateCode" type="hidden" id="ValidateCode" value="<%=ValidateCode%>" size="8" /> <input type="text" name="ValidateCodeInput" size="5" maxlength="4" class="input3">
<%=ValidateCode%>
<pre><input type="submit" name="Submit" value="登录" /> <input type="reset" name="Submit2" value="重置"></pre>
</div>
</form>
<%
end if
%>
