| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 960 人关注过本帖
标题:用户登录本地测试正常,但上传到服务器无法登陆
取消只看楼主 加入收藏
coollyy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2009-9-13
结帖率:0
收藏
已结贴  问题点数:20 回复次数:3 
用户登录本地测试正常,但上传到服务器无法登陆
经检测是验证用户名那儿出问题了,不能与数据库验证,请大侠看看错误出哪儿了???


<!-- #include file="BGMConn.asp" -->
<!-- #include file="LIB/md5.asp" -->
<%
dim username,userpwd,YzCode,sql,rs,Login
username=lcase(trim(request.Form("Username")))
userpwd=trim(request.Form("Password"))
YzCode=trim(request.Form("valication"))
if username="" then
response.write "<script>alert('登陆出错:\n\n用户名不能为空!');location.href='index.asp';</script>"
response.End()
end if

if userpwd="" then
response.write "<script>alert('登陆出错:\n\n密码不能为空!');location.href='index.asp';</script>"
response.End()
end if


if YzCode=""then
response.write "<script>alert('登陆出错:\n\n验证码不能为空!!');location.href='index.asp';</script>"
response.End()
end if

if cint(YzCode)<>cint(Session("GetCode")) then
response.write "<script>alert('登陆出错:\n\n验证码输入错误!!');location.href='index.asp';</script>"
response.End()
end if

sql="select * from namesfz where name='"&username&"'"
'sql="select * from namesfz"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
   ' Response.Write("llllllllllll")
    Login=false
else




    if rs("PassWord")=md5(userpwd) then
           Login=true
        session("AdminLogin")=true
        session("name")=rs("name")

          if rs("power")=1 then
          session("AdminPower")="admin"
          end if

          if rs("power")=2 then
          session("AdminPower")="1shen"
          end if

          if rs("power")=3 then
          session("AdminPower")="2shen"
          end if

          if rs("power")=4 then
          session("AdminPower")="chaxun"
          end if

          if rs("power")=5 then
          session("AdminPower")="user"
          end if
    else
        Login=false
    end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

if Login=true     then

  if session("AdminPower")="admin" then
     response.Redirect("admin.asp")
  end if

  if session("AdminPower")="1shen" then
     response.Redirect("1shen.asp")
  end if

  if session("AdminPower")="2shen" then
     response.Redirect("2shen.asp")
  end if

  if session("AdminPower")="chaxun" then
     response.Redirect("chaxun.asp")
  end if

  if session("AdminPower")="user" then
     response.Redirect("user.asp")
  end if






else
   response.write "<script>alert('登陆出错:\n\n用户名或密码错误 !');location.href='index.asp';</script>"
end if

%>
搜索更多相关主题的帖子: 服务器 用户 登陆 登录 
2009-09-13 08:17
coollyy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2009-9-13
收藏
得分:0 
顶顶啊,谁能帮帮我啊
顶顶啊,谁能帮帮我啊
2009-09-13 11:14
coollyy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2009-9-13
收藏
得分:0 
回复 3楼 无诲今生
我不知道啊   是公司的服务器  我不是电脑部的  不懂  是不是需要什么access组件?
2009-09-13 11:34
coollyy
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2009-9-13
收藏
得分:0 
回复 5楼 yms123
是啊,用户名都正确,密码也对,就是登陆不了,
2009-09-14 07:18
快速回复:用户登录本地测试正常,但上传到服务器无法登陆
数据加载中...
 
   



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

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