<%
dim sql
dim rs
dim username
dim password
username=replace(trim(request( "username ")), " ", " ")
password=replace(trim(request( "password ")), " ", " ")
set rs=server.CreateObject( "adodb.recordset ")
sql = "select * from admin where password= ' "&password& " ' and username= ' "&username& " ' "
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if password=rs( "password ") then
session( "username ")=rs( "username ")
response.Redirect "newsedit.asp "
else
call error
end if
else
call error()
end if
sub error()
response.Write "用户名或密码错误!! <br> <br> "
response.Write " <a href= 'javascript:onclick=history.go(-1) '> 返回 </a> "
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
输入用户名,密码提交后总是提示用户名密码错误,大家帮我看看哪里 错了
------解决方案--------------------
username=replace(trim(request( "username ")), " ", " ")
password=replace(trim(request( "password ")), " ", " ")
----------------------
在后面加上
response.write(username)
response.write(password)