我想让用户登陆成功之后，他可以更改密码
照抄的程序有点问题，小弟搞不定（请大侠指点）
或者有更简单的代码请提供，谢谢了

请输入原设定密码

请 输入 新 密 码

请再次输入新密码

 

<%
set Conn= Server.CreateObject("ADODB.Connection")
    Conn.Open "dsn=totejas;uid=sa;pwd=little;database=Kore"
function password(pwd1,pwd2)
on error resume next
    if pwd1=pwd2 then
SQL="update t_teacher set teacher_pw='"&request("pwd1")&"'
    where ID='"&session("nameID")&"' " 'session("nameID")表示
'登陆成功时用的用户名
set RS=Coon.Execute(SQL)
if Err.Number=0 then
     password=true
     else
     password=False
     end if
     else
     password=false
     end if
end function

if session("pwd")=Request.Form("pwd") 'session("pwd")表示登陆成功
'时的密码
request,form("pwd1")=request.form("pwd2") then
if password(request.form("pwd1"),request.form("pwd2"))=true then
Result=true
else
Result=false
end if
else
Result=false
end if

if
Result=true then
session("pwd")=request.form("pwd1") '此时将session重新付值为新的密码
response.Redirect("ok.htm")
else
response.Redirect("1-3.htm")
end if
set RS=nothing
set Coon=nothing
    

%>

SQL="update t_teacher set teacher_pw='"&request("pwd1")&"'"


少了一个引号

汗.我看错了....

id字段是什么数据类型?