<%
dim name
name=request.Form("name")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from denglu where name='"&request("name")&"'", conn,1,3
if rs.eof then%>
<script>
alert("该用户不存在!")
history.back()
</script>
<%
rs.close
set rs=nothing
response.End()
elseif rs("pwd")<>Request.Form("pwd") then
%>
<script>
alert("旧密码错误!")
history.back()
</script>
<%
rs.close
set rs=nothing
else %>
<%
rs("pwd")=Request.Form("pwd1")
rs.update
end if
%>
<script>
alert("密码修改成功!")
open("1.asp","_self")
</script>
为什么我无论输入正确或错误的密码都提示“旧密码不正确”

查看数据库
首先要保证name字段里的数据的唯一性

你这样的错误有可能是
你输入的用户名在数据库中有多个 而且密码都不同
这样的话在你验证密码的时候就出错了
根据你所说的
问题就应该出在 elseif rs("pwd")<>Request.Form("pwd") then 这句
到不是说代码有问题
感觉主要是数据库记录方面，请仔细核查一下。。。

elseif trim(rs("pwd"))<>Request.Form("pwd") then
这样试试

<%
dim name
name=request.Form("name")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from denglu where name='"&request("name")&"'", conn,1,3
if rs.eof then%>
<script>
alert("该用户不存在!")
history.back()
</script>
<%
rs.close
set rs=nothing
response.End()
else
if rs("pwd")<>Request.Form("pwd") then
%>
<script>
alert("旧密码错误!")
history.back()
</script>
<%
rs.close
set rs=nothing
else %>
<%
rs.update
rs("pwd")=Request.Form("pwd1")
rs.update
end if
%>
<script>
alert("密码修改成功!")
open("1.asp","_self")
</script>
你这样试看.还有你在最后还少了end if

不行的

首先要确保你的Request.Form("pwd") 的值不为空
如：<input type=text name=pwd value="<%=rs("pwd")%>">
所以要做一个判断
if request("pwd")<>"" then
然后再写
if rs("pwd")<>Request.Form("pwd") then
.........

name好象是保留字，改成[name]，或直接把字段名改了。

rs.open"select * from denglu where name='"&request.form("name")&"'", conn,1,3