asp修改用户密码怎么去实现，有源代码更好啊，我是新手，谢谢了

<%
username=session("username")
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From user where name='"&username&"'", conn, 3, 2
%>

<%
if Request("edit") = "editend" then

oldpsw=md5(trim(request.form("oldpsw")),32)
newpsw=request.form("newpsw")
email=request.form("email")
yuanpsw=rs("pass")
response.Write(oldpsw & "
")
response.Write(yuanpsw)
if oldpsw=yuanpsw and len(newpsw)>5 then

rs("name")=username
rs("pass")=md5(trim(newpsw),32)
rs("email")=email
rs("time")=now()
rs.update
rs.close
Set rs=Nothing
response.Write("")
else
response.Write("")
end if
end if
%>

http://bbs.blueidea.com/thread-1672503-1-1.html
这里有一个修改密码的ASP语言自己去看看吧，我也是新手，什么东西在百度里找应该都有的。