<%if request.QueryString("action")="save" then%>
<!--#include file="md5.asp"-->
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from member where username='"&session("admin")&"'",conn,1,3
if md5(trim(request("password")))<>rs("newpin") then
response.Write "<script language=javascript>alert('原密码错误，请返回重新输入');history.go(-1);</script>"
response.End
else
rs("newpin")=md5(trim(request("password2")))
rs.Update
rs.Close
set rs=nothing
session("admin")=""
session("flag")=""
response.Write "<script language=javascript>alert('更改成功，请用新密码重新登陆！');history.go(-1);</script>"
end if
response.End
end if
%>
这是一段修改密码的程序,表名member,密码字段名newpin,调试时每次都弹出对话框"原密码错误，请返回重新输入
为什么?怎么解决?

没有

把
if md5(trim(request("password")))<>rs("newpin") then
改成
if strcomp(md5(trim(request("password"))),rs("newpin"))=0 then就可以了,可是我发现改后的密码,并不是我要的密码,怎么办

我现在的问题是,可以实现密码的修改了,但在登录页面
每次输入正确的用户名和密码后,一直提示登录失败,怎么办?
这是我的登录页面程序:
<!--#include file="opendb.asp"-->
<!--#include file="md5.asp"-->
<%
dim username,newpin
username=replace(trim(request("username")),"'","")
newpin=md5(replace(trim(request("newpin")),"'",""))
if username="" or newpin="" then
response.Write "<center><a href=../zhuce/zhuce03.asp><font color=red size=2>对不起，登陆失败，请检查您的登陆名和密码</font></a></center>"
response.end
end if
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from member where username='"&username&"' and newpin='"&newpin&"' " ,conn,1,1
if not rs.eof then
session("username")=trim(rs("username"))
session("id")=int(rs("id"))
session.Timeout=20
rs.Close
set rs=nothing
response.Redirect "index.asp"
else
response.write "<script LANGUAGE='javascript'>alert('对不起，登陆失败！');history.go(-1);</script>"
end if
%>