asp登陆验证码怎么做？
发布网友
共1个回答
热心网友
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
求一个简单而完整的代码
因为只有一个用户用，所以不用数据库比对，直接在代码程序里面跟预留的用户和密码比对（不考虑安全性），所以登陆后弹出一个section页面即可
谢谢
解析:
登陆页面：
<form name=form1 method="post" action="LogCheck">
<table width=71% border=1 cellspacing="0" cellpadding="5" align=center bordercolordark="#CCCCCC" bordercolorlight="#000000">
<tr bgcolor="#CCCCCC">
<td height=22 align=center valign="middle" bgcolor="#CCCCCC" colspan="2"> 登陆</td>
</tr>
<tr valign="middle" bgcolor="#eeeeee">
<td bgcolor="#eeeeee" height=92 width=95% align=center class="page_speeder_927594595"><%=str%>
<li> 用户名：<input type=text name=username onMouseOver="this.select();"/></li>
<br/><br/>
<li> 密 码：<input type=password name=psw /></li>
</td><td class="page_speeder_1552698034"> </td>
</tr>
<tr align=center valign="middle" bgcolor="#eeeeee">
<td bgcolor="#eeeeee" height=24 colspan="2">
<input type=submit name=Submit1 value="· 提交 ·" class="bt"/>
<input type=reset name=Reset1 value="· 重置 ·" class="bt"/>
</td>
</tr>
</table>
</form>
LogCheck判断页面
<%'此处是验证登录身份
dim eFrom,loginfo
dim username,psw
eFrom = Request.ServerVariables("HTTP_REFERER")
loginfo = session("log")
if loginfo <> "ok" then
username = Request.Form("username")
psw = Request.Form("psw")
if (username="machao" and psw="letmein") or (username="我行我素" and psw="")then
session("log") = "ok"
session.Timeout = 5
elseif username<>"" then
session("log") = "err"
else
session("log") = ""
end if
elseif Request.QueryString("action")="LogOut" then
session("log") = ""
end if
'判断完毕后进行跳转
'response.Redirect(eFrom)
response.Redirect("section")
%>
