请各位高手进来看看

jieke2002 2004-04-21 08:52:38
CHECK.ASP
-------------------------------------------------------------------
<!--#include file="conn.asp"-->
<% response.Buffer=true
Response.Expires = 0
%>
<% session.timeout=999 %>

<% '登录
username=trim(request.form("user"))
password=trim(request.form("pass") )

ip1 = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
if ip1 = "" Then
ip1 = Request.ServerVariables("REMOTE_ADDR")
end if
set rs=server.createobject("ADODB.Recordset")
sql="select * from huaxuan_user where username='"& username &"' and password='"& password &"'and ip='"& ip1 &"' "
rs.open sql,conn,1,1

if not( rs.eof and rs.bof )then
if password=rs("password") then
session("admin")=rs("username")
session("flag")=rs("flag")

response.redirect"FRAME.ASP"
else
call Error
end if
else
call Error()
end if

sub Error()
response.write " <br><br><br>"
response.write " <table align='center' width='300' border='1' cellpadding='0' cellspacing='0' bordercolor='#999999'>"
response.write " <tr bgcolor='#999999'> "
response.write " <td colspan='2' height='15'> "
response.write " <div align='center'><font color='#FFFFFF'>操作: 确认身份失败!</font></div>"
response.write " </td>"
response.write " </tr>"
response.write " <tr> "
response.write " <td colspan='2' height='23'> "
response.write " <div align='center'><br><br>"
response.write " 用户名或密码错误!!! <br><br>"
response.write " <a href='javascript:onclick=history.go(-1)'>返回</a>"
response.write " <br><br></div></td>"
response.write " </tr> </table>"
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

gobe.asp
-----------------------------------------------------------------------
<!--#include file="conn.asp"-->
<% if session("admin")="" then
response.redirect "default.asp"
else
if session("flag")>1 then
response.write "<br><p align=center>您没有操作的权限</p>"
response.end
end if
end if
%>
、、、
、、、
、、、
我的页面为框架页,
登录后
我想要实现的功能:如果没有登录,刚反回登录页面default.asp,
出现的问题:已登录,点击框架页左边的某菜单,想在右框架页中进入gobe.asp页面,但总是回理default.asp页。通过测试,check.asp中的session("admin")和session("flag")的值存在,但gobe.asp中并没有session("admin")和session("flag")的值。
...全文
74 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
aspnetxp 2004-04-21
看不出什么错误,顶
回复
flyhonk 2004-04-21
<%sub login()
if request("act")="check" then
user=request("user")
psd=request("psd")
set rs=server.CreateObject("adodb.recordset")
sql="select * from reg where user='"& user &"'"
rs.open sql,conn,1,3
if rs.eof then
Response.Redirect("?action=login&act=wrong1")
else if rs("psd")<>psd then
Response.Redirect("?action=login&act=wrong2")
else
session("user")=user
rs.close
Response.Redirect "message.asp"
end if
end if
end if
%>
<form action="message.asp?action=login&act=check" method=post name="login" onsubmit="return logincheck()">
<table border=0 cellspacing=1 cellpadding=2 align=center width=580>
<tr><td align=center><pre>
<% if request("act")="wrong1" then Response.Write ("<font color=red>此用户名不存在</font>")else if request("act")="wrong2" then Response.write ("<font color=red>密码不正确</font>") else if request("act")="wrong3" then Response.Write ("<font color=red>请登陆</font>")else if request("act")="wrong4" then Response.Write ("<font color=red>只有管理员才可以看</font>")end if%>
用 户:<input type=text name="user" size=12>
密 码:<input type=password name=psd size=12>
<br>
<input type=submit value="登陆" style="border: 1px solid #999999;color:#669911;">
</pre></td></tr>
</table>
</form>
<%end sub%》

我这样做的,很好使,就是出错的时候返回一个wrong的值
回复
cjf1009 2004-04-21
看不出什么错误,顶
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2004-04-21 08:52
社区公告
暂无公告