| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 632 人关注过本帖
标题:[求助]带随机数的一个验证登录问题
只看楼主 加入收藏
renqian1320
Rank: 1
等 级:新手上路
帖 子:126
专家分:0
注 册:2005-6-27
收藏
 问题点数:0 回复次数:6 
[求助]带随机数的一个验证登录问题

这是前台页面:index.asp
<!--#include file="inc/conn.asp"-->
<% dim rndnum,verifycode
Randomize
Do While Len(rndnum)<4
num1=CStr(Chr((57-48)*rnd+48))
rndnum=rndnum&num1
loop
session("verifycode")=rndnum
%>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from admin"
rs.open sql,conn,1,3
%>
<form action="check.asp?action=login" method="POST">
用&nbsp;户&nbsp;名:</font>
<td><input name="admin_name" type="text" id="admin_name2">
密&nbsp;&nbsp;&nbsp;&nbsp;码:</td>
<td><input name="admin_pass" type="password" id="admin_pass2">
验&nbsp;证&nbsp;码:</font></td>
<td><input name="verifycode" id="verifycode" size="6" maxlength="4">
<font color="#000000" size="2">请在左边输入<%=session("verifycode")%>
<input type="hidden" name="verifycode2" value="<%=session("verifycode")%>"></font>
<input name="submit" type="submit" class="input" value=" 登 陆 ">
<input type="reset" name="submit2" value=" 重 填 " class="input">
</form>

后台页面:<%@ codepage ="936" %>
<!--#include file="inc/conn.asp"-->
<% dim verifycode,verifycode2
verifycode=trim(Request.Form("verifycode"))
verifycode2=trim(Request.Form("verifycode2"))
if verifycode<>verifycode2 then
response.write"<SCRIPT language=JavaScript>alert('您输入的验证码不正确。');"
response.write"location.href='/index.asp'</SCRIPT>"
founderr=true
else
session("verifycode")=""
%>
<%const name1="felix"
const pass1="982718"%>
<%
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from admin"
rs.open sql,conn,1,3
if request("action")="login" then
admin_name=request("admin_name")
admin_pass=request("admin_pass")
if admin_name=name1 and admin_pass=pass1 then
session("admin_name")="felix"
session("loc")=1
response.redirect "/manage.asp"
end if%>

<%
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write "<br><br><br><br><font size=2><center>  对不起,您输入的用户名、密码或验证码有误,从重新输入,谢谢!<br><br>本软件建议您使用IE6.0以上版本,分辨率:1024*768<br><br>否则一切后果与本软件无关,特此声明!</font>"
else
session("admin_name")=request("admin_name")
session("loc")=1
response.redirect "/manage.asp"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
end if
end if
%>
我的问题就是:我的数据库里面的管理员名字和密码是正确的,但是后台页面怎么老跳不到manage.asp页面.我估计是我的语句判断有问题,?请帮我看看.3Q了

搜索更多相关主题的帖子: 随机数 验证 登录 
2006-07-18 22:03
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 

response.redirect "/manage.asp"
manage.asp这个页面是与后台页面在同一个文件夹中吗?

2006-07-18 22:07
renqian1320
Rank: 1
等 级:新手上路
帖 子:126
专家分:0
注 册:2005-6-27
收藏
得分:0 
不是啊 前台index.asp 后台check.asp manage.asp都是在一个文件夹里,
数据库连接文件在inc文件夹里

2006-07-18 22:21
renqian1320
Rank: 1
等 级:新手上路
帖 子:126
专家分:0
注 册:2005-6-27
收藏
得分:0 
我只是做测试用的,文件都在一个文件夹里,除了conn.asp数据库连接文件,
yms123哥哥

2006-07-18 22:23
renqian1320
Rank: 1
等 级:新手上路
帖 子:126
专家分:0
注 册:2005-6-27
收藏
得分:0 

对不起,您输入的用户名、密码或验证码有误,从重新输入,谢谢!

本软件建议您使用IE6.0以上版本,分辨率:1024*768

否则一切后果与本软件无关,特此声明!
我的用户名和密码是对的就出现上面的 错误


2006-07-18 22:28
renqian1320
Rank: 1
等 级:新手上路
帖 子:126
专家分:0
注 册:2005-6-27
收藏
得分:0 
我把前台文件和后台分开了,还这样

2006-07-18 22:30
hangxj
Rank: 6Rank: 6
等 级:贵宾
威 望:29
帖 子:2045
专家分:0
注 册:2006-4-10
收藏
得分:0 
set rs=server.createobject("adodb.recordset")
sql="select * from admin where admin_name='"&admin_name&"' and admin_pass='"&admin_pass&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write "<br><br><br><br><font size=2><center>  对不起,您输入的用户名、密码或验证码有误,从重新输入,谢谢!<br><br>本软件建议您使用IE6.0以上版本,分辨率:1024*768<br><br>否则一切后果与本软件无关,特此声明!</font>"
else
session("admin_name")=request("admin_name")
session("loc")=1
response.redirect "/manage.asp"
end if
rs.close
set rs=nothing

http://www./
2006-07-19 09:06
快速回复:[求助]带随机数的一个验证登录问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.020754 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved