请各位高手进来看看

jieke2002 2004-04-21 08:52:38

CHECK.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
-----------------------------------------------------------------------

<% 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的值

回复赞