<!--#include file="conn.asp"-->
<%exec="select * from admin where 编号="&request.form("编号")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs=("mima")=request.form("mima")
if "xinmima"!="mima1" then
msgbox"密码输入错误"
else
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothoing
magbox"密码修改成功"
end if
%>
这个肯定有错误我不知道怎么改!高手看一下

<!--#include file="conn.asp"-->
<%exec="select * from admin where 编号="&request.form("编号")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
mima=rs("mima")
xinmima=request.form("mima")
if xinmima<>mima then
response.write "密码输入错误"
response.end()
else
rs("mima")=request.form("mima")
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothoing
response.write "密码修改成功"
response.end()
end if
%>

<!--#include file="conn.asp"-->
<%exec="select * from admin where 编号="&request.form("编号") '这里可以能有错
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs("mima")=request.form("mima")
'下面的不知道你怎么会这样写！
if "xinmima"<>"mima1" then
response.write("<script LANGUAGE='vb'>msgbox'密码输入错误'</script>")
else
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothoing
response.write("<script LANGUAGE='vb'>msgbox'密码修改成功'</script>")
end if
%>

晕！！！你这样写，肯定改不了密码嘛

<!--#include file="conn.asp"-->
<%exec="select * from admin where 编号="&request.form("编号")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,3
rs=("mima")=request.form("mima")
if "xinmima"!="mima1" then
msgbox"密码输入错误"
else
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothoing
magbox"密码修改成功"
end if
%>
mima1是什么?
没有定义!是原密码?

谢谢各位啊!我是刚学的

exec="select * from admin where 编号="&request.form("编号")
这句话还是有错

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (操作符丢失) 在查询表达式 '编号=' 中。

[此贴子已经被作者于2005-11-28 14:18:38编辑过]

exec="select * from admin where 编号='"&request.form("编号")&"'"